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.
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
Das wird dann auf eine Anweisung in der Form von
Forms(stDocName)("Navigationsunterformular").SourceObject = "frm_02"hinauslaufen.
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
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.
Hallo Mike,
Zitaterstmal 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
Vielen Lieben Dank, funtioniert so wie ich wolte.
Danke Grüße Forwell
Hallo,
ich habe doch ein Problem.
das mit dem Code:
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
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
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
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
Hallo Mike,
So geht's:
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
Hallo Ekkehard,
ohne viele Worte, tausend Dank!!!
Ich bin Happy :) :) :) :) :) :) :) :)