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
