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


3 participantes

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    avatar
    Thel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 19/06/2012

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Thel 23/3/2023, 14:30

    Olá a todos!

    Estou recorrendo ao Fórum para me tirarem uma dúvida a respeito de preenchimento automático de campos de um formulário, tendo como base uma caixa de combinação.

    Tenho uma tabela chamada TabCliente com os seguintes campos e colunas nesta ordem:
    Cliente_ID => Primeira coluna = Numeração Automática (Chave primária);
    CPF_CNPJ => Segunda coluna = Texto Curto.
    Nome_Completo => Terceira coluna = Texto Curto.
    TelefoneFixo => Quarta coluna = Texto Curto.
    Celular => Quinta coluna = Texto Curto.
    Whatsapp => Sexta coluna = Texto Curto.

    E tenho um formulário chamado Frm_CadastroServico com os seguintes campos:
    cboPropComprador => Caixa de combinação que recebe os dados de uma consulta SQL (SELECT TabCliente.Nome_Completo, TabCliente.CPF_CNPJ FROM TabCliente ORDER BY TabCliente.Nome_Completo;) e exibe apenas o Nome_Completo nela.
    txtRequerente => Caixa de texto.
    txtTelefoneFixo => Caixa de texto.
    txtCelular => Caixa de texto.
    txtWhatsapp => Caixa de texto.

    No evento Após atualizar do txtRequerente, eu coloquei este código:
    Código:
    Me.txtTelefoneFixo = DLookup("TelefoneFixo", "TabCliente", "TelefoneFixo=" & Me!cboPropComprador.Column(4) & "'")
    Me.txtCelular = DLookup("Celular", "TabCliente", "Celular=" & Me!cboPropComprador.Column(5) & "'")
    Me.txtWhatsapp = DLookup("Whatsapp", "TabCliente", "Whatsapp=" & Me!cboPropComprador.Column(6) & "'")

    Quando eu o executo, aparece a mensagem "Erro em tempo de execução 3075. Erro de sintaxe na cadeia na expressão de consulta 'TelefoneFixo='".

    Já revirei alguns fóruns, inclusive dei uma olhada no repositório deste fórum, tentei várias expressões e nenhuma deu certo.

    Alguém aí sabe o que eu estou fazendo de errado?
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Re: [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Kaynan 23/3/2023, 15:10

    Ola amigo,para ajudar mais rápido poste pra gente ver.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Re: [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Alexandre Fim 23/3/2023, 15:15

    Olá,

    Inclua os campos marcados no select abaixo:

    SELECT TabCliente.Nome_Completo, TabCliente.CPF_CNPJ, TabCliente.TelefoneFixo,TabCliente.Celular,TabCliente.Whatsapp FROM TabCliente ORDER BY TabCliente.Nome_Completo.

    OBS: Não se esqueça de aumentar o nro de colunas do combobox também, referente aos campos adicionados no select.

    Em seguida, mude para o código abaixo:

    Código:


    Me.txtTelefoneFixo = Me!cboPropComprador.Column(2)
    Me.txtCelular = Me!cboPropComprador.Column(3)
    Me.txtWhatsapp = Me!cboPropComprador.Column(4)


    É isso

    Espero ter ajudado

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Thel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 19/06/2012

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Problema resolvido.

    Mensagem  Thel 23/3/2023, 17:35

    Olá, amigos!

    Foi o que o amigo Alexandre postou aí: eu não estava incluindo os demais campos na consulta SQL!

    Segue a solução completa para quem estiver passando por este problema:

    1. Reorganizei a tabela, colocando o campo CPF_CNPJ depois do campo Nome_Completo;

    2. Incluí todos os campos da tabela que faltavam na consulta SQL, que ficou assim:
    SELECT TabCliente.Cliente_ID, TabCliente.Nome_Completo, TabCliente.CPF_CNPJ, TabCliente.TelefoneFixo, TabCliente.Celular, TabCliente.Whatsapp FROM TabCliente ORDER BY TabCliente.Nome_Completo;

    3. Logo após isso, eu coloquei nas propriedades da caixa de combinação cboPropComprador a seguinte configuração:
    Número de colunas: 6
    Largura das colunas: 0cm;7cm;6cm;0cm;0cm;0cm

    4. No evento Após atualizar da caixa de texto txtRequerente, eu coloquei este código que Alexandre mencionou:
    Me.txtTelefoneFixo = Me.cboPropComprador.Column(3)
    Me.txtCelular = Me.cboPropComprador.Column(4)
    Me.txtWhatsapp = Me.cboPropComprador.Column(5)

    E o resultado foi SHOW!

    Obrigado, de coração, pela boa vontade!

    Tópico resolvido!

    Alexandre Fim gosta desta mensagem

    avatar
    Thel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 19/06/2012

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Re: [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Thel 23/3/2023, 17:39

    cheers cheers cheers cheers cheers
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Re: [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Alexandre Fim 23/3/2023, 18:14

    Valeu Thel !!!
    O fórum agradece.
    Sucesso !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base. Empty Re: [Resolvido]Preencher campos de um formulário tendo uma caixa de combinação como base.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 06:41