Gravar campo com DPesquisa

Boa tarde galera.

Estou montando um sistema de laudo eletrônico para empresa, no formulário principal.. tenho algumas campos que tem preenchimento automático...
como tipo de documento, descrição do produto, razão social do cliente, uso Dpesquisa para os que não preciso gravar na tabela, mais alguns eu preciso então uso a seguinte linha no VBA "Me.cmtipodoc = Me.cmnfdesaida.Column(1)" para trazer o resultado e conseguir gravar.

Preciso trazer com o Numero na nota fiscal o 'tipo de documento' que uso a linha acima e o nome fantasia, mais o nome fantasia não consigo gravar na tabela, sô trazer com dpesquisa, tentei fazer com " Me.cmfantasia= Me.cmnfdesaida.Column(2)" usando a consulta da origem da linha mais não consigo.


tem alguma maneira de trazer os 2 resultados com o Numero da nota e gravar-los na tabela?


Muito obrigado!!!!

Bom dia,
Verifique se a expressão lhe devolve o valor que pretende ou se é erro de gravação

quando eu uso a formula para trazer o resultado da segunda coluna, não traz nenhum resultado.

Private Sub cmnfdesaida_AfterUpdate()
Me.cmtipodoc = Me.cmnfdesaida.Column(1)
Me.Refresh
End Sub

Uso uma consulta com 3 colunas a primeira e a origem da linha do campo nota fiscal, a 2 me traz o tipo de documento com o codigo acima.
estava tentando usar assim:

Private Sub cmnfdesaida_AfterUpdate()
Me.cmtipodoc = Me.cmnfdesaida.Column(1)
Me.cmfantasia = Me.cmnfdesaida.Column(2)
Me.Refresh
End Sub

mais ele não aparece o resultado da segunda coluna ( no caso o nome fantasia do cliente no campo cmfantasia )


obrigado.

Assim, tem de rever os dados na caixa de combinação. Confirme se tem 3 colunas

Tem sim... o código esta certo? segue o print da consulta...


https://2img.net/h/oi57.tinypic.com/2qxm0xf.jpg ----> consulta