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!!! 
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
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