CBALL2014
06-10-2014, 07:52 AM
I have been pulling my hair out trying to figure out why I'm getting this error from my Access application. I have 2 linked SQL Server tables (dbo.UDS_MAINTENANCE, dbo.ESTATE_MASTER) and a I'm trying to join a linked excel (UEP_SUMMARY) to one of them in an INSERT INTO SELECT statement. My vba code is below:
GlobalPED = objCMD.Parameters("PED").Value
Dim InsUEPSQL As String
InsUEPSQL = "INSERT INTO dbo_UDS_MAINTENANCE(PED,ENTITY,ESTATE_ID,NAIC,ESTA TE_NAME,UDS_STATE,UDS_TYPE) " & _
"SELECT DISTINCT UEP.COMPANY_IGA AS ESTATE_ID, " & _
"'" & GlobalPED & "' AS PED, " & _
"UEP.FUND AS ENTITY, " & _
"EM.NAIC_GROUP AS NAIC, " & _
"EM.ESTATE_NAME AS ESTATE_NAME, " & _
"EM.UDS_STATE AS STATE, " & _
"'UEP' AS UDS_TYPE " & _
"FROM UEP_SUMMARY UEP " & _
"INNER JOIN dbo_ESTATE_MASTER EM ON INT(UEP.COMPANY_IGA) = INT(EM.FIGA_ID) " & _
"WHERE UEP.FUND = 'FIGA' "
Debug.Print InsUEPSQL
DoCmd.RunSQL InsUEPSQL
StatusBar "UEP Information obtained for FIGA..."
Me.Requery
Any assistance is greatly appreciated!
GlobalPED = objCMD.Parameters("PED").Value
Dim InsUEPSQL As String
InsUEPSQL = "INSERT INTO dbo_UDS_MAINTENANCE(PED,ENTITY,ESTATE_ID,NAIC,ESTA TE_NAME,UDS_STATE,UDS_TYPE) " & _
"SELECT DISTINCT UEP.COMPANY_IGA AS ESTATE_ID, " & _
"'" & GlobalPED & "' AS PED, " & _
"UEP.FUND AS ENTITY, " & _
"EM.NAIC_GROUP AS NAIC, " & _
"EM.ESTATE_NAME AS ESTATE_NAME, " & _
"EM.UDS_STATE AS STATE, " & _
"'UEP' AS UDS_TYPE " & _
"FROM UEP_SUMMARY UEP " & _
"INNER JOIN dbo_ESTATE_MASTER EM ON INT(UEP.COMPANY_IGA) = INT(EM.FIGA_ID) " & _
"WHERE UEP.FUND = 'FIGA' "
Debug.Print InsUEPSQL
DoCmd.RunSQL InsUEPSQL
StatusBar "UEP Information obtained for FIGA..."
Me.Requery
Any assistance is greatly appreciated!