Scrip Login MC. Acces

Nah,,,
Dalam Microsoft Acces.. Biasanya Kita disuruh Untuk Membuat Form Login.
Agar Data yang kita buat hanya bisa digunakan oleh orang yang ber-hak.
Saya Kasi Solusi cara pembuatannya.
Simak Baik-baik.. Dan mohon maaf jika bahasanya tidak bagus..
Berikut cara-caranya..




Pertama .....
Anda Harus Membuat 1 tabel terlebih dahulu...
Dengan Cara berikut :

Save As Dengan nama : tabel_login (dalam penulisan nama tabel dan isi tabel, Tidak bisa memakai Space)
Kemudian Anda teruskan Seperti Contoh..

Kalo Sudah Anda Membuat Form .. Dengan Cara : Create -> Form Deseign
Maka Akan muncul Seperti ini

kemudian anda harus membuat 2 Text Box Dan 2 Button di Menu sebelah atas...
Edit Sampai Seperti ini :

Text Box Pertama, kita isi dengan nama "USERNAME"
Text Box Kedua, kita isi nama "Password"
Button Kita isi dengan nama "LOGIN" dan "EXIT"
Kemudian Kita "Klik Kanan" pada Text Box sebelah kanan "Username" -> Pilih Propertis Sampai Muncul

Pada Properties Pilih Other-> name .. kita ganti dengan "cmduser"
Begitu juga dengan Text Box sebelah kanan tulisan "Password" -> Properties -> Other -> name kita ganti "cmdpass" dan juga pilih Data-> Input Mask-> Password -> Finish

NAH...
Setelah ini.. kita akan memasukkan Scrip Berikut...
Caranya... Pada button "LOGIN" klik kanan-> Properties -> Event -> On click -> [Event Procedure] -> ... Kemudian Masukkan Scrip Berikut :

If IsNull(Me.cmduser.Value) Or Me.cmduser.Value = "" Then
    MsgBox "Username Belum Terisi !", vbCritical, "perhatikan"
    Me.cmduser.SetFocus
End If
If IsNull(Me.cmdpass.Value) Or Me.cmdpass.Value = "" Then
    MsgBox "Password Belum Terisi !", vbCritical, "perhatikan"
    Me.cmdpass.SetFocus
End If
If Me.cmdpass.Value = DLookup("password", "Tabel_login", "username='" & Me.cmduser.Value & "'") Then
MsgBox "BERHASIL LOGIN " & txtuser, vbInformation + vbOKOnly, "SUKSES"
DoCmd.Close
DoCmd.OpenForm "Menu"
Else
MsgBox "Username dan Password Yang anda masukkan salah !", vbCritical, "Peringatan"
    MsgBox "GAGAL MASUK", vbCritical, "GAGAL"
    Me.cmduser.Value = ""
    Me.cmdpass.Value = ""
    Me.cmduser.SetFocus
    gagal = gagal + 1
End If

Kalo Sudah kita "SIMPAN"

Kemudian tabel kita isi seperti Contoh

 

Nah... Sesudah itu.. Kita Membuat 1 Form lagi.. Caranya seperti diatas Create -> Form Deseign..

Kemudian Kita buat 1 button dan Kita Beri nama " Logout"

Pada button tersebut kita Klik kanan-> Properties-> data-> Onc clik-> [Event Procedure]-> ...

Kita Masukkan dengan Scrip Berikut : 

DoCmd.close

DoCmd.Openform "Form Login"

Kemudian Kita Save Form Tersebut dengan Nama : "menu"

Sesudah itu kita pilih Form Login dan kita isi sesuai dengan Yang ada di tabel_login..

Contoh :

SUDAH SELESAI