BBMonster - 02.06.20 16:54
Hier nochmal die problematische OnCurrent-Routine:
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.Recordset.FindFirst "depISIN = '" & Me!depISIN & "'"
ende:
End Sub