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...
