Membuat Laman FORM LOGIN di Ms. Access

Sahabat Setia blog Layanan-ICT pada kesempatan kali ini admin ingin membagi sedikit informasi tentang tutorial bagaimana cara membuat form login sederhana dan juga file mdb form login, berikut langkah-langkahnya : 

Pertama-tama silahkan anda buka program Microsoft access terlebih dahulu. dengan memilih Blank Database

Kedua membuat nama untuk Database nya. Contoh : Login kemudian Create

ketiga masuk ke menu Table dan klik kanan pada nama tabel nya lalu pilih Desain View dengan mengisis datya sebagai berikut : Table-table yang anda perlu buat cuma 1 tabel dengan nama TUser dengan field UserID, UserName, dan UserPassword

Perhatikan untuk Field User Password Input mask dengan memilih tipe "password"  kemudian Klik Finish

Kemudian Buat Form dengan menggunakan FORM DESIGN dan beri nama "LOGIN" dan buatlah form untuk Laman LOGIN, dibawah contoh laman login yang saya buat.

Buat: combo box dgn name: cboNama, caption: User name relasikan combo dengan tabel TUser , pilih UserID dan UserName dengan UserName sebagai Pengatur relasinya. lihat dan ikuti penjelasan gambar berikut !

ikuti langkah-langkah berikut, saya tampilkan dalam bentuk gambar, mudah-mudahan lebih dimengerti.

  Gbr. 1

 Gbr. 2

 Gbr. 3

  Gbr. 4

 Gbr. 5

Gbr. 6

Finish, selanjutnya memberi 1 textbox dengan name: txtPword dan caption : password, 2 buah Command: 1 command login dengan name: cmdLogin, 1 buah command exit dengan name :cmdExit, lihat penjelasan berikut ini !

 Gbr. Membuat Field Password

 Gbr. Membuat Button LOGIN dan EXIT dengan format Nama dan Caption

 Gbr. Membuat macro fungsi pada Button LOGIN dan Exit

Caranya Klik Kanan pada Button masing-masing LOGIN dan EXIT lalu pilih Build Event..

Gbr.Kode Macro LOGIN dan Exit

1. Kode LOGIN : Copy_Vaste Code Macro di bawah ini sesuai Button yang dipilih 

Private Sub cmdLogin_Click()
If IsNull(Me.cboNama) Or Me.cboNama = "" Then
        MsgBox "Pilih Username nu tos tersedia", vbOKOnly, "Leubetkeun Username"
        Me.cboNama.SetFocus
        Exit Sub
End If
If IsNull(Me.txtPword) Or Me.txtPword = "" Then
        MsgBox "Passwordna Kosong, Lebeutkeun Heula Passwordna !", vbOKOnly, "Leubetkeun 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 "Alhamdulillah....Login Berhasil", vbOKOnly, "Iding Jaenal Abidin, S.Pd, MTCNA, MTCRE"
        DoCmd.Close acForm, "LOGIN", acSaveNo
        DoCmd.OpenForm "Aplikasi"
     
        Else
        MsgBox "Punten Password Lepat, Perhatoskeun Caps Lock !", vbCritical, "Iding Jaenal Abidin, S.Pd, MTCNA, MTCRE"
        Me.txtPword.SetFocus
End If
End Sub 

2. Kode Exit : Copy_Vaste code macro dibawah ini sesui Buton yang dipilih 

Private Sub cmdExit_Click()
If MsgBox("Tutup Aplikasi ?", 33 + 256, "TUTUP APLIKASI") = 1 Then
        DoCmd.Close
    Else
    End If
End Sub

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

Selesai, semoga artikel ini bermanfaat dan bisa dipergunakan sebagaimana mestinya. disini admin memberikan Contoh Form LOGIN.. Silahkan Download jika sobat tertarik.