[belajar-access] MOHON PENCERAHAN UNTUK LOGIN

 

Selamat pagi,

mohon pencerahannya juragan, untuk pembuatan login dengan kondisi tabel hanya ada user dan password tapi ketika dijalankan hanya mau di tabel paling atas saja, user selanjutnya diinformasikan password salah terus...berikut kodingnya :

Private Sub cmdlogin_Click()

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("select * from tbl_user where user= '" & userx & "' and password= '" & pass & "'", dbOpenDynaset)

If rs.RecordCount > 0 Then

pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")

Else

pesan = MsgBox("Login Gagal, masukan userid dan password", vbOKOnly, "Gagal")

End If

End Sub

s="select tbl_user.*form tbl_user;"

set rs=db.openrecordset(s)

if me!pass<>me!pass or me!user<>me!userx then

msgbox"password salah, benerin!",vbcritical,"sory"

me!.pass.setfocus

else

docmd.openform"frm_utama",acNormal

docmd.close acform,"frm_login"

end if

end sub

MOHON INFORMASINYA APAKAH SAYA SALAH KODING ATAU DIPERLUKAN PENYESUAIAN ??

Terima kasih sebelumnya, wassalam.

__._,_.___

---

Posted by: khoirudinbudiman@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___