Office: (Office 2010) Navigationsleiste aus- und einblenden

guy2 · 22. Januar 2013

Hallo,

ich schlage mich gerade mit meinen ersten Versuchen in Acc2010 rum.

Folgendes Problem:
Beim Öffnen der Form lasse ich die Navigationsschaltfläche auf der linken Seite ausblenden:
Code:

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize

DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.SelectObject acTable, vbNullString, True
DoCmd.RunCommand acCmdWindowHide
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert soweit auch.

Nun möchte ich jedoch die Form über einen Button schließen und dabei die Navigationsschaltflächen wieder einblenden:
Code:

Private Sub btn01_Click()
DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.SelectObject acForm, vbNullString, True

DoCmd.Close
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Einblenden klappt, die Form schließt aber nicht.

Was mache ich falsch?
Kann man beim Einblenden der Navigation auch deren Breite bestimmen?

Viele verschneite Grüße *mrcool
Guido

:)

GuidoS · 23. Januar 2013

gib mit

Code:

DoCmd.Close acForm, Me.Name
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

an welches Form geschlossen werden soll.

Lanz Rudolf · 23. Januar 2013

Hallo
geht das bei 2010 nicht so

einblenden
Code:

Me.NavigationButtons = True
Me.Recalc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder ausblenden
Code:

Me.NavigationButtons = False
Me.Recalc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 23. Januar 2013

Hallo
zu
Feste Höhe des Formulars auch wenn mit/ohne Navigationsschaltfläche
kannst Du in meiner Doc s. Fusszeile unten Rechts
auf Seite 117 etwas lesen *Smilie

guy2 · 23. Januar 2013

Hallo Ruedi,

das mit dem Ausblenden funktioniert bei mir aber nicht.

Das Einblenden grundsätzlich ja, aber die Anzeige wird nicht aktualisiert, d.h. das Formular wird geschlossen, aber im Bereich wo sich die Navigationsschaltfläche befindet sehe ich anfangs immer noch einen Rest meines Formulars und erst wenn ich mit gedrückter Mousetaste darüber fahre, wird die Anzeige Zeile für Zeile aktuell.

Gruß
Guido

Lanz Rudolf · 23. Januar 2013

Hallo
ich habe immer nach dem Anpassen des Navi
Me.Recalc
das aktualisiert das Aktuelle Formular

zeige doch einmal Dein ganzer Code

möchtest Du das nicht auf dem Aktuell Aktiven (offenen) Formular machen ?

guy2 · 23. Januar 2013

Das der momentane Code:

Code:

Option Compare Database

Private Sub Auswahl_Click()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Lfd-Nr] = " & Str(Nz(Me![Auswahl], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Auswahl_Exit(Cancel As Integer)
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Lfd-Nr] = " & Str(Nz(Me![Auswahl], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub btn01_Click()
Rem DoCmd.NavigateTo "acNavigationCategoryObjectType",
Rem "acNavigationGroupTables"
Rem DoCmd.SelectObject acForm, vbNullString, True

Me.NavigationButtons = True
Me.Recalc

DoCmd.Close

End Sub

Private Sub Form_Close()
DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.SelectObject acForm, vbNullString, True
End Sub

Private Sub Form_Open(Cancel As Integer)

Rem Me.NavigationButtons = False
Rem Me.Recalc

DoCmd.Maximize

DoCmd.NavigateTo "acNavigationCategoryObjectType", _
"acNavigationGroupTables"
DoCmd.SelectObject acTable, vbNullString, True
DoCmd.RunCommand acCmdWindowHide
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe mal eine Hardcopy des Bildschirms, nachdem btn01 geclickt wurde angehangen.

Gruß
guido

Office: (Office 2010) Navigationsleiste aus- und einblenden

Navigationsleiste aus- und einblenden

Navigationsleiste aus- und einblenden

Navigationsleiste aus- und einblenden

Navigationsleiste aus- und einblenden - Similar Threads - Navigationsleiste einblenden

Explorer-Ordner als Verknüpfung in Navigationsleiste

Navigationsleiste zwischen Tabellen sortieren?

Ändern der auf der Navigationsleiste angezeigten Elemente

Navigationsleiste ausblenden

Navigationsleiste ein-/ausblenden

Navigationsleiste per VBA ausblenden

Navigationsleiste