Cara Buat Form Login Database Ms.Acces

Menu Login DataBase
Form Login, biasanya dibuat untuk membatasi hak akses untuk user melihat dan berinteraksi dengan database. Bahasa Wong Ndeso Pintu Masuk Kamar Khusus Untuk Semedi. Dan hanya user/pengguna yang sudah terdaftar yang bisa masuk ke area isi database yang dirahasiakan.

Berdasarkan Pengalaman Pribadi biasanya from login digunakan untuk aplikasi yang benar-benar menggunakan bahasa pemprograman dimana soucre code yang dibuat rumit, Menguras pikiran serta memakan waktu yang sangat lama. Namun sangat mudah pada saat digunakan oleh pengguna dengan hasil yang sangat sempurna.Walaupun pada isi konten ini belum membahas sejauh itu, namun tidak salah jika kita mengetahui bagaimana proses pembuatannya. Capture Dibawah ini contoh Login Sederhana

Cara buatnya pun sebenarnya hampir sama seperti pembuatan sub menu form, Buatlah dua buah texs box, command button, modul dan tabel di database.

Pembuatan Form

Create > Design > Texs Boxs drag letakkan pada form, Edit kedua Texs Boxs dan Command Button seperti contoh diatas. Masih di area Form Pilih View Code maka tampil from yang masih kosong, Copy Soucre Code (vba) dibawah sana. Klik DISINI jika ingin melihat kembali tentang Pembuatan From

Penjelasan

1. User :Untuk Mengisi User Pengguna
2. Password : Untuk mengisi Password Yang sudah ditentukan
3. Go : Untuk Masuk Pada Form Menu Utama

Soucre Code VBA FROM
Option Compare Database
Private intLogonAttempts As Integer

Private Sub Form_Open(Cancel As Integer)
Me.Log.SetFocus
End Sub

Private Sub cboEmployee_AfterUpdate()
Me.txtPassword.SetFocus
End Sub

Private Sub cmdLogin_Click()
    If IsNull(Me.Log) Or Me.Log = "" Then
            MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
            Me.Log.SetFocus
        Exit Sub
    End If


    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
            MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
            Me.txtPassword.SetFocus
        Exit Sub
    End If
 If Me.txtPassword.Value = DLookup("Password", "Tuser", "[ID]=" & Me.Log.Value) Then

        ID = Me.Log.Value
      
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "form1"

        Else
        MsgBox "Password Invalid.  Coba Ulang", vbOKOnly, "Invalid Entry!"
        Me.txtPassword.SetFocus
    End If
  
  
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
        MsgBox "Hubungi administrator setempat.", vbCritical, "Restricted Access!"
        Application.Quit
    End If
  
End Sub

Buat modul lihat gambar dibawah

Soucre Code (VBA)

Option Compare Database

Public ID As Long

Buat Tabel Di database, Setinglah Seperti gambar dibawah, Jika tabel dibuka hasilnya sama persis seperti Gambar dibawah kalimat Go On berarti sudah bisa di gunakan.

Go oN

Perhatikan Soucre Code (vba) yang untuk form login, dibawah barisan kalimat ID = Me.log.value tepatnya DoCmd.OpenForm "Form1"  Ganti Form1 dengan nama form menu utama yang kita buat.

 Klik Link DISINI cara membuat menu Input data di microsoft excel 2010