Einzelansicht und nächster Datensatz

[Gast]

Moin Moin Access-Experten,

ich habe eine Vereinsmitglieder-Datenbank. Die Mitglieder werden in einem Endlosformular angezeigt. Eine genauere Ansicht der Mitglieder erfolgt mit einer Schaltfläche (DoCmd.OpenForm "frmMitgliederEinzelansicht", , , "MitId=" & Me.MitId.Value).

Wenn ich Änderungen vornehme möchte ich einer Schaltfläche im Einzelformular haben die mich vor oder zurück bringt. Mit "DoCmd.GoToRecord , , acNext" klappt es nicht,da ich das Formular filtere.

Ich hoffe auf eure Hilfe.

Grüße aus dem sonnigen Hamburg

Klaus Meyer

[KlausMz]

Hallo,
Du darfst nicht Filtern, Du musst suchen.

Code: Alles auswählen

    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "MitId=" & Me.MitId
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

[derArb]

Hallo,
vielleicht eher so? (ungetestet)

Code: Alles auswählen

DoCmd.OpenForm "frmMitgliederEinzelansicht"
Forms!frmMitgliederEinzelansicht.Recordset.FindFirst "MitId=" & Me.MitId

Dann funktioniert Dein Buttoncode.weiterhin.

Code: Alles auswählen

DoCmd.GoToRecord , , acNext

[ComputerVersteher]

Hi,

Wenn ich Änderungen vornehme möchte ich einer Schaltfläche im Einzelformular haben die mich vor oder zurück bringt.

Haben beide Formulare die gleiche Datensatzquelle (Abfrage/Tabelle)?

Dann Versuch mal:

Code: Alles auswählen

Const FormName as String = "Endlosformular Name"
Set Me.Recordset = Forms(FormName).Recordset.Clone
Me.Bookmark = Forms(FormName).Bookmark

Sollen die beiden Formulare auch noch syncron (gleicher Datensatz) sein?

Dann:
Const FormName as String = "Endlosformular Name"

Code: Alles auswählen

Set Me.Recordset = Forms(FormName).Recordset

Die FindFirst Methode hat den Nachteil das sie nicht immer die schnellste ist. Außerdem sollte man in Verbindung mit .FindXXXX immer auch auf .NoMatch prüfen (siehe Code im Link), falls nichts gefunden wurde!

Mit "DoCmd.GoToRecord , , acNext" klappt es nicht

DoCmd (simuliert quasi den Klick auf die entsprechender Access Funktion,bei .GoToRecord sind das die Navigationspfeile und die Datensatznr unten links im Formular) solltest Du vermeiden wenn es besseren (DoCmd ist z.B. Focus abhängig) Ersatz wie z.B

Code: Alles auswählen

Me.RecodSet.MoveNext/Previous ' Code im Formular verwendet
Forms(FormName).RecordSet.MoveNext 'Code außerhalb des zu bewegenden Formulars

gibt . Ich benutze eigentlich nur noch DoCmd.FormOpen/Report und DoCmd.OutputTo.

Gruß CV