ACCESS FEED: Bls: [belajar-access] Re: Login dan Capture ID User yang Login pada Form Main Menu

Jumat, 25 September 2015

Bls: [belajar-access] Re: Login dan Capture ID User yang Login pada Form Main Menu

Noted bang haer, lain x akan saya kirimkan ke millis. Terima kasih atas bantuannya.

Salam,

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D

Pada Jumat, 25 September 2015 9:51, "Haer Talib haertalib@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

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

Good luck!

Haer Talib

RumahAccess Indonesia

Tempatnya Belajar Microsoft Access

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 Sub

2. Saya ingin capture user yang login pada form main utama dengan menggunakan Textbox atau Label.
Contoh : Welcome User : Indra

Terima kasih atas bantuannya.

Salam,

Indra P Rakhim
Mobile : +6285780480959
PIN BB : 7D86658D