Recordset RunSQL problem, please help.

[Lazster]

Hi,

I'd really appreciate some help here people. I am trying to insert some values in a table in another database and not getting the results I am expecting. I am simply trying to insert values via a connection to a recordset and then close the recordset.

However I keep getting a type mismatch on the variable rstMainData.

Please can someone help me? The code is as below.



Private Sub txtGetURN_AfterUpdate()
DoCmd.SetWarnings False
Call ClearAll
Dim wsAccess As Workspace
Dim dbBackEnd As DAO.Database
Dim strSQL As String
Set wsAccess = DBEngine(0)

Set dbBackEnd = wsAccess.OpenDatabase("S:\RLR RMU\033 GI Services\NewParcelsCreated\ParcelsCreated_Data.mdb ", False, True)

MsgBox dbBackEnd.Name

Dim rstMainData As DAO.Recordset
Set rstMainData = dbBackEnd.OpenRecordset("tblMainData", dbOpenTable)

strSQL = "INSERT INTO tblMainDataNew SELECT tblMainData.* FROM "
strSQL = strSQL & rstMainData
strSQL = strSQL & " WHERE (((tblMainData.URN)=[Forms]![frmMainData]!txtGetURN]))"


rstMainData.Close
Set rstMainData = Nothing

wsAccess.Close
Set dbBackEnd = Nothing
DoCmd.SetWarnings True
DoCmd.Requery
Call RequeryLists

End Sub

[FishVal]

Hi, Lazster.

Why pay more. You may append records from/to an external db table without getting connection to it.

to external db

INSERT INTO tblMainDataNew IN 'S:\RLR RMU\033 GIServices\NewParcelsCreated\ParcelsCreated_Data.mdb' SELECT tblMainData.* FROM tblMainData WHERE (((tblMainData.URN)=[Forms]![frmMainData]!txtGetURN]));
 

from external db

INSERT INTO tblMainDataNew SELECT tblMainData.* FROM tblMainData IN 'S:\RLR RMU\033 GIServices\NewParcelsCreated\ParcelsCreated_Data.mdb' WHERE (((tblMainData.URN)=[Forms]![frmMainData]!txtGetURN]));
 

Regards,
Fish