Cara Membuat Form Ganti Password di Microsoft Access

Pagi ini Insya Allah saya akan share tentang cara membuat form ganti password menggunakan Microsoft Access 2013. Tapi versi dari Microsoft Accessnya tidak mempengaruhi dalam pembuatan form ganti password ini, boleh menggunakan versi lain seperti 2010,2007 dan 2003.

Saya memposting judul ini karena semalam ada teman kampus yang nanyain cara membuat form ganti password di Microsoft Access, karena dia terbiasa menggunakan Microsoft Visual Basic jadi kebingungan kalau menggunakan Microsoft Access, padahal perlu diketahui bahwa Microsoft Access juga bisa mengggunakan bahasa Basic. Langsung saja ikuti langkah-langkahnya :

1. Buka Microsoft Access dengan cara klik tombol Start àAll Program à Microsoft Office à Microsoft Access
2. Kemudian Klik New Blank Database untuk membuat database baru
3. Buat sebuah tabel dengan nama TbUser (boleh diganti)
4. Isi 2 buah field (Nama_Pengguna dan Password)
5. Kemudian save TbUsernya
6. Selanjutnya klik menu Create kemudian pilih Form Design
7. Tambahkan objek Text Box dan Button, dan desain form seperti gambar dibawah ini

8.  Selanjutnya ubah properti dari objek seperti tabel dibawah ini

Nama Objek	Properti	Nilai
Label1	Caption	Nama Pengguna
Label2	Caption	Password Lama
Label3	Caption	Password baru
Label4	Caption	Konfirmasi Password
Text1	Name	Txtnama
Text2	Name	TxtPassLama
	InputMask	PASSWORD
Text3	Name	TxtPassBaru
	InputMask	PASSWORD
Text4	Name	TxtKonfirmasi
	Input Mask	PASSWORD
Button1	Name	cmdubah
	Caption	UBAH PASSWORD
Button2	Name	cmdBatal
	Caption	Batal

 9. Selanjutnya kita akan menuliskan kode program untuk form ganti password ini dengan cara klik kanan pada Button UBAH PASSWORD (name=”cmdubah”) kemudian pilih “Build Event...”, nanti muncul jendela baru dimana di jendela ini terdapat 3 pilihan untuk menuliskan rumus perintah, karena basic saya di bahasa basic maka silahkan klik “Code Builder”

10. Selanjutnya Copy kan Perintah di bawah ini

Private Sub cmdubah_Click()

Dim dies As String

Dim al As Object

If Me.txtpasslama.Value <> "" And Me.txtnama.Value <> "" Then

dies = "Select * from TbUser where Password='" & Me.txtpasslama.Value & "' and Nama_Pengguna='" & Me.txtnama.Value & "'"

Me.RecordSource = dies

Set al = Me.RecordsetClone

If Not al.EOF Then

If Me.txtpassbaru.Value <> Me.txtkonfirmasi.Value Then

MsgBox "Password tidak sesuai", vbInformation + vbOKOnly, "Informasi"

Else

Dim fatih As String

fatih = "Update tbUser Set Password='" & Me.txtpassbaru.Value & "' where (((TbUser.Nama_Pengguna)='" & txtnama.Value & "'));"

DoCmd.SetWarnings False

DoCmd.RunSQL fatih, True

DoCmd.SetWarnings True

MsgBox "Password berhasil di ganti", vbInformation

DoCmd.Close

End If

Else

MsgBox "Nama Login dan Password tidak di temukan", vbInformation + vbOKOnly, "Informasi"

Call kosong

Me.txtnama.SetFocus

End If

Else

MsgBox "Isi data terlebih dahulu", vbInformation, "Informasi"

Me.txtnama.SetFocus

End If

End Sub

11.  Selanjutnya buat sub baru dengan nama sub kosong di luar sub cmdubah, kodenya silahkan di copy

Sub kosong()

Me.txtnama.Value = ""

Me.txtpassbaru.Value = ""

Me.txtpasslama.Value = ""

End Sub

12.  Terakhir paste kode di bawah ini kedalam sub cmd batal

Private Sub cmdbatal_Click()

DoCmd.Close

End Sub

Kurang lebih jika kodenya sudah di gabung seperti gambar dibawah ini

13.  Silahkan Formnya di jalankan

kurang lebih langkah-langkahnya seperti di atas, semoga bermanfaat. kalau ada syntax atau kode perintah yang teman-teman kurang pahami silahkan curat-coret lewat comment atau boleh lewat email. Terimakasih sudah berkunjung

jika masih ke susahan silahkan download filenya di menu download