Hai :(
Ich habe folgenden Quellcode:
Private Sub Kombinationsfeld62_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim RS As Object
Set RS = Me.Recordset.Clone
RS.FindFirst "[Kostenstellen.AnlNR] = '" & Me![Kombinationsfeld62] & "'"
If Not RS.EOF Then Me.Bookmark = RS.Bookmark
End Sub
Ziel ist es, woran ich allerdings langsam verzweifel, dass ich eine Suchfunktion für das Feld "AnlNR" einbaue. Sobald ich auf eine entsprechende Nummer klicke, möchte ich, dass die anderen Felder aktualisiert werden - und ich den Datensatz ändern kann.
Allerdings wird immer wieder ein Fehler in der Zeilte mit RS.FindFirst ausgegeben, genauer gesagt bei der Stelle, wo ich das entsprechende Feld habe, in dem Fall "[Kostenstellen.AnlNR". Auch nur AnlNR hat mir nicht weitergeholfen.
Vielen Dank schon einmal für eure Hilfe
Mit freundlichem Gruß
Insane Aimo XIII
Hallo,
FindFirst vergleicht ja ein Formularfeld oder einen anderen beliebigen Wert mit einem Feld seines Recordsets.
RS.FindFirst "AnlNR = '" & Me![Kombinationsfeld62] & "'"
.... da ich mir nicht recht vorstellen mag, dass das Feld im Recordset [Kostenstellen.AnlNR] heißen wird.
Wenn dann das Kombi - so wie es richtigerweise sein sollte - als gebundene Spalte die ID seiner Datenherkunft enthält:
RS.FindFirst "AnlNR=" & Me![Kombinationsfeld62]
und auch gemäß FAQ: http://www.donkarl.com?FAQ4.3 (http://www.donkarl.com?FAQ4.3)
If Not rs.Nomatch Then
Me.Bookmark = rs.Bookmark
End If
HTH
Hai :)
Super geil. Vielen, vielen lieben Dank :) Es funktioniert und ich habe wieder etwas dazugelernt.
Einen angenehmen Tag noch
Insane