Problem beim Suchen mit FindFirst

Computer: Software & Programmierung Microsoft Access
#1

Guten Tag!

Beim folgenden Code kommt immer der Laufzeitfehler 3251: Operation wird für diesen Objekttyp nicht unterstützt.

Code:
Dim rs As DAO.Recordset
Dim sr As DAO.Recordset
Dim Datum1 As Date
Dim search As String

Set rs = CurrentDb.OpenRecordset(„tbl_Test1“)
rs.Edit

Set sr = CurrentDb.OpenRecordset(„tbl_Test2“)
sr.AddNew

search = "[Dienstende] > " & txt_NJ

Do Until rs.EOF
rs.FindFirst search 'Hier zeigt mir der Debugger den Fehler an
sr!Angestellten_ID = rs!Angestellten_ID
sr!Monat = Chk_Monat.Column(2)
sr!Jahr = txt_Jahr
Loop

Dieser Code soll alle Angestellten, deren Dienstende größer als der Inhalt des Textfeldes txt_NJ ist, von der Tabelle Test1 in Test2 kopieren. Zusätzlich werden noch Monat und Jahr hineingeschrieben.

Brauche dringend Hilfe!!! :smile:

#2

Holla.

Set rs = CurrentDb.OpenRecordset(„tbl_Test1“)

rs.Edit

Wawhiskyrum dieses?

Set sr = CurrentDb.OpenRecordset(„tbl_Test2“)
sr.AddNew

search = "[Dienstende] > " & txt_NJ

Do Until rs.EOF
rs.FindFirst search 'Hier zeigt mir der Debugger den
Fehler an
sr!Angestellten_ID = rs!Angestellten_ID
sr!Monat = Chk_Monat.Column(2)
sr!Jahr = txt_Jahr

Hier fehlt dann sowieso das sr.Update.

Loop

Außerdem sollten die Recordsets DAO.Recordsets sein, was wiederum den Verweis auf die 3.60 Bibliothek erforderlich macht.

Im Übrigen sehe ich keinen Grund, das Problem nicht mit einer Anfügeabfrage zu lösen …

Gruß Eillicht zu Vensre

#3

Hallo,

search = "[Dienstende] > " & txt_NJ
rs.FindFirst search 'Hier zeigt mir der Debugger den

wie ist den das Feld Dienstende definiert?
Text : dann :search = „[Dienstende] > '“ & txt_NJ & „’“
Datum : dann :search = „[Dienstende] > #“ & txt_NJ & „#“

hope this helps

Tschau
Peter