AfterUpdate bringt in der Rs.FindFirst Zeile

[Insane Aimo XIII]

Hai

Ich habe folgenden Quellcode:

Code [Auswählen] Erweitern


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

[database]

Hallo,

FindFirst vergleicht ja ein Formularfeld oder einen anderen beliebigen Wert mit einem Feld seines Recordsets.

Code [Auswählen] Erweitern

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:

Code [Auswählen] Erweitern

RS.FindFirst "AnlNR=" & Me![Kombinationsfeld62]

und auch gemäß FAQ: http://www.donkarl.com?FAQ4.3

Code [Auswählen] Erweitern


If Not rs.Nomatch Then
    Me.Bookmark = rs.Bookmark
End If





HTH

[Insane Aimo XIII]

Hai

Super geil. Vielen, vielen lieben Dank Es funktioniert und ich habe wieder etwas dazugelernt.

Einen angenehmen Tag noch
Insane