[belajar-access] login form

[buday uhuy]

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