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>>
