Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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

Inline image 1

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

Inline image 1

LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine