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.
Akses email lebih cepat. Yahoo! menyarankan Anda meng-upgrade browser ke
Internet Explorer 8 baru yang dioptimalkan untuk Yahoo! Dapatkan di sini!
http://downloads.yahoo.com/id/internetexplorer
