√ Cara Membuat Login Formulir di Sistem Access Database Pasien

Sistem login merupakan salah satu elemen yang fundamental dalam kebanyakan aplikasi dan situs web saat ini.

Penggunaan sistem login memungkinkan pengguna untuk mengakses dan menggunakan layanan atau fitur yang tersedia dengan cara yang aman dan terstruktur. Dalam konteks digital modern yang terus berkembang, sistem login menjadi pintu gerbang utama yang mengatur akses ke berbagai jenis informasi dan layanan online. Sistem login secara umum berfungsi dengan meminta pengguna untuk memasukkan kredensial yang unik, seperti nama pengguna dan kata sandi, atau metode otentikasi lainnya, seperti verifikasi dua faktor, untuk memverifikasi identitas mereka sebelum diberikan akses ke akun atau platform tertentu. Dengan menggunakan sistem ini, pengguna dapat mengelola privasi dan keamanan data pribadi mereka, serta mengontrol interaksi mereka dengan platform online.

Dalam tulisan ini, kita akan bersama mencoba untuk membuat formulir login untuk sistem access database pasien. Langkah pertama yaitu:

Buat tabel untuk daftar data akun login lalu simpan dan berikan nama tabel sesuai keinginan Anda. Untuk dalam tulisan ini kami menggunakan Tabel Password
Desain data field untuk tabel database seperti pada gambar di bawah:
mendesain format field tabel database untuk user
Isikan data username dan password seperti gambar di bawah sesuai kebutuhan
Buat formulir login dan berikan nama sesuai kebutuhan. Untuk contoh dalam tulisan ini kami menggunakan nama login2.
Desain formulir dengan menambahkan field Combo box, text, dan button. Untuk combobox pilihan datanya diambil dari tabel database, untuk text dihubungkan dengan bagian field User Password di tabel password. Untuk button berikan label dengan CmdLogin untuk text login dan CmdExit untuk fungsi exit.
Pada tombol login masukkan fungsi menggunakan coding VBA. Adapun baris koding yang diisikan ditampilkan pada gambar di bawah.
Sesuaikan beberapa baris koding yang ditanda merah pada gambar di bawah dengan field yang sudah dibarikan label nama.

Berikut kode lengkapnya, bisa langsung dicopas saja ya

Private Sub CmdLogin_Click()
If IsNull(Me.CboNama) Or Me.CboNama = "" Then
MsgBox "Pilih Username terlebih dahulu", vbOKOnly, "Masukkan Username"
Me.CboNama.SetFocus
Exit Sub
End If

If IsNull(Me.TxtPword) Or Me.TxtPword = "" Then
MsgBox "Masukkan Passwordnya...", vbOKOnly, "Masukkan Password"
Me.TxtPword.SetFocus
Exit Sub
End If
If Me.TxtPword.Value = DLookup("UserPassword", "Tabel password", "[UserID]=" & Me.CboNama.Value) Then
' MyUserID = Me.Cbo.Value
MsgBox "Login anda berhasil", vbOKOnly, "Konfirmasi"
DoCmd.Close acForm, "LOGIN2", acSaveNo
DoCmd.OpenForm "input_data"
Else
MsgBox "Password yang anda masukkan salah", vbCritical, "Konfirmasi"
Me.TxtPword.SetFocus

End If
End Sub

Demikian tutorial ini, selamat mencoba dan jika ada yang ingin didiskusikan bisa kirim komentar di bawah ya.

Abidin, KR

Add Comment

teknologi

Sabtu, 09 Maret 2024