Terima kasih mas atas pencerahannya....it's ok now.

Rgds,
Idwan
========
--- Pada Kam, 10/12/09, e...@nt <[email protected]> menulis:

Dari: e...@nt <[email protected]>
Judul: Re: [belajar-access] Logon Password
Kepada: [email protected]
Tanggal: Kamis, 10 Desember, 2009, 5:18 PM







 



  


    
      
      
      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 <idwan_...@yahoo. co.id>
















 



  


    
      
      
      
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.txtPasswo rd) 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!! 
Membuat tempat chat pribadi di blog Anda sekarang sangatlah mudah

    
     

    
    






  










    
     

    
    


 



  






      &quot;Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang! 
http://id.mail.yahoo.com&quot;

Kirim email ke