saya baru melihat saja, ada dua buah end sub, tetapi hanya ada satu sub (command click), mungkin menyalinnya tidak lengkap, karena kalau ini dijalankan pasti error.
akan lebih baik kalau dilampirkan contoh aplikasinya
Bambang Hartoko
On Thursday, April 16, 2015 12:11 PM, "khoirudinbudiman@yahoo.com [belajar-access]" <belajar-access@yahoogroups.com> wrote:
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: Bambang Hartoko <bambanghartoko@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar