MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Formulário Auxiliar para Preencher campo

    avatar
    becarrara
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 26/01/2011

    [Resolvido]Formulário Auxiliar para Preencher campo Empty [Resolvido]Formulário Auxiliar para Preencher campo

    Mensagem  becarrara 15/2/2011, 17:21

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formulário Auxiliar para Preencher campo Empty Re: [Resolvido]Formulário Auxiliar para Preencher campo

    Mensagem  criquio 15/2/2011, 17:27

    Já tentou assim?

    Forms!NomeForm!NomeCampo = Me.ListaC.Column(1)

    Só mais uma coisinha. Em Access, macros são aquelas construídas pelo Criar Macros. Quando usamos códigos em eventos ou módulos, falamos em códigos vba mesmo, OK?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 23/11/2024, 09:26