09 August 2020

Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access

 Assalamu'alaikum Wr.wb.
Informasi-beritaandre-Salam sahabat pecinta excel pada kesempatan kali ini saya akan membagikan kepada anda tutorial tentang Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Menggunakan Database Access.
Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access

Koneksi form login ini tidak hanya bisa menggunakan excel tapi bisa juga memanfaatkan yaitu Database Microsoft Accsess. biasanya Koneksi Database Access ini banyak digunakan oleh programmer yang membuat aplikasi contohnya dengan pemrograman Delphi, Java, VbNet dll.

Membuat form login di excel biasanya kebanyakan saya lihat koneksinya hanya memanfaatkan database yang terletak di excel itu sendiri. maka dari itu saya akan membuat koneksi form login excel dengan sedikit berbeda dengan yang pernah anda buat.
Baiklah silahkan anda ikuti tutorialnya dibawah ini.

Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Menggunakan Database Access.

Microsoft Access

  • Pertama, silahkan anda buka microsoft access terlebih dahulu dan buatlah nama databasenya contohnya disini saya buat namanya (Database) seperti yang anda lihat pada gambar berikut.
Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access
  • Klik pada tabel dan pilih Design View dan ganti nama tabelnya Tabel_Login
Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access
  • Buatlah nama Field Name nya seperti gambar di bawah ini.
Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access
  • Setelah itu klik pada Data Type Password dan lihat dibagian bawah Input Mask, klik titik tiga (...) dan ganti dengan password.
  • Save, dalam pembuatan database sudah selesai.

Microsoft Excel

  • Selanjutnya silahkan anda buka Microsoft Excel - Developer - Visual Basic dan Buatlah Form login seperti dibawah ini (Disainnya, silahkan sesuaikan dengan keinginan anda).
  • Component: 2 Textbox, 2 CommandButton.
Cara Membuat Form Login Hak Akses di Excel Dengan Koneksi Database Access

  • Langkah berikutnya silahkan anda double klik tombol login silahkan masukkan script di bawah ini.
Private Sub btn_Login_Click()
If Me.TextBox1.Value = "" Then
MsgBox "Silahkan Masukkan Username", vbCritical
Exit Sub
End If

If Me.TextBox2.Value = "" Then
MsgBox "Silahkan Masukkan Password", vbCritical
Exit Sub
End If
Call User_Login(Me.TextBox1.Value, Me.TextBox2.Value)
End Sub
  • Selanjunya klik Textbox1 dan Textbox2 copas script berikut.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call btn_Login_Click
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call btn_Login_Click
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call btn_Login_Click
End Sub

  • Selanjutnya silahkan anda tambahkan 1 buah Module dan copas script berikut.

'Coding Module
Option Explicit

Sub User_Login(User_Id As String, Password As String)

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Dim qry As String

cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Database\Database.accdb"

qry = "SELECT * FROM TBL_LOGIN WHERE User_id = '" & User_Id & "'"
rst.Open qry, cnn, adOpenKeyset, adLockOptimistic

If rst.RecordCount = 0 Then
MsgBox "Silahkan Cek User Id Anda", vbCritical
ElseIf rst.Fields("Password").Value = Password Then
MsgBox "Selamat Anda Berhasil Login", vbInformation
FORMLOGIN.Hide
UserForm2.Show

Else
MsgBox "Silahkan Cek Password Anda", vbCritical
End If

rst.Close
cnn.Close
End Sub
  • Terakhir silahkan save dan coba anda jalankan (Run/F5).
File nya silahkan anda download dibawah ini.
Sekian dulu cara membuat form login menggunkaan koneksi database access.
Semoga Bermanfaat.

Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.