[Resolvido]Nota Fiscal Eletronica

dadosarquivo = AbreXML(arquivo)
NfeXml.TotaldeItens = TotalItensXML(dadosarquivo)
totald = totaldeDuplicatas(dadosarquivo)
CH = BUSCANO(BUSCANO(dadosarquivo, "protNFe"), "chNFe")
CNPJ = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "CNPJ")
razao = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xNome")
ENDERECO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xlgr")
IBGE = BUSCANO(BUSCANO(dadosarquivo, "ide"), "cMunFG")
NUMERO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "NRO")
BAIRRO = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "XBAIRRO")
CIDADE = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "xMun")
UF = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "UF")
Fone = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "fone")
CEP = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "CEP")
IE = BUSCANO(BUSCANO(dadosarquivo, "Emit"), "IE")
cnpjdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "CNPJ")
destinatario = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xNome")
enddest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xlgr")
Ndest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "NRO")
Bdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "XBAIRRO")
ciddest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "xMun")
UFdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "UF")
CEPdest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "CEP")
iedest = BUSCANO(BUSCANO(dadosarquivo, "dest"), "IE")
nnota = BUSCANO(BUSCANO(dadosarquivo, "ide"), "nNF")
DEmissao = BUSCANO(BUSCANO(dadosarquivo, "ide"), "DEMI")
tnota = Replace(BUSCANO(BUSCANO(dadosarquivo, "TOTAL"), "vnf"), ".", ",")


esse codigo eu busco no xml da nota fiscal eletronica os dados que preciso
so que eu queria que ele me mostrasse numa subforms os dados antes de eu importar

Olá Nadiro
Se já tem esses valores, porque não cria uma tabela com os campos correspondentes, alimente a tabela com eles de depois cria um formulário baseado nessa tabela.
Então pode usar ele como subformulário.
Sempre que precisar é só apagar os valores da tabela, para colocar outros.
Abraços

Boa tarde!

Se alguem conseguiu importa o xml da Danfe, por gentileza compartilhe!!

Muito obrigado!!!

Crie uma rotina de importação no próprio access e salve com o nome desejado
ex: ImportaçãoDeNota


Dim strCaminho As String
strCaminho = Me.txtCaminho - 'Caminho do arquivo com extenção tipo .xml,.txt, etc.
If Me.Nota <> Empty Then 'Campo de comparação se já existe a nota ou não
MsgBox "Já existe dados para esta nota ", vbInformation, "Importar nota"
Else
'Importa os dados do arquivo para tabela tblNotas
DoCmd.TransferText acImportDelim, "ImportaçãoDeNota", "tblNotas", strCaminho
End If

Faço isto com arquivos de coletores de dados, se estiver utilizando VB6 ou .Net é só fazer a chamada .
Boa sorte

Bom dia!
Alguem sabe alguma rotina onde apenas informo o diretorio, e a funcao vai lendo arquivo por arquivo e importando de maneira automatica, em vez de um por um!!

Obrigado!!!