Hello there,
I have an issue here where I cannot run my command button in VB Access. There is no error stated but the button just wont function.
Here is the code:
Private Sub Command14_Click()
Dim strOldPassword As String
Dim strSQL As String
strOldPassword = DLookup("[password]", "tblUser", "[LoginID] = '" & Me.List25 & "'")
Select Case strOldPassword
Case Is = Me.Text10
strSQL = "UPDATE tblUser SET Password=" & "'" & Me.Text10 & "' WHERE [LoginID] = " & " & Me.List25 & "
MsgBox "Password has been changed", vbInformation, "Password Changed"
Case Is <> Me.Text6
MsgBox "The Old Password does not match", vbInformation, "Type Correct Old Password"
End Select
End Sub
I also edit setting on Trust Center. But it won't run
Hope to get your assistance on this! Thank you.
I have an issue here where I cannot run my command button in VB Access. There is no error stated but the button just wont function.
Here is the code:
Private Sub Command14_Click()
Dim strOldPassword As String
Dim strSQL As String
strOldPassword = DLookup("[password]", "tblUser", "[LoginID] = '" & Me.List25 & "'")
Select Case strOldPassword
Case Is = Me.Text10
strSQL = "UPDATE tblUser SET Password=" & "'" & Me.Text10 & "' WHERE [LoginID] = " & " & Me.List25 & "
MsgBox "Password has been changed", vbInformation, "Password Changed"
Case Is <> Me.Text6
MsgBox "The Old Password does not match", vbInformation, "Type Correct Old Password"
End Select
End Sub
I also edit setting on Trust Center. But it won't run
Hope to get your assistance on this! Thank you.