Form Login Sederhana

MEMBUAT FORM LOGIN ACCESS 2003 DENGAN 4 FUNGSI
(IF, IsNull, DCount, DLookup)

Kali ini kita akan mencoba membuat sebuah form login, seperti dalam program atau aplikasi lainnya, namun kali ini kita akan membuat Form Login hanya dengan 4 buah fungsi, yaitu fungsi IF , DCount , DLookup , dan Fungsi IsNull. Jika anda belum memahami keempat fungsi ini, silahkan lihat di artikel Fungsi yang wajib dipahami Bag 1, Bag 2, Bag 3, Bag 4 dalam blog ini, hal ini untuk lebih memudahkan anda dalam membuat atau mengikuti artikel yang akan penulis sampaikan sekarang ini. Jika anda sudah paham, silahkan lanjutkan pada artikel ini.

Berikut adalah cara kerja atau alurnya :

Pertama :

Access akan mengecek apakah TextBox NamaUser kosong atau tidak, Jika kosong maka Access akan memberitahu user kalau dia belum memasukkan NamaUser dan Access akan mengembalikan kursor ke TextBox NamaUser. (Fungsi IsNull)

Kedua :

Access akan mengecek apakah TextBox Password kosong atau tidak, Jika kosong maka Access akan memberitahu user kalau dia belum memasukkan Password dan Access akan mengembalikan kursor ke TextBox Password. (Fungsi IsNull)

Ketiga :

Access akan mengecek apakah NamaUser yang dimasukkan oleh seorang user itu ada atau tidak didalam Table User, Jika NamaUser tidak ada maka Access akan menampilkan pesan Nama user tidak ada/belum terdaftar lalu mengembalikan kursor ke TextBox NamaUser. (Fungsi DCount)

Keempat :

Access akan mengecek password yang dimasukkan apakah sesuai dengan data yang ada dalam table User atau tidak, jika tidak sesuai maka access akan menampilkan pesan bahwa password yang dimasukkan salah lalu mengembalikan kursor ke TextBox Password. (Fungsi DLookup)

Jika user memasukkan NamaUser dan Password dengan benar maka Access akan menampilkan pesan bahwa user telah berhasil Login lalu access akan menutup Form Login.

Berikut adalah contoh pembuatannya :

1. Buat tabel dengan nama tblUser, field yang dibutuhkan :

 - NamaUser : Text

 - Password : Text

 - StatusUser : Number

Untuk field StatusUser, cara validasinya adalah: 0 untuk status user yang tidak aktif, selain 0 maka status user adalah aktif.

2. Isikan data-data yang diperlukan, dengan mengklik dua kali pada tabel tblUser yang baru saja dibuat.

3. Buat Form dengan nama frmLogin

4. Masukkan 2 buah Textbox dengan nama txtUser dan txtPassword

5. Masukkan juga 2 buah command button dengan nama cmdOK dan cmdCancel

6. Masukkan code berikut ini pada event OnClick cmdOK :

Dim strPassword As String
If IsNull(Me.txtUser) Then
MsgBox "Anda belum memasukkan Nama User anda !", vbExclamation
txtUser.SetFocus
ElseIf IsNull(Me.txtPassword) Then
    MsgBox "Anda belum memasukkan Password anda !", vbExclamation
    txtPassword.SetFocus
Else
    If DCount("NamaUser", "tblUser", "[NamaUser] = '" & txtUser & "'") > 0 Then
    strPassword = DLookup("Password", "tblUser", "[NamaUser] = '" & txtUser & "'")
        If DLookup("StatusUser", "tblUser", "[NamaUser] = '" & txtUser & "'") = 0 Then
        MsgBox "Status User '" & txtUser & "' sudah tidak aktif, silahkan hubungi administrator.", vbExclamation
        Me.txtUser.SetFocus
        Else
            If txtPassword = strPassword Then
            MsgBox "Selamat, anda berhasil Login", vbInformation
            DoCmd.OpenForm "frmUtama"
            DoCmd.Close acForm, "frmLogin"
            Else
            MsgBox "Password yang anda masukkan salah", vbCritical
            Me.txtPassword.SetFocus
            End If
        End If
    Else
    MsgBox "Nama User tidak ada / belum terdaftar", vbInformation
    Me.txtUser.SetFocus
    End If
End If

7. Masukkan code berikut ini pada event OnClick cmdCancel :

Dim PesanKonfirm As String
PesanKonfirm = "Apakah anda yakin tidak akan Login ?"
If MsgBox(PesanKonfirm, vbYesNo, "Konfirmasi") = vbYes Then
DoCmd.Close 'gunakan DoCmd.Quit untuk langsung menutup Microsoft Access
End If

8. Klik save.

9. Buat sebuah Form Utama dengan nama frmUtama.

10. Setelah selesai silahkan ditest form login yang telah dibuat.

Untuk file contoh Form login ini bisa didownload dari 4shared

Semoga bermanfaat….

Posted in: belajar access 2003