This is a datatype conversion error. You need to ensure your rs_start.Fields("Projected Task")
datatype is the same as rs_end.Fields("ProjectName")
. Check the Type
on each of these fields. If they are not the same you will need to cast accordingly.
Copying Sharepoint table data to Access table - Error 3421
-
12-07-2023 - |
Question
I'm using Access 2007 and Sharepoint 3.0. I've created a Sharepoint List in my db. Using VBA (below) I'm trying to 'copy' data from a field in the Sharepoint list to 'paste' into another field in my Access Db.
The code successfully runs up to the 'pasting' portion. I've confirmed all is good with a debug.print (the code is successfully copying the Sharpoint List data) but error 3421 pops up when 'pasting'.
Thank you in advance for anyone's help!
Dim rs_first As DAO.Recordset
Dim rs_end As DAO.Recordset
Dim tbl_start As String
Dim tbl_end As String
Dim rep As Variant
Dim proj As Variant
Dim hrs As Integer
Dim s_dt As Date
Dim e_dt As Date
tbl_start = "TEST_Resource" '<-- ***This is the Sharepoint List***
tbl_end = "MiddleTable"
Set rs_start = CurrentDb.OpenRecordset(tbl_start)
Set rs_end = CurrentDb.OpenRecordset(tbl_end)
proj = rs_start.Fields("Projected Task")
rep = rs_start.Fields("Associate Name")
hrs = rs_start.Fields("Projected Hours")
s_dt = rs_start.Fields("Start Date")
e_dt = rs_start.Fields("End Date")
'Adding a Record to Table
With rs_end
.AddNew
.Fields("ProjectName") = proj '<---***Error 3421****
.Fields("Employee") = rep
.Fields("Hours") = hrs
.Fields("Week") = s_dt
.Update
End With
Solution
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow