teknologi

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: 
  1. Buat tabel untuk daftar data akun login lalu simpan dan berikan nama tabel sesuai keinginan Anda. Untuk dalam tulisan ini kami menggunakan Tabel Password
  2. Desain data field untuk tabel database seperti pada gambar di bawah: 
    mendesain format field tabel database untuk user

  3. Isikan data username dan password seperti gambar di bawah sesuai kebutuhan
  4. Buat formulir login dan berikan nama sesuai kebutuhan. Untuk contoh dalam tulisan ini kami menggunakan nama login2.
  5. 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. 


  6. Pada tombol login masukkan fungsi menggunakan coding VBA. Adapun baris koding yang diisikan ditampilkan pada gambar di bawah.
  7. 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. 

Posting Komentar