Re: Login dan Capture ID User yang Login pada Form Main Menu

47 views
Skip to first unread message

Haer Talib

unread,
Sep 24, 2015, 10:51:21 PM9/24/15
to Indra Rakhim, Belajar Access, belajar...@googlegroups.com
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
Artikel | Forum | Milis | Download | Training | Links | Blog | Event



2015-09-23 12:11 GMT+07:00 Indra Rakhim <indra....@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
PIN BB : 7D86658D


Reply all
Reply to author
Forward
0 new messages