UFOs werden als leerer Rahmen dargestellt
PeterDoering
Gesendet: 03.06.20 16:54
Betreff: RE: UFOs werden als leerer Rahmen dargestellt



Extreme Veteran

Beiträge: 563
5002525
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
Top of the page Bottom of the page