Assalamu'alaikum Mas aksan, mas Opi dan teman2 yang lain,
Cuma mau memperjelas aja, saya ingin setelah saya login dengan lever user
tertentu, maka form latar muncul dan menu2 tertentu muncul. Bagaimana cara
manggil form latar dan menu2 tersebut, yang sepertinya coding yang saya buat
masih salah.
Ini fungsi Kosongnya mas aksan (saya coba ngambil dari bukunya mas Haer),
Function Kosong(varYgDitest) As Boolean
Kosong = True
On Error Resume Next
Select Case True
Case IsEmpty(varYgDitest)
Case IsNull(varYgDitest)
Case IsNumeric(varYgDitest)
If varYgDitest = 0 Then
Kosong = True
Else
Kosong = False
End If
Case Nz(varYgDitest, "") = ""
Case Else
Kosong = False
End Select
End Function
Terima kasih sebelumnya.
Wassalamu'alaikum
Budi
----- Original Message ----
From: aksan kurdin <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, August 6, 2008 14:52:02
Subject: Re: [belajar-access] login form
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 <herr_haikal@ yahoo.com> 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
Send instant messages to your online friends http://uk.messenger.yahoo.com
