I am trying to update the Password field usign the following code:
If Me.cboLName <> "" And Me.cboFName <> "" Then
strSQL = "SELECT dbo_Passwords.ManagerNo, Password, dbo_Staff.StaffNo FROM dbo_Passwords INNER JOIN dbo_Staff ON dbo_Passwords.ManagerNo = dbo_Staff.StaffNo WHERE dbo_Staff.LName = '" & Me.cboLName & "' AND dbo_Staff.FName = '" & Me.cboFName & "' "
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
MsgBox (strSQL)
With rst
strSQL = "UPDATE dbo_Passwords SET dbo_Passwords.password = dbo_Staff.StaffNo"
db.Execute (strSQL)
End With
I know there's a problem somewhere in the last UPDATE bit but I don't know what it should be. I want the dbo_Passwords.Password field to be updated with whatever is in the dbo_Staff.StaffNo field.
Thanks.
If Me.cboLName <> "" And Me.cboFName <> "" Then
strSQL = "SELECT dbo_Passwords.ManagerNo, Password, dbo_Staff.StaffNo FROM dbo_Passwords INNER JOIN dbo_Staff ON dbo_Passwords.ManagerNo = dbo_Staff.StaffNo WHERE dbo_Staff.LName = '" & Me.cboLName & "' AND dbo_Staff.FName = '" & Me.cboFName & "' "
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
MsgBox (strSQL)
With rst
strSQL = "UPDATE dbo_Passwords SET dbo_Passwords.password = dbo_Staff.StaffNo"
db.Execute (strSQL)
End With
I know there's a problem somewhere in the last UPDATE bit but I don't know what it should be. I want the dbo_Passwords.Password field to be updated with whatever is in the dbo_Staff.StaffNo field.
Thanks.