ACCESS FEED: Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN

Rabu, 15 April 2015

Re: [belajar-access] MOHON PENCERAHAN UNTUK LOGIN

pagi Pak,

spertinya belum ada deklarasi untuk s ya?

dim s as string
s="select tbl_user.*form tbl_user;"

salam,
Roland

----- Original Message -----
From: khoirudinbudiman@yahoo.com [belajar-access]
To: belajar-access@yahoogroups.com
Sent: Wednesday, April 15, 2015 6:40 AM
Subject: [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.