Apa isi fungsi kosong() ?
atau jika anda ingin pastikan bahwa recordsource ada datanya bisa ditest
dengan kode
dim rs as dao.recordset
set rs = me.recordsetclone '<-- form recordsource selalu DAO
if not ((rs.bof) and (rs.eof))
'recordset kosong di tandai dengan posisi BOF dan EOF sama-sama true
(see help about BOF and EOF)
'lalu letakkan kode untuk mengetes isi rs!kodeuser disini
....
....
....
else
MsgBox("Kodeuser Atau Password Salah !", vbCritical + vbOKOnly,
vAppTitle)
end if
set rs = nothing
Untuk menguji suatu field dari recordset mengandung data atau null bisa
melalui fungsi berikut:
public function Kosong (aField)
Kosong = (len ( aField & "") = 0)
end function
aksan kurdin
On 8/6/08, buday uhuy <[EMAIL PROTECTED]> wrote:
>
> 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
>
>
>
--
Aksan Kurdin
