Coba rubah seperti ini : Private Sub mnuForm1_Click( ) CekUser End Sub Sub CekUser() If UCase(MDIForm1. StatusBar1. Panels.Item( 3).Text) <> "ADMINISTRATOR" Then MsgBox "Anda tidak punya Akses" Exit sub else Form1.Show End If End Sub
--- On Thu, 7/3/08, Juned Syafruddin <[EMAIL PROTECTED]> wrote: From: Juned Syafruddin <[EMAIL PROTECTED]> Subject: [indoprog-vb] MENGHENTIKAN PERINTAH SELANJUTNYA To: [email protected] Date: Thursday, July 3, 2008, 2:30 PM 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 [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
