di coba nih d bawah dengan terlebih dahulu buat form login dan tabel login
yg isinya user dan password y kali aja cocok...
Private Sub Command65_Click()
Dim VARA As Variant
VARA = DLookup("PASSWORD", "TbUSER", "USERNAME='" & Forms!login!USERNAME & "'")
If VARA = PASSWORD Then
DoCmd.OpenForm "FrmMAIN"
DoCmd.Close acForm, "LOGIN", acSaveYes
Else
MsgBox "USERNAME dan PASSWORD salah,silahkan di ulangi...!", vbCritical
USERNAME.SetFocus
USERNAME = ""
PASSWORD = ""
End If
End Sub
----- 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
