Auto create usernames based on name.

[Welshhobo]

Hey this is my first time posting here. I used to know Access inside and out but havent used it for years. For a project i'm working on i'm manually entering e-mail addresses, names, and surnames. I would like a username and password automatically generated based on what the corresponding fields' first name and surname is with formatting.



Example:


Is there any way i can do this using input masks and validation rules? Would this require a VBA script?

[mrojas]

Have you tried creating a form that allows you to add records to the table you've showed us, and in this form have a button that when clicked, it fills in the Username and Password fields?

[Welshhobo]

Have you tried creating a form that allows you to add records to the table you've showed us, and in this form have a button that when clicked, it fills in the Username and Password fields?

That would require a VBA script though wouldn't it? I've literally forgotten everything i learnt about vba :s

[mrojas]

Yes, that would require some code, but creating the form should be easy when using a wizard. The code should also be easy, you'll be using, and there are is more than one way to do this, the Left function and the ampersand to concatenate strings.
Give it try, and then ask for some help.

[Welshhobo]

Alright, i've spent hours now trying to figure out how to do this but short of starting a course or buying a book on VBA i can't remember jack from school. I used to program in C++ alot, but have long forgotten that too. If i write some psuedo-code do you think you could help me out?

All i need is for a button to generate a username and password. Is there a way to only take the first letter of a string? If so, ill just put (1) after it.




//declaring variables
string firstname
string surname

firstname == [Text Box "First Name"]
surname == [Text Box "Surname"]

Text Box ["Username"] == firstnamesurname"01"
Text Box ["Password"] == firstname"."surname(1)".01"

end

[Welshhobo]

Nevermind, worked it out

Private Sub Command35_Click()

Dim strUsername As String, strPasswd As String, strSuffix As String

strSuffix = "01"

strUsername = LCase(Me.FirstName + Me.Surname + strSuffix)
Me.Username = strUsername
strPasswd = LCase(Left(Me.FirstName, 1) + "." + Me.Surname + "." + strSuffix)
Me.Password = strPasswd

End Sub

[ssanfu]

OK, now what are you going to do when the 2nd John Smith shows up?

strPasswd = LCase(Left(Me.FirstName, 1) + "." + Me.Surname + "." + strSuffix)

And what about spaces and/or dashes (hyphenated names - De La Cruz) or apostrophes in names (O'Brian)?

[Welshhobo]

OK, now what are you going to do when the 2nd John Smith shows up?


And what about spaces and/or dashes (hyphenated names - De La Cruz) or apostrophes in names (O'Brian)?

Change it manually

Theyre fine to be left in

This is only going to be used once so dont really care about functionality - the auto generate button was just so i could halve the time it took to enter a crap load of raw data

[ssanfu]

This is only going to be used once so dont really care about functionality - the auto generate button was just so i could halve the time it took to enter a crap load of raw data

I see, said the blind man as picked up his hammer and saw.

Good luck with your project....