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: [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
