Office: (Office 2013) Navigationsschaltflächen wechseln

Hallo,

Habe schon wieder ein Problem *biggrin.gif*
Ich habe ein Navigationsformular "F_Eingabe" mit zwei Navigationsschaltflächen "Eingabe1" und "Eingabe2". In Eingabe1 ist das Ufo1 und in eingabe2 Ufo2.

Ich möchte nun von einem Button in ufo1 das ufo2 in eingab2 mit gleichem datensatz öffnen.
Ich habe es mit folgendem Code versucht:

DoCmd.BrowseTo acBrowseToForm, "ufo2" , "F_Eingabe.Navigationsunterformular" _
, "ID =" & Me.ID
Da kommt dann ein Fehler mit Objekt nicht gefunden.

Kann mir einer helfen? *Smilie

:)

 

Hallo,
Ich versuche es mal.
Auf einem Navi-Form gibt es nur ein Steuerelement, das die Formulare (ufo1
und ufo2) zur Anzeige bringt. Dies wird jeweils beim Wechsel über die Navi-
Buttons geladen.
Wahrscheinlich liegt der Fehler hier
Code:

hier muss der Name des Navi-Controls und nicht der Name des UFo-
Controls angegeben werden.
Das anzugebende Navi-Control ist der Rahmen der aufscheint wenn du
in den Bereich neben den Buttons klickst.
Das UFo-Control wird markiert wenn du auf den darunter liegenden
Bereich klickst.

gruss ekkehard

 

So, habe jetzt mal den Code verändert:

DoCmd.BrowseTo acBrowseToForm, "ufo2", "NavigationControl0.Navigationsunterformular", "ID =" & Me.ID

Der Bereich mit den Schaltflächen nennt sich NavigationControl0

Jetzt kommt ein Laufzeitfehler "6054"
Die WechselnZu-Makroaktion erfordert ein gültiges Pfadargument. Ein gültiges Pfad-Argument hat folgende Form:
Hauptformular1.Unterformular1>Formular1.Unterformular1.


Was nun? *biggrin.gif*

 

Das Hauptformular muss schon angegeben werden:
Code:

 

Es kommt, egal wie ich es auch eingebe, immer die gleiche Fehlermeldung.

Wenn ich es so eingebe, dann kommt keine Fehlermeldung, es passiert aber jedoch auch nichts...

DoCmd.BrowseTo acBrowseToForm, "ufo2.Navigationsunterformular", "F_Eingabe.Navigationsunterformular", "ID =" & Me.ID

Was mache ich falsch? *rolleyes.gif*

 

Die im ersten Posting gezeigte Form scheint richtig zu sein. Lade bitte ein Minimalbeispiel mit den beteiligten Formularen und wenigen Spieldaten hier als Anhang hoch.

 

Hallo,
Code:

Hierhin gehört nur der Name des Formulars, das im Ufo-Control dargestellt werden soll,
und zwar so wie er im Navigationsbereich angezeigt wird. Das hiess am Anfang "ufo2".
Der Bezug zum Ufo-Control ist jetzt wieder falsch; - "F_Eingabe.NavigationControl0"
sollte richtig sein.
Ansonsten folge noubas Hinweis und lade die DB hier hoch. Da kann man dann die
richtigen Namen sehen.
gruss ekkehard

 

Hallo,
Sorry, aber ich habe mal wieder Mist geschrieben. Hatte das aus einer Notiz, die
ich mir mal diesbezügl. gemacht hatte abgeleitet, und da war es schon falsch *mad.gif*
Habe jetzt aber nochmal die OH konsultiert, die das gut beschreibt.
Der korrekte Aufbau lautet daher so (gestestet):
Code:

Es muss also doch der Name des UFo-Controls angegeben werden.
Ich entschuldige mich für die Verwirrung; - hatte es gewagt, weil zum Navi-Form
eigentlich immer nur wenig Resonanz kommt.
gruss ekkehard

 

Im Anhang meine Beispieldatenbank.

Danke für eure Hilfe!

 

Hallo,
Es funzt wie in #8 gezeigt. Allerdings muss man wohl dem Navi-UFo
tatsächlich einen eigenen Namen verpassen.
Also "F_Eingabe.Navigationsunterformular" (vorgegebener
Name) wirft den Fehler bezügl. inkorrektem Pfad, während
"F_Eingabe.NaviUForm" (eigener Name) tut was es soll.
In der DB habe ich das nun umbenannt. Des Weiteren habe ich die Daten-
Herkunft von "F_Eingabe" entfernt; - macht auf einem Navi-Form keinen
Sinn.
Ansonsten ist mir noch aufgefallen, dass in allen Modulen Option Explicit
fehlt (nachgetragen). Das kannst du autom. eintragen lassen (bei neuen
Modulen) in dem du im Editor unter "Extras - Optionen - 1.Register Editor"
das Häkchen setzt bei "Variablendeklaration erforderlich".

gruss ekkehard

 

Super, Vielen Dank *Smilie Ist es auch möglich die Navischaltflächen zu sperren und erst nach Eingabe eines textfeldes zu entsperren?

 

Ja, indem du die Eigenschaft .Enabled manipulierst.

 

Funktioniert prima. Habe noch zwei Fragen:

Wie sieht dann der Code aus, wenn ich direkt auf die Navischaltfläche "Eingabe2" klicke, um dann Ufo2 mit gleicher ID zu öffnen, wie in Ufo1?
Den Code von #8 habe ich kopiert und ins Klickereignis der Eingabe2 Schaltfläche geschrieben. Es kommt ein Fehler mit Objekt nicht gefunden.

Zu2: ich habe in ufo1 einen Änderungen verwerfen Button eingefügt mit folgendem Code:

If Not Me.NewRecord Then
If MsgBox (" Änderungen verwerfen und Anwendung verlassen?", vbYesNo + vbExclamation, "Sicherheitsabfrage") = vbYes Then
Cancel = True
Me.Undo
DoCmd.Close acForm "F_Eingabe"
End If
End If

Die Änderungen werden verworfen, aber das Navigationsformular wird nicht geschlossen. Wie kann ich dies realisieren?

Vielen Dank für eure Hilfe!

 

Hallo,

Das liegt daran, dass beim Klick schon das ufo1 geschlossen und das Form
(ufo2) geladen wird. Zu diesem Zeitpunkt ist dann ufo1 nicht mehr bekannt.
In diesem Fall musst du die ID über eine öffentliche Variable im Navi-Form
durchreichen.
Code:

Code:

gruss ekkehard

 

Danke :-D

Gibt es in Access eigentlich eine Funktion oder vba Code, um bei einem auftretenden Fehler, diesen Fehler mit Err.Description in einem Bericht zu speichern?