Bpk, banyak kode yg harus diperbaiki:
Private Sub Command4_Click()
On Error Resume Next
Dim kunci As String
Dim nama As String
nama = ([Forms]![login]![t_user])
kunci = DLookup("password", "password", "[user]='" & Me!t_user & "'")
If kunci = ([Forms]![login]![t_pass]) Then
DoCmd.OpenForm "data"
Else
MsgBox "username/password salah", , "peringatan"
t_user = ""
t_pass = ""
t_user.SetFocus
End If
End Sub
Thank's
----- Original Message -----
From: yokananwahyono
To: [email protected]
Sent: Friday, February 05, 2010 3:00 PM
Subject: [belajar-access] sekali lagi tentang password [1 Attachment]
[Attachment(s) from yokananwahyono included below]
Dear Teman - teman semua
Saya coba but password kok gagal terus y
Berikut kodenya
Untuk lebih jelas saya lampirkan file
Private Sub Command4_Click()
Dim kunci As String
Dim nama As String
nama = ([Forms]![login]![t_user])
kunci = DLookup("password", "password", "[user] = nama ")
If kunci = ([Forms]![login]![t_pass]) Then
DoCmd.OpenForm "data"
Else
msbox "password salah", "peringatan"
t_user = ""
t_pass = ""
t_user.SetFocus
End Sub
