Coba rubah dikit (paku Function yach.....kaya di bawah ini (mudah2an jalan)
soalnya ga di VB edit dcript nya :p
Private Sub mnuForm1_Click()
if CekUser=TRUE then
Form1.Show
else
MsgBox "Anda tidak punya Akses"
end if
End Sub
Private Function CekUser() as Boolean
CekUser=FALSE
If UCase(MDIForm1.StatusBar1.Panels.Item(3).Text) = "ADMINISTRATOR" Then
CekUser=TRUE
else
CekUser=FALSE
end if
End Function
----- Original Message -----
From: Juned Syafruddin
To: [email protected]
Sent: Thursday, July 03, 2008 2:30 PM
Subject: [*** SPAM ***] [indoprog-vb] MENGHENTIKAN PERINTAH SELANJUTNYA
Mohon Bantuan nya
saya membuat program membuka form seperti ini
Private Sub mnuForm1_Click()
CekUser
Form1.Show
End Sub
Sub CekUser()
If UCase(MDIForm1.StatusBar1.Panels.Item(3).Text) <> "ADMINISTRATOR" Then
MsgBox "Anda tidak punya Akses"
Exit sub
End If
End Sub
Apabila user bukan admin maka ia tidak bisa membuka form1,
memang tampil pesan "anda tidak punya akses" bila bukan admin
namun perintah dibawahnya untuk membuka form tetap terlaksana
bagaimana caranya untuk menyetop / atau tidak lanjut keperintah selanjutnya
terima kasih
<<Please Make a Diggest This Groups>>
[Non-text portions of this message have been removed]
