Option Compare Database
Option Explicit
Dim rsUser As Recordset
'*****************************************************
Private Sub CMDUpdatePassword_Click()
'updates password
UpdateUserPassword
MsgBox "Your Password has been updated"
End Sub
'*****************************************************
Private Sub CMDUpdate_Click()
'updates user details
UpdateUser
MsgBox "Your details have been updated"
End Sub
'*****************************************************
Private Sub CMDExit_Click()
DoCmd.Close 'Closes form
End Sub
'*****************************************************
Private Sub Form_load() 'When the form loads do this -

Me.tempID = gettempID()
Set rsUser = CurrentDb.OpenRecordset("tblUser", dbOpenDynaset) 'Links the form to the table

If rsUser.RecordCount = 0 Then 'If there are no records display this message
    MsgBox "Sorry there are no records to view", vbOKOnly, "No User found"
    Exit Sub

    Else
    rsUser.FindFirst ("Staff_ID = " & Me.tempID)
    ShowUser
    'Me.tempName = tempName
    End If

End Sub
'*****************************************************
Private Sub ShowUser()
'Gets the data from the relevent fields
'from the table and sticks them in the correct text boxes
Me.tempID = rsUser!Staff_ID
Me.username = rsUser!U_username
Me.firstname = rsUser!U_Firstname
Me.surname = rsUser!U_Surname
Me.Site = rsUser!U_Site
Me.title = rsUser!U_Title
Me.emailaddress = rsUser!U_EmailAddress
Me.password = rsUser!U_Password
End Sub
'*****************************************************
Private Sub UpdateUser() 'Updates the data already in the table
rsUser.Edit
rsUser!U_username = Me.username
rsUser!U_Firstname = Me.firstname
rsUser!U_Surname = Me.surname
rsUser!U_Site = Me.Site
rsUser!U_Title = Me.title
rsUser!U_EmailAddress = Me.emailaddress
rsUser.Update
End Sub
'*****************************************************
Private Sub UpdateUserPassword()
rsUser.Edit
'saves password and encrypts it
rsUser!U_Password = Encrypt(Me.password, 3)
rsUser.Update
End Sub