[Resolvido]Acrescentar campo em tabela temporária

Bd em Access 2010.

Tabelas envolvidas:
XML_PROD
XML_DET
xmlProdutos (Tabela temporária)

O Formulário possui um botão de comando que cria uma tabela temporária. Segue código:

Código:

'CRIAR TABELA TEMPORARIA
    Dim stSql  As String
    stSql = "SELECT XML_PROD.cProd AS ccVarPro, XML_PROD.cEAN AS ccBarras, XML_PROD.xProd AS ccNomPro, XML_PROD.NCM AS ccNCM, XML_PROD.uCom AS ccMedida, XML_PROD.nFCI AS ccnFCI, Val([qCom]) AS ccQte, Val([vUnCom]) AS ccPreçoCusto, Val([vProd]) AS ValorTotal, tbl_Produtos.CODPRO AS CODIGO, tbl_Produtos.ccNomPro AS NOME, Val([qCom]) AS QTE, Val([vUnCom]) AS CUSTO, Val([vProd]) AS TOTAL, Val([nItem]) AS Item INTO xmlProdutos"
    stSql = stSql & " FROM XML_PROD LEFT JOIN tbl_Produtos ON XML_PROD.cEAN = tbl_Produtos.ccBarras;"
   
   
    DoCmd.SetWarnings False
    DoCmd.RunSQL stSql
    DoCmd.SetWarnings True
   
    DoCmd.Close acForm, Me.Form.Name


Gostaria de acrescentar "XML_DET.infAdProd AS ccinfAdProd", de modo que o conteúdo do campo "XML_DET.infAdProd" também fosse criado na tabela temporária "xmlProdutos".

Fiz alguns testes incluindo "XML_DET.infAdProd AS ccinfAdProd" no código, mas aparece uma mensagem pedindo para inserir um valor para o campo.

Como posso fazer isso?

Desde já agradeço!

Bom dia,
O campo não existirá na tabela XML_DET

Alexandre, desculpe mas não entendi sua resposta.

O campo existe na tabela ou é campo novo?
pelo código, deve ser da tabela; pela mensagem de erro, não deve existir na tabela

O campo existe ambas tabelas:

tbl_Produtos: ccinfAdProd

XML_DET: infAdProd

Só vendo a bd

Segue anexo para análise.
Abra o Formulário XML_IMPORTAR e clique em processar.
Vai aparece a mensagem para inserir um valor.
Clique em OK e observe que será criada a tabela "xmlProdutos".
Nessa tabela é criado o campo "ccinfAdProd", porém sem o seu conteúdo que deveria ser captado na tabela XML_DET.

Não tem a tabela relacionada no SQL
Só tem XML_PROD e tbl_Produtos

Eis a solução:

Créditos para Avelino Sampaio.

'CRIAR TABELA TEMPORARIA
Dim stSql As String
Dim rs As dao.Recordset
stSql = "SELECT XML_PROD.cProd AS ccVarPro, XML_PROD.cEAN AS ccBarras, XML_PROD.xProd AS ccNomPro, "
stSql = stSql & "XML_PROD.NCM AS ccNCM, XML_PROD.uCom AS ccMedida, XML_PROD.nFCI AS ccnFCI, "
'aqui vc cria o campo vazio
stSql = stSql & "'' AS ccinfAdProd, "
stSql = stSql & "Val([qCom]) AS ccQte, Val([vUnCom]) AS ccPreçoCusto, Val([vProd]) AS ValorTotal, tbl_Produtos.CODPRO AS CODIGO, "
stSql = stSql & "tbl_Produtos.ccNomPro AS NOME, Val([qCom]) AS QTE, Val([vUnCom]) AS CUSTO, Val([vProd]) AS TOTAL, "
stSql = stSql & "Val([nItem]) AS Item INTO xmlProdutos"
stSql = stSql & " FROM XML_PROD LEFT JOIN tbl_Produtos ON XML_PROD.cEAN = tbl_Produtos.ccBarras;"

DoCmd.SetWarnings False
DoCmd.RunSQL stSql
DoCmd.SetWarnings True

Set rs = CurrentDb.OpenRecordset("xmlProdutos")
Do While Not rs.EOF
rs.Edit
rs!ccinfAdProd = Nz(DLookup("infadprod", "XML_Det", "infadprod like '*" & rs!ccnFCI & "*'"))
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "Montagem da tabela concluida...", vbInformation, "Aviso"

Ainda bem que resolveu
Mas, se esse código corresponde à solução, nunca seria possível chegar à solução com a falta de dados na bd
Fica-se com a sensação de impotência, estar-se a matutar e cansar à procura de solução e chegar à conclusão que nos dificultou o trabalho