Assalamualaikum Wr. Wb.,
Dear para suhu Access,
Saat ini saya sedang ingin belajar membuat form untuk login user ke
database.
Dalam form design saya membuat 2 textbox dengan nama TxtID dan
TxtPassword, kemudian dalam form tersebut saya buat command Button
dengan even On Click dengan coding sbb:
Private Sub CmdLogin_Click()
Dim id As String, pw As String
Dim pesan As String
id = DLookup("[Nama]", "[t_password]")
pw = DLookup("[Pass]", "[t_password]")
If Me![TxtID] = id And Me![Password] = pw Then
DoCmd.OpenForm "Form utama"
Else
pesan = MsgBox("User ID dan Password Salah...", vbYesNo, "Password
Salah
.")
If pesan = vbYes Then
Me![TxtID].SetFocus
End If
If pesan = vbNo Then
DoCmd.Quit
End If
End If
End Sub
Dan dalam database juga saya membuat table T_Password yang berisi Field
Nama dan Pass, masalahnya ketika saya masukan ID dan Password hanya satu
ID dan satu password saja yang bisa dikenal lainnya tidak bisa dipakai
login.
Mohon pencerahannya dari para Master Access, sebelumnya saya ucapkan
terima kasih.
Wassalamualaikum Wr. Wb.,
Asep
Selamat Menunaikan Ibadah Puasa 1428H, semoga amal ibadah kita diterima
Allah SWT. Amiiiin
.
v
