Bei Me.Bookmark= rs.Bookmark gibt es eine Fehlermeldung

[smily68]

Hallo
Ich habe folgendes Problem:
Struktur: Adresse sowie innerhalb einer Adresse als Unterdatensatz Vater, Mutter, Kinder
Von einem Formular (Datenblatt Ansicht) wähle ich einen Datensatz (Vater, Mutter oder Kind) mit Doppelklick aus. Dies öffnet mir ein Formular (Einzelansicht der entsprechenden Adresse).  Dieses Einzelformular besteht aus mehreren Unterformularen (verteilt auf einzelne Register) sowie unterhalb des Registers auf ein Unterformular in Datenblatt Ansicht, das mir alle Familienmitgliede anzeigt. (siehe Foto im Anhang). Mit dem Doppelklick wird mir auch das entsprechende Register angezeigt und innerhalb der richtige Datensatz (Mutter, Vater oder Kind), gleichzeitig soll es mir aber auch im Unterformular, wo alle Mitglieder aufgelistet sind, der richtige Datensatz markiert werden. Doch dies bringe ich nicht hin. Kann mir dabei jemand helfen.

Der Fehler kommt bei :
Me.Bookmark = rs.Bookmark
Fehlermeldung: ,,Keine zulässige Textmarke"
Ich habe auch schon versucht. Me!sfrAdresseMitgliedListe.Bookmark = rs.Bookmark
Fehlermeldung ,,Objekt unterstütz Eigenschaft oder Methode nicht"
In rs.Bookmark ist die richtige Mitglied_ID vorhanden

Hier der Code:

Code aus Suchformular
Private Sub Form_DblClick(Cancel As Integer)

    strFormular = "frmAdresse"
    intAdresse = Me!adresse_ID
    intAdreMitglied = Me!adreMitglied_ID
   
    DoCmd.OpenForm strFormular, acNormal, , "adresse_ID = " & intAdresse, , , "Mitglied"
    DoCmd.Close acForm, "frmSucheAdresse", acSaveYes

End Sub

Code in Adresseformular

Private Sub Form_Load()
   
    'Fokus setzten
    If Not IsNull(Me.OpenArgs) Then
        Select Case Me.OpenArgs
            Case "Adresse"
                Me.regAdresse.SetFocus
            Case "Mitglied"
                Me!sfrAdresseMitgliedListe.SetFocus
                Set rs = Me!sfrAdresseMitgliedListe.Form.RecordsetClone
                rs.FindFirst "adreMitglied_ID = " & intAdreMitglied
                If Not rs.NoMatch Then
                    Me.Bookmark = rs.Bookmark
                End If
                Set rs = Nothing
                Me.regMitglied.SetFocus
                Set rs = Me!sfrAdresseMitglied.Form.RecordsetClone
                rs.FindFirst "adreMitglied_ID = " & intAdreMitglied
                Set rs = Nothing
            Case "Teilnehmer"
                Me.cboAdreSes_Session_IDF = intSession
                Me.regTeilnehmer.SetFocus
                Set rs = Me!sfrAdresseTeilnehmerSession.Form.RecordsetClone
                rs.FindFirst "adreTeilSes_AdreMitglied_IDF = " & intAdreMitglied
                Set rs = Nothing
        End Select
    Else
        Me.regAdresse.SetFocus
    End If
   
End Sub

Mit freundlichen Grüssen

Daniel


[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,


Me!sfrAdresseMitgliedListe.FORM.Bookmark = rs.Bookmark