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]
Hallo,
Me!sfrAdresseMitgliedListe.FORM.Bookmark = rs.Bookmark