Öffnen eines bestimmten Navigationformular

[Forwell1969]

Hallo Zusammen,

Ich habe im meinem Hauptformular "frm_Hm" ein Navigationsteuerelemnt eingefügt.
Diese beinhalen 2 Formular(Register) "frm_01" und "frm_02", geht auch alles.

per Schaltfläsche öffne ich ein Formular "frm_02Details" und schließe das Hauptformular "frm_Hm", geht auch alles.

Jetzt möchte ich im Formular "frm_02Details" per Schaltläsche das aktuelle Formlar schließen (kein Problem)
und das Hauptformular "frm_Hm" öffnen, aber er soll direkt das Formular(Register) "frm_02" anzeigen

Mein Aktueller Code für die Schaltfläsche sieht im Formular "frm_02Details" so aus.

Code [Auswählen] Erweitern

Private Sub Schließen_Click()
On Error GoTo MErr

    Dim stDocName As String
    Dim stLinkCriteria As String

        stDocName = "frm_Hm"
        DoCmd.Close acForm, "frm_02Details"
        DoCmd.OpenForm stDocName, , , stLinkCriteria

MExit:
    Exit Sub

MErr:
    MsgBox Error$
    Resume MExit
End Sub

Ich würde mich freuen wenn jemand mir Helfen könnte.

Grüße Forwell

[Lachtaube]

Das wird dann auf eine Anweisung in der Form von

Code [Auswählen] Erweitern

   Forms(stDocName)("Navigationsunterformular").SourceObject = "frm_02"hinauslaufen.

[Forwell1969]

Hallo,

erstmal danke, aber wo platziere ich deinen Code/Zeile in
meinem Code?

Sorry aber ich bin nicht der fitteste in solchen Sachen.

Grüße Forwell

[Lachtaube]

Voraussetzung ist, dass das Navigationsformular stDocName vor Ausführung der Anweisung geöffnet ist. Im Fehlerfall meldet sich Access bestimmt mit einer aussagekräftigen Meldung, wird aber kaum Schaden an der DB ausrichten.

[Beaker s.a.]

Hallo Mike,

erstmal danke, aber wo platziere ich deinen Code/Zeile in
meinem Code?

Da, wo DU willst, dass sich das Form öffnet.
Vermutlich nach dem Schliessen des aktuellen Forms.

gruss ekkehard

[Forwell1969]

Vielen Lieben Dank, funtioniert so wie ich wolte.

Danke Grüße Forwell

[Forwell1969]

Hallo,

ich habe doch ein Problem.

das mit dem Code:

Code [Auswählen] Erweitern

Forms(stDocName)("Navigationsunterformular").SourceObject = "frm_02"

hat ja bestens funktioniert.

Aber, eigentlich wechseln die NavigationButton's im Hauptformular die Farbe beim Gedrückten Zustand. Allerdings wenn ich von dem anderen
Formular deinen Code verwende, wechselt er such richtigem Formular aber der NavigationsButton hat nicht die farbe gewechselt, bzw. zeigt es ein anderen Navigationsbutton als gedrückt an.

Daher bitte ich dich nochmals um Hilfe.

Grüße Mike

[Beaker s.a.]

Hallo Mike,
Wie ich selber gerade die Tage gelernt habe, verwendet man in
NaviForms statt der .OpenForm- die .BrowseTo-Methode des DoCmd-
Objektes.
Wegen der Parameter schau in die OH.
gruss ekkehard

[Forwell1969]

Hallo Ekkehard,

erstmal Danke, leider kann ich damit reingarnicht's mit anfangen, weil ich blöde bin. :-) Vielleicht Kannst etwas Licht in dunkelne bringen wie Beispielsweise Lachtaube gemacht hat, in dem Sie mir den Code geschrieben hat.

Grüße Mike

[Forwell1969]

Hallo Zusammen,

ich habe mal ein Beispiel gemacht, bis auf die NavigationsButton's
funktioniert auch alles.

Aber, eigentlich wechseln die NavigationButton's im Hauptformular die Farbe beim Gedrückten Zustand. Allerdings wenn ich von dem Formular "frm_Tabelle2_Detail" auf den Button "schließen" drücke, wechselt er such richtigem Formular aber der NavigationsButton hat nicht die farbe gewechselt, bzw. zeigt NavigationsButton "Tabelle 1" als gedrückt an.

Habe ich da eine Chance und wo und was muss ich eingeben???

Grüße Mike

[Beaker s.a.]

Hallo Mike,
So geht's:

Code [Auswählen] Erweitern

Private Sub Befehl11_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String

        stDocName = "frm_Hm"
        DoCmd.Close acForm, "frm_Tabelle2_Detail"
        DoCmd.OpenForm stDocName
       
        DoCmd.BrowseTo ObjectType:=acBrowseToForm, _
            ObjectName:="frm_Tabelle2", _
            PathToSubformControl:=stDocName & ".Navigationsunterformular"

End Sub


gruss ekkehard

[Forwell1969]

Hallo Ekkehard,

ohne viele Worte, tausend Dank!!!

Ich bin Happy