Set Db = CurrentProject.Connection
ganti jadi
set db = currentdb
aksan kurdin
On 8/6/08, buday uhuy <[EMAIL PROTECTED]> wrote:
>
> 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 <http://opi.110mb.com/>
>
> ----- Original Message -----
> *From:* buday uhuy <[EMAIL PROTECTED]>
> *To:* belajar-access@ yahoogroups. com <[email protected]>
> *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
>
>
>
--
Aksan Kurdin
