Membuat Form Login Pada Ms. Access 2010

MEMBUAT FORM LOGIN PADA MICROSOFT ACCES2010

Oke pertama kita buka microsoft access 2010,
klik button start,
-lalu pilih all program
-microsoft office2010
-kemudian klik pada ms.access2010.

setelah kita masuk pd tampian awal ms.access2010
kia akan buat database baru
-kita pilih icon (Blank Database)
-kemudian berinama (Login)
-sesuaikan tempat penyimpanan, disini saya akan menyimpan data base sy di D:/Document/PPN3
-lalu klik (Create)

maka kita sudah masuk ketampilan database ms.access
-pertama kita akan membuat tabel user,
-pilih icon DesignView
-akan ada perintah utk memberi nama tabel-
-kita beri nama (TUser) lalu OK!
-setelah itu kita harus isikan field2 yg akan dibuat untuk form login

-field pertama kita ketikan (UserID)-typedata (autonumber)
-kedua field (UserName)-typedata (Text)
-terakhir field (Password)-ype data (Text)
-kita ubah pada field properties, pd baris INPUT MASK kita ganti jd password

nah selanjutnya kita save tabel TUser klik kanan pilih close saja ad peringatan kita klik YES.

selajutnya kita akan buat form,
-klik create pd toolbar,
-kemudian pd menu ribbon kita pilih dan klik icon form design.
-pd form properties sheet ubah pop up jd yes
-modal jd yes
-lalu kita ganti background'y dgn memasukan sebuah gambar
-pilih picture-pilih gambar yg kita inginkan.
-ganti picture size mode menjadi Strecth

kita sesuaikan bentuk form yg kita inginkan
-selnajutnya kita buat sebuah Label
-klik icon Label
-letakan pd lembar form
-isikan label dgn kata yg kita inginkan atur ukuran dan warna
-kemudian close dan save form tersebut
-beri nama FMenu-OK!

-lalu kita buat lagi satu form
-klik create-form design
-masukan gbr lg sbg background
-buat sebuah combobox dgn nama (cboNama) dgn caption (Username)
-relasikan combobox dg tabel Tuser, pilih userID dan userName, dengan UserName sbg pengatur relasinya.
-tambahkan 1tetxbox dg nama txtPword dan caption Password
-tambahkan 2buah button command: 1command login dg name cmdLogin
dan 1command exit dg name cmdExit

atur posisi sesuai keinginan...


-kemudian klik kanan pd cmdlogin-buildEvent-code builder-ok.
-dan ketikan kode VBA seperti berikut.


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 Lastchild"
        DoCmd.Close acForm, "LOGIN2", acSaveNo
        DoCmd.OpenForm "Switchboard"
        
        Else
        MsgBox "Password yang anda masukkan salah, harap perhatikan Caps Lock anda", vbCritical, "Lastchild Message"
        Me.txtPword.SetFocus
End If





-ganti LOGIN2 jd LOGIN
-dan switchboard jd FMenu
-close lembar code VBA
-save form yg td kita buat dgn nama LOGIN
-pd form properties kita ganti lg Modal & Popup jd YES
-lalu save

-skrg klik file
-access option
-current database-navigation-hapus centng pd (Display navigation pane)-OK.
-minimize panel ribbon

-klik file lagi
-acces option
-current database
-display form ganti jd LOGIN -OK!

Selesai dan tutup ms.acces...
Coba buka database yg td kita buat...