hallo leute!

ich versuche gerade, den inhalt einer Tabelle in eine andere Tabelle zu übertragen....

jedoch bekomme ich einen Laufzeitfehler in der INSERT INTO anweisung!....

ich sehe den fehler jedoch nicht!!....

kann mir vllt jemand helfen???

wäre euch seeehr dankbar!

Dim strSQL As String

Dim Rs As Recordset



strSQL = "select * from dbo_T_TOUR"

Set Rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)


If Rs.RecordCount = 0 Then

   MsgBox "Die Tabelle dbo_T_TOUR ist leer oder konnte nicht gelesen werden"

End If


If Rs.RecordCount > 0 Then

   Rs.MoveFirst


        Do While Rs.EOF = False


                strSQL = "insert into tmp_T_TOUR_KOPIE (TOURID, DLID, TOURNUMMER, TOURTYP, TOURBEZEICHNUNG, REGION, TAGE, LBZIDabl, "

                strSQL = strSQL & "LZBIDbest, GUELTIGAB, GUELTIGBIS, PORTART, ERFUSER, TIMESTAMP, MANDANT, ZENTRALE, LASTUPD, "

                strSQL = strSQL & "REFERENZDATUM, FAHRFREQUENZ, AENUSER, ERFTIME, AKTIV, "

                strSQL = strSQL & "AUBE_NOTEN, AUBE_HARTGELD, AUFTRAGGEBER, SPEDITEUR, BBK_VERSAND)"

                strSQL = strSQL & " VALUES ("

                strSQL = strSQL & Trim(Rs.Fields![TOURID]) & "," & Trim(Rs.Fields![DLID]) & "," & Trim(Rs.Fields![TOURNUMMER]) & ",'"

                strSQL = strSQL & Trim(Rs.Fields![TOURTYP]) & "','" & Trim(Rs.Fields![TOURBEZEICHNUNG]) & "','"

                strSQL = strSQL & Trim(Rs.Fields![REGION]) & "','" & Trim(Rs.Fields![TAGE]) & ","

                strSQL = strSQL & Trim(Rs.Fields![LZBIDabl]) & "," & Trim(Rs.Fields![LZBIDbest]) & ",'"

                strSQL = strSQL & Trim(Rs.Fields![GUELTIGAB]) & "','" & Trim(Rs.Fields![GUELTIGBIS]) & "','"

                strSQL = strSQL & Trim(Rs.Fields![PORTART]) & "','" & Trim(Rs.Fields![ERFUSER]) & ","

                strSQL = strSQL & Trim(Rs.Fields![TIMESTAMP]) & ",'" & Trim(Rs.Fields![MANDANT]) & "','"

                strSQL = strSQL & Trim(Rs.Fields![ZENTRALE]) & "','" & Trim(Rs.Fields![LASTUPD]) & "','"

                strSQL = strSQL & Trim(Rs.Fields![REFERENZDATUM]) & "'," & Trim(Rs.Fields![FAHRFREQUENZ]) & ",'" & Trim(Rs.Fields![AENUSER]) & "','"

                strSQL = strSQL & Trim(Rs.Fields![ERFTIME]) & "','" & Trim(Rs.Fields![AKTIV]) & "')"

                strSQL = strSQL & Trim(Rs.Fields![AUBE_NOTEN]) & "','" & Trim(Rs.Fields![AUBE_HARTGELD]) & "'," & Trim(Rs.Fields![AUFTRAGGEBER]) & ","

                strSQL = strSQL & Trim(Rs.Fields![SPEDITEUR]) & "," & Trim(Rs.Fields![BBK_VERSAND]) & ")"


                CurrentDb.Execute (strSQL)

                DoEvents



                Rs.MoveNext

        Loop


End If

habs schon!...

lag an nem binären feld....und paar hochkommas:)