Tutorial VBA di ACCESS (3)-Membuat form login

Setelah beberapa minggu (mungkin lebih lama lagi) tidak menulis maka hari ini ada sedikit waktu untuk melanjutkan tutorial sederhana membuat aplikasi menggunakan VBA (visual basic on apllication) di MS Access.

Setelah kita bisa membuat tabel-tabel yang dibutuhkan pada tutorial no 2 maka saat ini akan saya tunjukkan langkah-langkah mudah untuk membuat form login.

Langkah-langkahnya adalah sebagai berikut:

1. Pada tab forms pilih “create form in design view”

Maka nanti akan disediakan form kosong yang siap untuk didesain sesuai dengan keinginan. Untuk mendesain form maka access sudah menyediakan tool yang mempunyai fungsi masing-masing.

keterangan:

-textbox = digunakan untuk memasukkan data bebas. user bebas memasukan data      apapun ke dalam komponen textbox ini.

-labe = digunakan sebagai keterangan / label

– checkbox = digunakan untuk menu pilihan dimana user boleh memilih lebih dari saru.

-option = digunakan untuk menu pilihan dimana user hanya boleh memilih salah satu dari option yang disediakan.

– command button = komponen yang digunakan untuk menjalanakan perintah tertentu.

– listbox = untuk menampilkan data berupa tabel atau list.

Sebenarnya masih banyak lagi komponen yang disediakan oleh access, untuk lebih jauh mengenai penggunaan komponen akan dijelaskan sambil “berjalan”.

Setelah anda berkenalan dengan komponen yang ada maka saatnya untuk mendesain form sesuai dengan kebutuhan.

Cara mendesain form adalah dengan meng-click komponen yang dibutuhkan kemudian clik pada form dan drag. Maka komponen akan terpasang secara otomatis pada form.

Silahkan anda desain form seperti gambar dibawah ini:

keterangan:

KOMPONEN	NAMA
textbox	txtid
textbox	txtpass
command button	cmdok
command button	cmdcancel

Tulisan yang diisikan pada txtpass akan muncul tanda “*” supaya menjaga kerahasiaan dari password yang diketikkan nantinya. Untuk bisa membuat seperti yang dimaksutkan adalah dengan cara sebagai berikut:

1. Click kana pada txtpass dan pilih properti

2. Clik input mask kemudian clik tombol kecil yang ada pada sebelah kanan yang bertuliskan “…”.

3. Pada pilihan mask yang ada pilihlah “password” kemudian finish

Sampai disini saya anggap anda sudah selesaim mendesain form login anda.

Langkah berikutnya adalah meng-coding

Logikanya adalah: ID dan Password yang diketikkan pada textbox akan dicek ke tabel Tuser. Apakah ditemukan data dengan ID dan Password yang diketikkan. Jika ada maka akan dimunculkan pesan “Login sukses” kemudian ketika pesan dipilih OK akan memunculkan menu utama aplikasi yang akan kita buat. Apabila tidak ditemukan maka akan memunculkan pesan “Login gagal”

Kejadian (event) akan terjadi ketika tombol OK diclick. Sehingga kita akan memasukkan koding kedalam event CmdOK_Click (). Caranya adalah:

1. click kanan pada CmdOK  kemudian pilih pilih build event.

2. Akan mucul jendela baru dan pilih Code builder kemudian pilih OK

Maka akan muncul jendela koding dengan tulisan

Private Sub cmdok_Click()

letakkan koding disini.

end sub

Pada “letakkan koding disini ” ketikkan koding program sebagai berikut:

Dim sql As String
Dim rs As Object
If txtid.Value <> “” And txtpass.Value <> “” Then

sql = “select * from quser where id='” & txtid.Value & “‘ and pass='” & txtpass.Value & “‘”

Me.RecordSource = sql
Set rs = Me.RecordsetClone
If Not rs.EOF Then
MsgBox “Login sukses.”,vbinformation
DoCmd.Close

Else
MsgBox “Id dan Password tidak ditemukan.”, vbExclamation
End If

Else
MsgBox “Isikan data dengang lengkap terlebih dahulu.”, vbInformation + vbOKOnly

End If

selamat mencoba….semoga sukses.