Saya biasa pake ini :
If strPass = DLookup("Password", "tbllogon", "[UserID]=" & chr(34) &
Me.CboUserID.Value & chr(34) ) Then
Chr(34) sama aja dgn tanda double quote ( " )
tujuan sy memakai chr(34) untuk menambah keamanan aplikasi
karena syntax SQL sangat rawan dgn tanda single quote ( ' )
jd kalo ada user mengisi password dgn satu single quote, tidak akan error
Silahkan dicoba..
salam,
e...@nt
2009/12/10 IdwanATuharea <[email protected]>
>
>
> 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
>
> ------------------------------
> Mulai chatting dengan teman di Yahoo! Pingbox baru sekarang!!
> <http://sg.rd.yahoo.com/id/messenger/pingbox/mailtagline/*http://id.messenger.yahoo.com/pingbox/>
> Membuat tempat chat pribadi di blog Anda sekarang sangatlah mudah
>
>
