Mungkin...
If Me.txtPassword.Value = DLookup("fieldPassword", "tbl_user", _
"fieldUser=" & Me.TxtID.Value) Then
'open form pengguna... .
Slm,
Ad
--- In [email protected], "Budi.P" <[EMAIL PROTECTED]> wrote:
>
> 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
>
> Assalamu'alaikum 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.
>
> Wassalamu'alaikum Wr. Wb.,
>
> Asep
>
> "Selamat Menunaikan Ibadah Puasa 1428H, semoga amal ibadah kita
diterima Allah SWT. Amiiiin
."
>
> v
>
>
>
>
____________________________________________________________________________________
> Luggage? GPS? Comic books?
> Check out fitting gifts for grads at Yahoo! Search
> http://search.yahoo.com/search?fr=oni_on_mail&p=graduation+gifts&cs=bz
>
