Office: (Office 2013) In Endlosformular zu Datensatz springen un markieren

Wer weiss Rat?

In einem Endlosformular werden die Datensätze angezeigt (nicht alle Angaben). Bei jedem Datensatz hat es die Befehlsschaltfläche »Daten bearbeiten«. Es öffnet sich ein Dialogfenster, in welchem alle Daten dieses Datensatzes bearbeitet werden können. Soweit ist alles perfekt.

Nun kann über die Befehlsschaltfläche »abbrechen« alles ohne speichern abgebrochen werden. Auch das funktioniert wie ich möchte: Das Dialogfenster schliesst und ich kehre zu meinem Endlosformular zurück.

Beim Programmcode für die Befehlsschaltfläche »speichern« habe ich noch Probleme. Mein Code:

DoCmd.RunCommand acCmdSaveRecord ´Datensatz wird gespeichert
Forms!frmMeinEndlosformular.Requery ´das Endlosformular wird aktualisiert
DoCmd.Close acForm, "frmMeinBearbeitungsDialogformular" ´schliessen des Bearbeitungsformulars

Das Problem ist, dass ich mit diesem Code an den Beginn des Datenformulars gelange, weil ich dieses ja mit Requery aktualisiert habe. Ich möchte aber an diese Stelle zurückkehren, wo ich zuvor im Endlosformular war. Denke da an DoCmd.GoToRecord und RunCommand acCmdSelectRecord. Ich befinde mich aber nach Requery noch nicht im Endlosformular. Wie kann ich nach dem aktualisieren den Endlosformulars und vor dem Schliessen des Dialogformulars zu dieser Stelle springen und den Datensatz markieren?

Danke für eure Hilfe

Fino

:)

 

Hallo,
Du musst Dir den Primärschlüssel des Datensatzes merken und erst dann Requery ausführen.
Siehe hierzu:
FAQ 4.5 Gleicher Datensatz nach Requery

 

Servus Fino,

Das ist kein Dialogfenster, sondern ein Eingabeformular.
Öffne dieses Formular als "acDialog" und Du erfährst eine elegante VBA-Lösung. Sobald ein Formular per acDialog geöffnet wird, kannst Du im AUFRUFENDEN FORMULAR weitere Codes hinterlegen, welche automatisch
erst nach Schliessung des per acDialog aufgerufenen Formulars abgearbeitet werden.

 

Hallo zusammen

Habe den Tipp von Klaus genommen und meine Code wie folgt angepasst:

Dim lngStore As Long
DoCmd.RunCommand acCmdSaveRecord
lngStore = Me!MeineID
Me.Painting = False
Forms!frmEndlosformular.Requery
Me.Recordset.FindFirst "lngMeineID=" & lngStore
Me.Painting = True
DoCmd.Close acForm, "frmDialogfenster"

Und ich gelange so wie gewollt zurück auf diesen Datensatz im Endlosformular.

Danke

Lieber Ohrkester, wäre wohl auch ein Lösungsansatz. Ich öffne natürlich das Fenster über acDialog ich bin eben kein Profi welcher alle korrekten Begriffe verwendet.