Untuk pertanyaan seperti ini lebih bagus dikirimkan ke milis, agar banyak rekan yang bisa membantu.
Kalau dari yang saya lihat, script nya sdh benar.
Apakah user yg dimasukkan ada passwordnya di database?
Untuk tracing, tandain / bookmark pada perintah
If rs!UserPass <> Me.txtPass Then
Me.lblCorrectPass.Visible = True
Me.txtPass.SetFocus
Exit Sub
End If
Lalu pada Immediate window cek isi rs!UserPass dan me.txtPass
Kalau kosong berarti Null.
Ingat, setiap operasi yg melibatkan nilai Null hasilnya Null, termasuk operasi perbandingan.
Jika problemnya karena nilai Null, mungkin solusnya hanya perlu mengubah perintah menjadi:
If Nz(rs!UserPass,"") <> Nz(Me.txtPass,"") Then
If Nz(rs!UserPass,"") <> Nz(Me.txtPass,"") Then
Good luck!
Haer Talib
RumahAccess Indonesia
Tempatnya Belajar Microsoft Access
Artikel | Forum | Milis | Download | Training | Links | Blog | Event
2015-09-23 12:11 GMT+07:00 Indra Rakhim <indra.rakhim@yahoo.co.id>:
Dear Bang Haer,Mohon Bantuanya,1. saya ada Form Login akan tetapi saat login cukup dengan Username saja langsung bisa masuk ke Menu Utama. Bagaimana cara membuat agar saat uname aja tidak bisa login harus dengan passwordnya:begini Coding nya:Private Sub btnLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("TblUser", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserN='" & Me.txtUserID & "'"
If rs.NoMatch = True Then
Me.lblCorrectUserID.Visible = True
Me.txtUserID.SetFocus
Exit Sub
End If
Me.lblCorrectUserID.Visible = False
If rs!UserPass <> Me.txtPass Then
Me.lblCorrectPass.Visible = True
Me.txtPass.SetFocus
Exit Sub
End If
Me.lblCorrectPass.Visible = False
DoCmd.OpenForm "FrmMainMenu"
DoCmd.Close acForm, "FrmLogin"
End Sub2. Saya ingin capture user yang login pada form main utama dengan menggunakan Textbox atau Label.Contoh : Welcome User : IndraTerima kasih atas bantuannya.Salam,
__._,_.___
Posted by: Haer Talib <haertalib@gmail.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar