Terima kasih banget atas pencerahannya... sekali lagi terima kasih
--- On Thu, 7/3/08, Kudo, Shinichi <[EMAIL PROTECTED]> wrote: From: Kudo, Shinichi <[EMAIL PROTECTED]> Subject: Re: [indoprog-vb] MENGHENTIKAN PERINTAH SELANJUTNYA To: [email protected] Date: Thursday, July 3, 2008, 1:49 AM 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: indoprog-vb@ yahoogroups. com 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] [Non-text portions of this message have been removed]
