Oi Pessoal,
Estou fazendo um formulário auxiliar que identifica o campo que está sendo alterado e abre uma caixa de pesquisa para auxiliar o preenchimento.
Está tudo certo mas não sei como fazer ele retornar o valor para o campo.
Ao clicar duas vezes no campo que voce precisa preencher ele roda esta macro:
RemoverTodasVarTemp
DefinirVarTemp -> Campo; [Formulários]![Lancamentos]![CodConta].[Nome]
DefinirVarTemp -> Formulario; [Formulários]![Lancamentos].[Nome]
AbrirFormulário
Abre um formulario com uma caixa de texto e uma listbox onde vai ser digitado a pesquisa e o resultado aparece na listbox.
Ao clicar duas vezes no item escolhido da listbox executa este código:
_______________________________________
Private Sub ListaC_DblClick(Cancel As Integer)
Dim endereco As String
endereco = "Forms!" & [TempVars]!]Formulario] & "!" & [TempVars]!]campo]
'aqui está a dúvida: como faço para mandar o valor (ListaC.Column(1)) para o campo "endereco"
endereco(.value???) = ListaC.Column(1)
DoCmd.Close acForm, "Ajuda", acSaveYes
End Sub
_______________________________________
Este sisteminha é bom pois é só colocar a macro nos campos que você quer usar o auxiliar e ele automaticamente já vai saber pra onde enviar o resultado da pesquisa.
Obrigada
Helena
Estou fazendo um formulário auxiliar que identifica o campo que está sendo alterado e abre uma caixa de pesquisa para auxiliar o preenchimento.
Está tudo certo mas não sei como fazer ele retornar o valor para o campo.
Ao clicar duas vezes no campo que voce precisa preencher ele roda esta macro:
RemoverTodasVarTemp
DefinirVarTemp -> Campo; [Formulários]![Lancamentos]![CodConta].[Nome]
DefinirVarTemp -> Formulario; [Formulários]![Lancamentos].[Nome]
AbrirFormulário
Abre um formulario com uma caixa de texto e uma listbox onde vai ser digitado a pesquisa e o resultado aparece na listbox.
Ao clicar duas vezes no item escolhido da listbox executa este código:
_______________________________________
Private Sub ListaC_DblClick(Cancel As Integer)
Dim endereco As String
endereco = "Forms!" & [TempVars]!]Formulario] & "!" & [TempVars]!]campo]
'aqui está a dúvida: como faço para mandar o valor (ListaC.Column(1)) para o campo "endereco"
endereco(.value???) = ListaC.Column(1)
DoCmd.Close acForm, "Ajuda", acSaveYes
End Sub
_______________________________________
Este sisteminha é bom pois é só colocar a macro nos campos que você quer usar o auxiliar e ele automaticamente já vai saber pra onde enviar o resultado da pesquisa.
Obrigada
Helena