Dear All,
Saya sedang belajar bikin Logon Password, dimana ada proses checking UserID &
password dengan event procedure sbb :
'Cek UserID....
If IsNull(CboUserID) Or CboUserID = "" Then
MsgBox "Mohon masukan User ID", vbOKOnly, "Missing UserID"
CboUserID.SetFocus
Exit Sub
End If
'Jika UserID sudah terisi...dan cek password
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "Mohon masukan Password.", vbOKOnly, "Missing Password"
Me.txtPassword.SetFocus
Exit Sub
Else
strPass = Me.txtPassword
End If
'Cek validitas password....
If strPass = DLookup("Password", "tbllogon", "[UserID]=" & Me.CboUserID..Value)
Then
DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "FormUtama"
Else
MsgBox "Password Salah. Coba lagi", vbOKOnly, "Salah!"
Me.txtPassword.SetFocus
intCount = intCount + 1
End If
Untuk checking UserID nya Oke, tapi saat checking password selalu error di
procedure yang saya kasih tanda merah diatas...dengan pesan yg muncul "you
canceled the previous operation." saya sudah coba rubah menjadi "[UserID]=' "
tapi kan muncul error " syntax error in string in query expression", adakah
yang salah ? mhn pencerahannya....
Thanks,
Idwan
Lebih aman saat online. Upgrade ke Internet Explorer 8 baru dan lebih
cepat yang dioptimalkan untuk Yahoo! agar Anda merasa lebih aman. Gratis.
Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer/
