Thanks for your input, I can see what you are trying to do and decided to try and implement your code into what I have already.
There are 81 fields in the record. but sometimes the very last field No81 is empty. heres how I added your code to the existing:
Dim rsTemp As Recordset
'(your other Dims here)
Do Until rsreelstore.EOF
Set rsTemp = reeldata_db.OpenRecordset _
("SELECT COUNT(*) As RecCount " _
& "FROM reeldata WHERE Number = '" _
& rsreelstore!Number & "'")
If rsTemp!RecCount = 0 Then
Dim Fld As Field
Dim StrSQL As String
StrSQL = ""
For Each Fld In rsreelstore.Fields
If StrSQL <> "" Then StrSQL = StrSQL & ", "
StrSQL = StrSQL & Fld.Value
Next Fld
Debug.Print StrSQL
StrSQL = "INSERT INTO reeldata VALUES(" & StrSQL & ")"
reeldata_db.Execute StrSQL
End If
rsreelstore.MoveNext
Loop
when I run the code I get an error message
syntax error (missing operator) in querie expresion '8130'
err num 3075
I tried doing this:
StrSQL = "INSERT INTO reeldata VALUES('" & StrSQL & "')"
adding the ' ' around bit above but then I get
number of querie values and destination fields aren't the same.
I don't understand whats going on, is it something to do with the last field being empty. When I do a debug print of strsql string I get this at the end ie field 80 & 81
,0,
the 0 is field 80 and the blank after the coma is field 81
I have tried adding an other coma to the end but it still wouldn't work. Any idea's
Many thanks
Locutus
