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]
