Pak Asep,
Coba yang ini bisa ngak...
-----------------------------------------
If IsNull(Me.USER ID) Then
MsgBox "You Must Enter a User ID"
Exit Sub
Else
If IsNull(Me.Password) Then
MsgBox "You Must Enter a Password"
Exit Sub
End If
End If
If Me.QPWD.Value = DLookup("pass", "t_pasword", "nama = '" & Me.USER ID.Value &
"'") Then
DoCmd.OpenForm "form utama", acNormal
Else
MsgBox "Invalid Password"
End If
Rgds/Sigit
Asep <[EMAIL PROTECTED]> wrote:
Sory utk di text box password yang di aplikasi saya namanya
Password bukan txtpassword jadi u/ hal ini gak masalah yang jadi masalah karena
ditabel password itu saya isi dengan 3 nama user dan 3 password, tapi yang bisa
dipakai login hanya 1 saja , mohon pencerahannya
Salam
Asep
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
Budi.P
Sent: Sunday, September 16, 2007 11:50 PM
To: [email protected]
Subject: Re: [belajar-access] Login Menu
mungkin...
If Me![TxtID] = id And Me![Password] = pw Then
menjadi :
If Me![TxtID] = id And Me![txtPassword] = pw Then
----- Original Message ----
From: Asep <[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, September 18, 2007 1:06:31 AM
Subject: [belajar-access] Login Menu
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
---------------------------------
Got a little couch potato?
Check out fun summer activities for kids.
---------------------------------
Got a little couch potato?
Check out fun summer activities for kids.
