Create a new version of paste:

Private Sub cmdBack_Click()
'******************************************************************************************************
'Returns the user to their previous form
'******************************************************************************************************
Unload Me 'Stops the program instead of hiding the form
MainMenu.Show 'Opens the Main Menu form
End Sub

Private Sub CmdClearDetails_Click()
'******************************************************************************************************
'Clears all information in the fields
'******************************************************************************************************
txtUsername.Text = ""
txtPassword.Text = ""
lstTitle.Text = ""
txtFirstName.Text = ""
txtSurname.Text = ""
txtAddress.Text = ""
txtPostcode.Text = ""
txtHomeNo.Text = ""
txtMobileNo.Text = ""
txtEmailAddress.Text = ""
lstGender.Text = ""

End Sub

Private Sub cmdClose_Click()
'******************************************************************************************************
'Closes project
'******************************************************************************************************

'Message Box asking the user if they want to exit the system
Message = MsgBox("Are you sure you want to exit?", vbYesNoCancel + vbCritical, "Exit")
If Message = vbYes Then
End

End If

End Sub

Private Sub cmdMakeUsername_Click()
'******************************************************************************************************
'Creates a username
'******************************************************************************************************

MakeUsername = Mid(txtFirstName.Text, 1, 2) & Mid(txtAddress.Text, 1, 2) & Mid(txtHomeNo.Text, 2, 4) & Mid(txtEmailAddress.Text, 1, 2)
     txtUsername.Text = MakeUsername
     'Message Box asking the user to create a password that doesn't relate to the username
 MsgBox ("Please type in a password which doesn't relate to the username")
    
End Sub
       
Private Sub CmdNext_Click()
'******************************************************************************************************
'Takes the user to the Order form where they can order their meal
'******************************************************************************************************

Username = txtUsername.Text
Unload Me 'Stops the program instead of hiding the form
Order.Show 'Opens the Order form
Order.cmbBreadType.Text = "Please Select Bread Type"
Order.cmbBreadSize.Text = "Please Select Bread Size"
Order.cmbFilling.Text = "Please Select Filling"
Order.cmbDrinks.Text = "Please Select Drink(s)"

End Sub

Private Sub CmdSaveDetails_Click()
'******************************************************************************************************
'Saves the customer's details to the Recordset
'******************************************************************************************************

'Validation for when the fields are empty

If txtPassword = "" Then
MsgBox ("Please type in a password which doesn't relate to the username.")
End If

If lstTitle = "" Then
MsgBox ("Please select your Title.")
End If

If txtFirstName = "" Then
MsgBox ("Please type in your First Name.")
End If

If IsNumeric(txtFirstName.Text) Then
MsgBox ("Please only type in letters in the First Name field.")
End If

If txtSurname = "" Then
MsgBox ("Please type in your Surname.")
End If

If IsNumeric(txtSurname.Text) Then
MsgBox ("Please only type in letters in the Surname field.")
End If

If txtAddress = "" Then
MsgBox ("Please type in your Address.")
End If

If txtPostcode = "" Then
MsgBox ("Please type your Postcode.")
End If

If txtHomeNo = "" Then
MsgBox ("Please type in your Home No.")
End If

If Not IsNumeric(txtHomeNo.Text) Then
MsgBox ("Please only type in numbers in the Home No. field.")
End If

If txtMobileNo = "" Then
MsgBox ("Please type in your Mobile No.")
End If

If Not IsNumeric(txtMobileNo.Text) Then
MsgBox ("Please only type in numbers in the Mobile No. field.")
End If

If txtEmailAddress = "" Then
MsgBox ("Please type in your Email Address.")
End If

If lstGender = "" Then
MsgBox ("Please select your Gender.")
End If


Dim Answer As String
'Message box asking the user if they remembered to take a note of their username
Answer = MsgBox(Prompt:="Did you remember to take a note of your username?", Buttons:=vbYesNo)
If Answer = vbNo Then
    Exit Sub
    End If

With rst
rst.AddNew 'Adds a new blank line to the end of the Recordset
.Fields("Username").Value = txtUsername.Text
.Fields("Password").Value = txtPassword.Text
.Fields("Title").Value = lstTitle.Text
.Fields("First Name").Value = txtFirstName.Text
.Fields("Surname").Value = txtSurname.Text
.Fields("Address").Value = txtAddress.Text
.Fields("Postcode").Value = txtPostcode.Text
.Fields("HomeNo").Value = txtHomeNo.Text
.Fields("MobileNo").Value = txtMobileNo.Text
.Fields("EmailAdd").Value = txtEmailAddress.Text
.Fields("Gender").Value = lstGender.Text

'Adds the new data to the Recordset
'Message box confirming the customer's details have been successfully saved to the Database
MsgBox "Details have been successfully saved."
End With
rst.Update

End Sub

Private Sub txtPassword_LostFocus() 'Lost focus has to be set to make the password work
txtPassword.Text = Replace(txtPassword.Text, " ", "")
End Sub
'******************************************************************************************************************************************
'Format Password Textbox
'******************************************************************************************************************************************
Private Sub txtPassword_GotFocus()
txtPassword.PasswordChar = "*"
txtPassword.Text = ""
End Sub
'******************************************************************************************************************************************
'Format Username Textbox
'******************************************************************************************************************************************
Private Sub txtUsername_GotFocus()
txtUsername.Text = ""
End Sub

Private Sub txtUsername_LostFocus() 'Lost focus has to be set to make the username work
txtUsername.Text = Replace(txtUsername.Text, " ", "")
End Sub

Private Sub Form_Load()
'******************************************************************************************************
'Loads form
'******************************************************************************************************

'Verifies the Login with the Database

SRLoc = App.Path & "\SandwichOrder.mdb" 'Location of Database
databaseconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & SRLoc
databaseconnection.Open

'Assemble the connection string as a string.
SRSQL = "SELECT * FROM tblCustomerDetails"
'Sets the connection string property of the connection object to the string shown above


'Checks to see if the username and password matches the one saved in the Database.
With rst
.ActiveConnection = databaseconnection
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open SRSQL
End With


cmdSaveDetails.Enabled = False 'Disables command button

Me.Left = (Screen.Width - Me.Width) / 2 'Centres the form
Me.Top = (Screen.Height - Me.Height) / 2 'Centres the form

End Sub

Private Sub lstGender_GotFocus()
'******************************************************************************************************
'Loads content into ComboBox
'******************************************************************************************************
cmdSaveDetails.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
'******************************************************************************************************
'Unloads form
'******************************************************************************************************

    rst.Close
    Set rst = Nothing
    databaseconnection.Close

End Sub