Extreme Veteran
Beiträge: 567
 
| Hallo,
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
Du kannst mal mit der "alten" Methode testen:
Dim p As Form
On Error Goto ende
Set p = Me.Parent
p.RecordsetClone.FindFirst "depISIN = '" & Me!depISIN & "'"
p.Bookmark = p.RecordsetClone.Bookmark
ende:
End Sub
-----
Gruss - Peter |
UFOs werden als leerer Rahmen dargestellt