![](/forum/profile/get-photo.asp?memberid=30&type=profile&rnd=592) Extreme Veteran
Beiträge: 565
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif)
| 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 |