UFOs werden als leerer Rahmen dargestellt
BBMonster
Gesendet: 04.06.20 12:27
Betreff: RE: UFOs werden als leerer Rahmen dargestellt


Member

Beiträge: 9

Hi Peter,
Du hast recht, wenn man RecordsetClone statt Recordset verwendet, funktioniert das Formular auch, auch wenn man die BookMark-Zuweisung wegläßt. Hier die OnCurrent-routine, die keine Probleme mehr macht:

Private Sub Form_Current()
Dim p As Object
'Dieses Formular ist ein Unterformular, finde das HFO. Wenns kein Parent gibt, keine sync
On Error GoTo ende
Set p = Me.Parent
' ISIN der ausgewählten Zeile ans Hauptformular schicken und dort ein Findfirst machen
p.RecordsetClone.FindFirst "depISIN = '" & Me!depISIN & "'"
ende:
End Sub

Bis jetzt hatte ich nie verstanden, wöfür man den Recordsetclone überhaupt braucht. Danke für die Lehrstunde.
Gruß
BBMonster
Top of the page Bottom of the page