Script Login Pada Microsft Acces

Sekedar sharing aja gan, ini saya mau sharing script buat form login di microsoft acces, ini script 100% buatan saya, kalo misal ga support sama database agan2 tinggal rubah aja,
1. Pertama-tama silahkan anda buka program Microsoft access terlebih dahulu.

     Pilih yang Blank Document, dan anda akan mendapati tampilan dasar ms.access.
     Table-table yang anda perlu buat cuma 1 tabel dengan nama TUser dengan field UserID, UserName, dan UserPassword.

2. Setelah itu buat form dengan FORM DESIGN

    Buat: 1 combo box dgn name: cboNama, caption: User name
                  relasikan combo dengan tabel TUser , pilih UserID dan UserName dengan UserName sebagai Pengatur relasinya.
              1 textbox dengan name: txtPword dan caption : password
              2 buah Command: 1 command login dengan name: cmdLogin
                                               1 buah command exit dengan name :cmdExit

            Atur posisi seperti gambar diatas, bisa dimodofikasi sesuai keinginan anda sendiri.


3. klik kanan di cmdLogin, pilih Build Event..

    masukkan kode VBA dibawah ini:

Lihat:

If IsNull(Me.cboNama) Or Me.cboNama = "" Then
        MsgBox "Pilih Username anda terlebih dahulu", vbOKOnly, "Masukkan Username"
        Me.cboNama.SetFocus
        Exit Sub
End If

If IsNull(Me.txtPword) Or Me.txtPword = "" Then
        MsgBox "Passwordnya jangan lupa dimasukkan", vbOKOnly, "Masukkan Password"
        Me.txtPword.SetFocus
        Exit Sub
End If

If Me.txtPword.Value = DLookup("UserPassword", "TUser", "[UserID]=" & Me.cboNama.Value) Then
        MyUserID = Me.cboNama.Value
        MsgBox "Login anda berhasil", vbOKOnly, "Message Denis"
        DoCmd.Close acForm, "LOGIN", acSaveNo
        DoCmd.OpenForm "Switchboard"
       
        Else
        MsgBox "Password yang anda masukkan salah pak, harap perhatikan caps lock anda", vbCritical, "Hellion Message"
        Me.txtPword.SetFocus
End If

setelah itu close aja visual basic nya.


ini contoh form login saya