Terima kasih mas Opi buat masukannya, saya baru saja coba2 lagi, ternyata
kesalahannya ada di,
Select Case Me![kodegroup],
Seharusnya :
Select Case rs.Fields("kodegroup")
Sekali lagi makasih buat mas opi dan teman2 yang memberi masukan, sekarang saya
akan tes untuk distribusi ke user. Mudah2an berhasil.
Wassalamu'alaikum warohmatullohiwabarakatuh.
Budi
----- Original Message ----
From: Sofyan Efendi <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, August 7, 2008 13:43:14
Subject: Re: [belajar-access] login form
pak, mungkin karena tidak di close rs dan db
nya?
coba sebelum end sub tambahin:
rs.close
db.close
end sub
o ya Pak, sebenarnya mencari kesalahan di VBA
sangat gampang Pak, bapak tinggal debug saja, coba aja di klik sebelah kiri di
VBA nya, nih saya kirim caranya, lihat di gambar ya ...
Coba run, nanti bapak saat run pasti berhenti
dimasing-masing baris, dengan demikian dapat dicek mana yang salah. Lihat
hasilnya dengan cara mouse diarahkan ke kode tersebut...
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb. com
----- Original Message -----
From: buday uhuy
To: belajar-access@ yahoogroups. com
Sent: Thursday, August 07, 2008 1:09 PM
Subject: Re: [belajar-access] login form
Assalamu'alaikum Mas Opi dan teman2 yang lain,
Saya udah coba coding dari mas Opi, tapi masih muncul error2 jadi saya balik
lagi ke coding saya...:D. Sebenernya sudah agak berhasil, ketika masuk dengan
user yg aksesnya Admin, menu melakukan aksi yang benar. Tapi ketika saya masuk
dengan user yg aksesnya User, kenapa menu melakukan action sama seperti ketika
menggunakan user yg aksesnya Admin ?? Dimana Letak kesalahan coding saya ? Ada
yang bisa mengkoreksi coding saya ?
Dim rs As New ADODB.Recordset
Dim Db As New ADODB.Connection
Dim CBarTool As CommandBar
If IsNull(Me.Tkodeuser ) Or Me.Tkodeuser = "" Then
MsgBox "Masukin dulu kode user !.", vbOKOnly, "Data Penting"
Me.Tkodeuser. SetFocus
Exit Sub
End If
If IsNull(Me.TPassword ) Or Me.TPassword = "" Then
MsgBox "Masukin Passwordnya" , vbOKOnly, "Data Penting"
Me.TPassword. SetFocus
Exit Sub
End If
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 "Kode User atau Password Salah", vbCritical
Exit Sub
Me.Tkodeuser. SetFocus
End If
Me.Visible = False
If Not Kosong(Me!kodeuser) Then
DoCmd.OpenForm "BudiSoftware"
Set CBarTool = CommandBars( "Utama")
Select Case Me![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
End If
Terima kasih sebelumnya.
Wassalamu'alaikum warahmatullahi wabarakatuh.
Budi
Messages in this topic (8) Reply (via web post) | Start a new topic
Messages | Files | Photos | Polls
SPAM IS PROHIBITED
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to
Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Recent Activity
* 7
New MembersVisit Your Group
Yahoo! News
Kevin Sites
Get coverage of
world crises.
Need traffic?
Drive customers
With search ads
on Yahoo!
Real Food Group
Share recipes,
restaurant ratings
and favorite meals.
.
Send instant messages to your online friends http://uk.messenger .yahoo.com
Send instant messages to your online friends http://uk.messenger.yahoo.com
