Sory ada yg ktinggalan.. Seharusnya :
Option Compare Database Dim intCount As Integer . . . . sesuai urutan seperti kode email sebelumnya Heru Wibowo From: Heru Wibowo [mailto:[email protected]] Sent: 23 Desember 2009 21:39 To: '[email protected]' Subject: RE: [belajar-access] Password Logon Dear All, Para Pakar Access...maaf saya coba bantu... Pak Idwan...coba kode berikut ini : Option Compare Database Dim intCount Integer If strPass = DLookup("Password", "tbllogon", "[UserID]=" & Chr(34) & Me.CboUserID.Value & Chr(34)) Then DoCmd.Close acForm, "FrmLogon", acSaveNo DoCmd.OpenForm "FrmUtama" Else MsgBox "Password Salah. Coba lagi", vbOKOnly, "Perhatian...!" Me.txtPassword.SetFocus End If intCount = intCount + 1 If intCount = 3 Then MsgBox "Anda sudah 3x logon. Harap hubungi administrator", vbOKOnly, "Peringatan!" Application.Quit End If Demikian semoga dapat membantu. Salam, Heru Wibowo From: [email protected] [mailto:[email protected]] On Behalf Of IdwanATuharea Sent: 23 Desember 2009 19:22 To: Belajar MsAccess Subject: [belajar-access] Password Logon Dear All, Aplikasi yang sedang Saya kembangkan, saya coba tambah dengan Password Logon (ini hasil belajar dari rekan2x semua), dimana saya membuat batasan setiap user untuk memasukan password sebanyak 3x, jika salah semua, maka otomatis akan keluar dari aplikasi, dengan uraian codenya sbb : If strPass = DLookup("Password", "tbllogon", "[UserID]=" & Chr(34) & Me.CboUserID.Value & Chr(34)) Then DoCmd.Close acForm, "FrmLogon", acSaveNo DoCmd.OpenForm "FrmUtama" Else MsgBox "Password Salah. Coba lagi", vbOKOnly, "Perhatian...!" Me.txtPassword.SetFocus intCount = intCount + 1 If intCount = 3 Then MsgBox "Anda sudah 3x logon. Harap hubungi administrator", vbOKOnly, "Peringatan!" Application.Quit End If End If Namun tidak berjalan sebagaimana mestinya, sudah 3x salah tetap saja masih dalam aplikasi, adakah yang salah dari step yg diatas ? mohon pencerahannya. Thanks, Idwan Nb : Insya Allah tahun depan baru pakai ilmunya Bang Haer, sekarang lagi baca2 sambil praktek dari buku KTAS. _____ Menambah <http://sg.rd.yahoo.com/id/messenger/trueswitch/mailtagline/*http:/id.messen ger.yahoo.com/invite/> banyak teman sangatlah mudah dan cepat. Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.409 / Virus Database: 270.14.117/2581 - Release Date: 12/23/09 08:28:00
<<image001.jpg>>
<<image002.jpg>>
