I give up I have been fighting this error message the whole day after getting everying running in the development DB now it gives an error when I try to encoporate in the operational DB.
Help would be highly appreciated
screen shots in the attachment and code below
Private Sub Command6_Click()
Dim strOldPassword As String
Dim strSQL As String
strOldPassword = DLookup("strEmpPassword", "PPADB Staff List", "[lngEmpID]=" & Me.Combo7)
Select Case strOldPassword
Case Is = Me.txtEmpPassword
strSQL = "UPDATE 'PPADB Staff List' SET strEmpPassword='" & Me.Text2 & "' WHERE lngEmpID=" & Me.Combo7
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox "Password has been changed", vbInformation, "Password Changed"
Case Is <> Me.txtEmpPassword
MsgBox "The Old Password doesnot match", vbInformation, "Type Correct Old Password"
End Select
End Sub