Re: [indoprog-vb] MENGHENTIKAN PERINTAH SELANJUTNYA

[Astawan]

  Karena exit sub di sub CekUser hanya berlaku untuk sub CekUser saja, 
sedangkan form1.show itu berada diluar sub cekuser.

  coba diubah:

  Private Sub mnuForm1_Click()
  if CekUser = True then
      Form1.Show
  end if
  End Sub

  Function CekUser() as boolean
  If UCase(MDIForm1.StatusBar1.Panels.Item(3).Text) <> "ADMINISTRATOR" Then
          MsgBox "Anda tidak punya Akses"
       Exit sub
  else
              CekUser  = True 
  End If
  End Sub

    ----- Original Message ----- 
    From: Juned Syafruddin 
    To: indoprog-vb@yahoogroups.com 
    Sent: Thursday, July 03, 2008 2:30 PM
    Subject: [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

    [Non-text portions of this message have been removed]



     


[Non-text portions of this message have been removed]