Cara Membuat Tombol Show/Hide Navigation Pane Pada Microsoft Access Dengan VBA

Cara Membuat Tombol Show/Hide 

Navigation Pane Pada Microsoft Access

Dengan VBA

Public Function ShowNavigationPane()

On Error GoTo ErrHandler

    DoCmd.SelectObject acTable, , True

Exit_ErrHandler:
    Exit Function
    
ErrHandler:
    MsgBox "Error " & Err.Number & " in ShowNavigationPane routine : " & Err.Description, vbOKOnly + vbCritical
    Resume Exit_ErrHandler

End Function
Public Function HideNavigationPane()

'CR modified v5263

On Error GoTo ErrHandler

    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide
    
Exit_ErrHandler:
    Exit Function
    
ErrHandler:
    MsgBox "Error " & Err.Number & " in HideNavigationPane routine : " & Err.Description, vbOKOnly + vbCritical
    Resume Exit_ErrHandler

End Function
Private Sub ShowHideNavigationPane_Click()
On Error GoTo err_handler


Dim lngRed As Long, lngYellow As Long, lngWhite As Long

 lngRed = RGB(255, 0, 0)
'lngBlack = RGB(0, 0, 0)
 lngYellow = RGB(255, 255, 0)
 lngWhite = RGB(255, 255, 255)



    If Me.ShowHideNavigationPane.Caption = "Show Navigation Pane" Then

        'nav pane can only be shown if app window is visible

        ''cmdAppWindow.caption = "Show Application Window"
        ''cmdAppWindow_Click
    
    
    '-- tambahan password
    
    Dim strInput As String
    Dim strMsg As String
    
    Beep

    strMsg = "This form is used only by the ''Authorized'' people." & vbCrLf & vbLf & "Please enter the ''1234'' password to allow access."

    strInput = InputBox(Prompt:=strMsg, TITLE:="Special Password")

     If strInput = "1234" Then 'password is correct
        DoCmd.SelectObject acTable, , True
        ShowNavigationPane
    Else 'password is incorrect

        MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''Table''.", vbCritical, "Invalid Password"
        Exit Sub
    End If
    
    '----  end of tambahan password
    
        ShowNavigationPane
        Me.ShowHideNavigationPane.Caption = "Hide Navigation Pane"
        Me.ShowHideNavigationPane.ForeColor = vbBlack
        DoCmd.Restore
    Else
        HideNavigationPane
        Me.ShowHideNavigationPane.Caption = "Show Navigation Pane"
        Me.ShowHideNavigationPane.ForeColor = vbRed
        DoCmd.Restore
    End If
    
Exit_Handler:
    Exit Sub

err_handler:
    Resume Exit_Handler

End Sub

Jasa Pembuatan Database Microsoft Access

Mahanila Engineering Group. Spesialis Dalam Pembuatan Database Microsoft Access

Promo Sampai Jun 2017 

Hubungi Kami:

Mahanila Das - Founder
0812-7740-3909  (HP dan  WA) 
0819-9109-9321 (HP) 

Susanti - Marketing Manager: 
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA) 

ini adalah contoh database yang dapat menyimpan ribuan Link ke Files atau Folder dan juga menyimpan Alamat Website

Contoh Desain Sertifikat Dengan Menggunakan Corel Draw.

Mahanila Das - Director
0812-7740-3909  (HP dan  WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)

Mahanila Engineering Menerima:

Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan

Hubungi:

Mahanila Das (I Wayan Mesra Ariyawan).

HP/WA 0812-7740-3909

KLIK

DONASI VIA PAYPAL Bantu berikan donasi jika artikelnya dirasa bermanfaat. Donasi akan digunakan untuk memperpanjang domain Website ini https://slokagita.blogspot.com. Terimakasih atas dukungan Anda.

Share Share