Office: (Office 2016) vom Ufo aus DS im 2. Ufo wechseln

Moin,
ich möchte Datensätze aus zwei Tabellen miteinander verknüpfen.
Dazu habe ich ein Hauptformular mit zwei Ufos gebastelt, in denen jeweils die Datensätze der beiden Tabellen endlos dargestellt werden.
Nun markiere ich im 1. Ufo (SollRahmen) einen Datensatz. Dann suche ich im zweiten Ufo den dazu passenden Datensatz und markiere ihn per Kontrollkästchen DxX.
Durch das Markieren wird per VBA in ein Fremdschlüsselfeld des ersten Datensatz die ID des zweiten geschrieben.
Das funktioniert soweit.

Da ich mich beim Markieren aktuell im zweiten Ufo befinde, möchte ich von dort aus erwirken, dass im 1. Ufo zum nächsten Datensatz gesprungen wird.

Code:

Private Sub DxX_AfterUpdate()
 Dim cDB As DAO.Database, strSQL As String
    If Nz(Me.TxFSmID, "") = "" Then Exit Sub
    Set cDB = CurrentDb
    If Me.DxX Then
        Me.DxLKW = Me.TxLKW
        strSQL = "UPDATE tbl_Tab1 " _
               & "SET FSPal = " & Me.DxID _
              & " WHERE mID = " & Me.TxFSmID
    Else
        Me.DxLKW = 0
        strSQL = "UPDATE tbl_Tab1 SET FSPal = Null WHERE FSPal = " & Me.DxID
    End If
    cDB.Execute strSQL
    Me.Parent.SollRahmen.Requery

'zum nächsten DS in Ufo1 springen

    If Me.DxX Then
        Me.Parent!SollRahmen.Form.Recordset.MoveNext
    End If
    Set cDB = Nothing
End Sub

Der Debugger meckert bei diesem Code nicht, allerdings bewirkt er auch nichts.
Wo sitzt mein Denkfehler?
Gruß
Doming

 

Hi Doming,
ich würde sagen, die MoveNext-Methode eine Recordsetobjekts setzt zwar den internen Satzzeiger auf den nächsten Datensatz. Das hat aber doch nichts mit dem Satzfocus im Formular zu tun, oder? Das bewerkstelligt man doch eher mit DoCmd.GotoRecord
DoCmd.GoToRecord Methode (Access VBA)

 

Hallo,
danke für den Tipp, aber tatsächlich ist es so, dass die obige Methode funktioniert.
Manchmal braucht es etwas Zeit, bis es *klick* macht. Da ich bei den meisten Unterformularen die Navigationszeile ausblende, ist es mir entgangen, dass der Datensatz im Unterformular tatsächlich wechselt, nur bekommt man davon nichts mit.
Wie ich in der Vergangenheit mal erläutert habe, lasse ich mir den aktiven Datensatz im Unterformular dadurch hervorheben, dass ich mit dem Event „beim Aktualisieren” eine versteckte Textbox mit der ID des aktiven Datensatzes fülle und dann mittels bedingter Formatierung die Zeile hervorhebe (wenn Textbox = aktualDS usw...)
Nur, wenn ich wie oben den aktiven Datensatz verschiebe, wird Form_Current nicht getriggert, also die versteckte Textbox nicht aktualisiert.
Folgender Code funktioniert:

Code:

   If Me.DxX Then
        Me.Parent!SollRahmen.Form.Recordset.FindFirst "Fertig <> 'ü'"
        Me.Parent!SollRahmen!TxAktiv = Me.Parent!SollRahmen!DxID
   End If

(Erläuterung: In Endlosformularen haben meine Textboxen im Kopfbereich das Päfix Tx, im Detailbereich Dx,
das "ü" wird mit der Schriftart „Wingdings” zu einem Haken)
Gruß
Doming