IncCount ditaruh di Deklarasi Umum pak, di bwh Option Compare Database kalo ditaruh di dalam Sub tsb, ntar nilainya balik lg ke posisi awal. silahkan dicoba..
2009/12/23 IdwanATuharea <[email protected]> > > > 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 banyak teman sangatlah mudah dan > cepat.<http://sg.rd.yahoo.com/id/messenger/trueswitch/mailtagline/*http://id.messenger.yahoo.com/invite/> > Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! > >
