Access >> Membuat Form LogIn

Walaupun tidak semua aplikasi memerlukan proteksi, tetapi ada baiknya dilengkapi dengan form untuk login. Minimal bisa dicatat siapa saja yang menjalankan aplikasi, sehingga jika terjadi masalah dengan aplikasi bisa diketahui siapa pemakai terakhir.

Untuk membuat form login, langkah-langkahnya sebagai berikut :

1. Buat tabel baru dengan nama Tuser dan definisikan field dengan
nama userid dan pword, keduanya bertipe text.

2. Buat form baru dan tempatkan dua buah textbox. Namakan textbox dengan
txtuser dan txtpword. Tambahkan sebuah button dan beri nama cmdlogin.



3. Untuk textbox txtpword ubah properties untuk Data-Input Mask menjadi Password.




4. Tambahlan script untuk event click button cmdlogin :

Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tuser where userid ='" & txtuser & _
"' and pword ='" & txtpword & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
‘proses selanjutnya tulis disini……
Else
pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")
End If
End Sub

File .mdb download disini