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.


About these ads

17 Tanggapan

  1. Trima kasih banyak atas tutorialnnya mas….

  2. makasih pak vibi….

  3. mas, aku mau tanya..aku punya database bernama transaksi.,,,kalo, kita membuat form login yang seperti di atas…apakah langsung menglink ke database aku ( database transaksi). apakah perlu di ketik nama database nya…???

  4. sangant membangtu mas blognyaa.. semoga lebih sering lagi di update…

  5. terimakasih… semoga tambah ilmunya karena ilmu yang diberikan dan dimanfaatkan orang lain tidak akan mengurangi ilmu pemberinya akan tetapi sebaliknya, salam

  6. mas, saya ada masalah pas bagian ini :

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

    lebih tepatnya yg pas quser, itu knp ya mas?
    trs utk kebawahnya hanya tinggal copas aja kan ya?

  7. setelah kita membuat forlogin tadi bagaimana cara memasukan data untuk login tersebut
    makasih

  8. Thx… semoga bisa share untuk coding2 yang lainya juga.. :D

  9. I have been exploring for a bit for any high-quality articles or weblog
    posts on this sort of area . Exploring in Yahoo I finally
    stumbled upon this website. Reading this info So i am happy to show that I have an incredibly
    just right uncanny feeling I came upon exactly what I needed.
    I so much definitely will make certain to do not forget this website and give it a
    glance regularly.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: