Private Sub Form_Open(Cancel As Integer)
mypass = "sembarangnama"
If LCase(InputBox("masukkan password :", "Konfirmasi")) <> mypass Then
MsgBox "password salah !!", vbExclamation
Cancel = True
End If
End Sub
2010/5/26 Ahmad <[email protected]>
>
>
> Buat para pakar access dan teman2 milis.
>
> Di access adakah cara untuk membuat sebuah form yang berPassword, sehingga
> pada waktu sebuah form akan dibuka maka akan muncul sebuah textbox yang
> meminta password seperti kalo kita membuka sebuah file yang ada
> password-nya.
>
> Terima Kasih atas sharingnya.
>
>
>
--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------
