Para suhu access Terimakasih atas responnya, skr sudah bisa, kmrn saya kurang memberikan criteria pada dlookupnya. Sekali lagi terima kasih Salam Asep -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of sigit basuki Sent: Monday, September 17, 2007 7:28 PM To: [email protected] Subject: RE: [belajar-access] Login Menu 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: be [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 Pa ssword 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 <http://us.rd.yahoo.com/evt=48248/*http:/search.yahoo.com/search?fr=oni_ on_mail&p=summer+activities+for+kids&cs=bz> activities for kids. _____ Got a little couch potato? Check out fun summer <http://us.rd.yahoo.com/evt=48248/*http:/search.yahoo.com/search?fr=oni_ on_mail&p=summer+activities+for+kids&cs=bz> activities for kids.
