Last record is not adding to database

**ramserp** · 11-10-2009, 08:33 AM

Hi Friends,

When I exporting data from excel to a table in the Access Database. It took all records except last record. I hope it may be wrong in loop. Please kindly rectify it. I attached my code below.

Please Login or Register  to view this content.

**qff** · 11-10-2009, 09:27 AM

Hi

add .update to your code and move rs.close above cn.close and it should work

Do While Len(Range("A" & r).Formula) > 0

With rs
.AddNew
' add values to each field in the record.
.Fields("Empno") = Range("A" & r).Value
.Fields("Empname") = Range("B" & r).Value
.Fields("Desig") = Range("C" & r).Value
.Fields("Address") = Range("D" & r).Value
.Fields("Contactno") = Range("E" & r).Value
.Fields("Salary") = Range("F" & r).Value
.Update
End With

r = r + 1 'next row
Loop

rs.Close
cn.Close
Set cn = Nothing
Set rs = Nothing

regards
qff

**ramserp** · 11-11-2009, 08:19 AM

Hi qff, Thank you very much for replying my post. I have changed my as you told but it is giving Run-Time Error '3219' and error message is operation is not alowed in the context . Please help me in this regard.

Thanks&Regards
Ramesh