Advertisement
Advertisement
| 04.28.2008 at 02:54AM PDT, ID: 23358186 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
'Check value of password in tblErccUsers to see if this matches value chosen in combo box
If Me.txtPassword.Value = DLookup("strPassword", "tblErccUsers", "[erccID]=" & Me.cboUsername.Value) Then
erccMyID = Me.cboUsername.Value
'Close logon form and open splash screen
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "frmSplash_Screen"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtPassword.SetFocus
End If
|