Hallo
Ich habe folgende Konstellation. HF und UF beide haben die selbe Abfrage hinterlegt, sind jedoch nicht miteinander verknüpft. Im HF habe ich ein Kombifeld mit dem ich die Datensätze im UF filtere. Nun möchte ich mit einem Doppelclick auf einem Datensatz im UF diesen zum aktuellen Datensatz im HF machen.
Wie mache ich das? Ich habe es mit folgendem Code versucht. Dieser Code funktioniert nur wenn die Untertabelle nicht gefiltert ist. Sobald ich vom HF aus einen Filter auf das UF setze und mit einem Doppelclick den Datensatz im UF auswähle, gibt es folgende Fehlermeldung: "Keine Zulässige Textmarke"
Hier der Code:
Private Sub Form_DblClick(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "gruppe1_ID = " & Me.gruppe1_ID
If Not rs.NoMatch Then
Forms!frmGruppe1.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End Sub
Wer kann mir helfen?
Gruss Daniel
Hallo Daniel,
Von einem UFo kannst Du mit Me.Parent auf
das HFo zugreifen:
Private Sub Form_DblClick(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = Me.Parent.RecordsetClone
rs.FindFirst "gruppe1_ID = " & Me.gruppe1_ID
If Not rs.NoMatch Then
Me.Parent.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End Sub
(ungetestet)
hth
gruss ekkehard