pak, kali salahnya dimari:
Set Db = CurrentProject.Connection
tSQL = "SELECT kodeuser, password FROM TBUser WHERE kodeuser='" & Me.Tkodeuser
& "' AND password = '" & Me.TPassword & "'"
rs.Open tSQL, Db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
MsgBox "data gak ada", vbCritical
Exit Sub
Me.Tkodeuser.SetFocus
End If
ganti aja pak jadi:
dim db as database
dim rs as recordset
set db=currentdb()
set rs=db.openrecordset("SELECT kodeuser, password FROM TBUser WHERE
kodeuser='" & Me!Tkodeuser & "' AND password = '" & Me!TPassword &
"'",dbreadonly)
rs.movefirst
If Not Kosong(Me!kodeuser) Then
'isi kode seterusnya ya pak ...
o ya, sebelum end sub tambahin juga:
rs.close
db.close
end sub
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com
----- Original Message -----
From: buday uhuy
To: [email protected]
Sent: Wednesday, August 06, 2008 2:58 PM
Subject: Re: [belajar-access] login form
Assalamu'alaikum Mas Opi dan yang lainnya,
Setelah saya test-test saya udah nemu kesalahannya, dan coding saya rubah
seperti di bawah, tetapi masih muncul error "object required", sepertinya ga
bisa manggil form latar yang ada menu Utama. Gimana cara manggil form latar
yang ada menu utama. ? Atau mungkin ada yg bisa membetulkan coding di bawah ?
Set Db = CurrentProject.Connection
tSQL = "SELECT kodeuser, password FROM TBUser WHERE kodeuser='" &
Me.Tkodeuser & "' AND password = '" & Me.TPassword & "'"
rs.Open tSQL, Db, adOpenDynamic, adLockOptimistic
If rs.BOF = True And rs.EOF = True Then
MsgBox "data gak ada", vbCritical
Exit Sub
Me.Tkodeuser.SetFocus
End If
If Not Kosong(Me!kodeuser) Then
Set CBarTool = CommandBars("Utama")
Select Case TBUser![kodegroup]
Case "Admin":
CBarTool.Controls("File").Enabled = True
CBarTool.Controls("Transaksi").Enabled = True
CBarTool.Controls("Laporan").Enabled = True
Case "User":
CBarTool.Controls("File").Enabled = False
CBarTool.Controls("Transaksi").Enabled = False
CBarTool.Controls("Laporan").Enabled = True
End Select
Else
Me.RecordSource = "TBUser"
jwb = MsgBox("Kodeuser Atau Password Salah !", vbCritical + vbOKOnly,
vAppTitle)
End If
----- Original Message ----
From: Sofyan Efendi <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, August 6, 2008 14:37:44
Subject: Re: [belajar-access] login form
pak, coba kode ini diganti:
If Not Kosong(Me!kodeuser) Then
menjadi
If isnull(Me!kodeuser) = 0 Then
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb. com
----- Original Message -----
From: buday uhuy
To: belajar-access@ yahoogroups. com
Sent: Wednesday, August 06, 2008 2:08 PM
Subject: [belajar-access] login form
Teman-teman Accesser,
Saya coba buat login form, codingnya seperti di bawah, ketika di coba
kenapa selalu muncul kode pesan "kode user atau password salah". Padahal sudah
saya masukkan kode user dan password yg benar. Salah kodenya dimana ya ??
Dim CBarTool As CommandBar
tSQL = "SELECT kodeuser, password, kodegroup FROM TBUser WHERE (pwdcompare(
'" & Me.TPassword & "',Password) =1) AND (kodeuser = '" & Me.Tkodeuser & "')"
Me.RecordSource = tSQL
If Not Kosong(Me!kodeuser) Then
Set CBarTool = CommandBars( "Utama")
Select Case TBUser![kodegroup]
Case "Admin":
CBarTool.Controls( "File").Enabled = True
CBarTool.Controls( "Transaksi" ).Enabled = True
CBarTool.Controls( "Laporan" ).Enabled = True
Case "User":
CBarTool.Controls( "File").Enabled = False
CBarTool.Controls( "Transaksi" ).Enabled = False
CBarTool.Controls( "Laporan" ).Enabled = True
End Select
Else
Me.RecordSource = "TBUser"
jwb = MsgBox("Kodeuser Atau Password Salah !", vbCritical +
vbOKOnly, vAppTitle)
End If
Ada yang bisa membantu mengkoreksi coding saya ?
Terima kasih sebelumnya.
Regards,
Budi
Send instant messages to your online friends http://uk.messenger .yahoo.com
Send instant messages to your online friends http://uk.messenger.yahoo.com
