VBA Access - Como abrir ou fechar o painel de navegação

Termo de Responsabilidade

Para deixarmos as nossas aplicações mais estéticas e profissionais, como podemos abrir ou fechar o painel de navegação do MS Access 2007 com o VBA?

Private Sub Form_Load()

'SelectObject usado para dar o foco ao Painel de Navegação

DoCmd.SelectObject acForm, "Nome de um formulário", True

'Ocultando janela com o foco

DoCmd.RunCommand acCmdWindowHide

End Sub

Também poderá abrigar o código em um módulo:

Call SetStartupOptions ("StartupShowDBWindow", dbBoolean, False)

Public Sub SetStartupOptions (propname As String, propdb As Variant, prop As Variant)

On Error Resume Next

Dim dbs As Object

Dim prp As Object

Set dbs = CurrentDb

dbs.Properties(propname) = prop

If Err.Number = 3270 Then

Set prp = dbs.CreateProperty(propname, propdb, prop)

dbs.Properties.Append prp

End If

Set dbs = Nothing

Set prp = Nothing

End Sub

Reference::

Tags: VBA, Excel, matriz, vetor, array, DAO, ADO, Northwind, CopyFromRecordset