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]Ajuda com preenchimento de caixas de Texto no Form

    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty [Resolvido]Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  cjsilva2013 Ter 22 Dez 2015, 7:12 pm

    Boa tarde companheiros, estou de volta pra pedir ajuda de vocês... Hoje me deparei com uma dificuldade e vi varias soluções no Forum, tentei adaptar mais não consegui...

    É o seguinte, tenho tabelas, cliente, fornecedor e dados recibo. no form recibo, gostaria de selecionar o nome do fornecedor e já preencher as informações nas caixas de texto. Da mesma forma ao escolher o Código do Cliente, também preencher as caixa de texto.

    Segue Parte do BD para analise...

    Desde já agradeço...

    http://www.4shared.com/rar/G6IVGQ2oce/BuscaForm.html

    "Ninguém gosta de ficar esperando, mas na maioria das vezes é preciso esperar. O tempo mostra coisas que agente não enxerga a primeira vista"
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Re: [Resolvido]Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  Noobezinho Ter 22 Dez 2015, 10:32 pm

    Francisco

    O que pretende é programação básica em access.

    Portanto, vou fazer um "aprenda fazendo".

    Seria bom ler sobre caixas de combinação ou combobox em inglês, na ajuda do Access

    como também na internet.

    Vamos la:

    - Fazer uma consulta seleção para a propriedade origem da linha da combo.
        Coloque nessa consulta, os campos que irá precisar para preencher os outros campos.
        - O primeiro campo (código do registro) e os demais campos
        - A coluna acoplada sempre será a do código
        - cada campo da consulta, é uma coluna na combo.
        - A numeração das colunas da combo, começa com zero
           Ex.: Se a consulta tiver 5 campos, as colunas irão de 0 a 4
    - Largura das colunas, coloque em cm. 0cm, a coluna fica oculta
     Exiba apenas a coluna com o nome do cliente ou produto, conforme o caso.
     As demais ficam ocultas, com largura 0.
     
    Na propriedade de evento Após atualizar da combo, coloque os campos que
    pretende exibir.
    Ex.: Digamos que queira prencher caixa de texto txtEndereco  e que o endereço está
         no terceiro campo/coluna da combo.
         Me.txtEndereco = me.cboDadosCliente.Column(2) 'terceira coluna, certo? (0,1,2)

    É isso,veja que não é tão difícil

    [ ]'s

    santa


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  cjsilva2013 Qua 23 Dez 2015, 12:28 am

    Ok, já bati cabeça e não consegui fazer rodar certinho... Mais vamos lá...

    Valeu obrigado...

    Quando concluir posto a solução aqui. Com certeza há outras pessoas com essa dificuldade, tendo em vista que houve muitas visualizações do tópico...
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  cjsilva2013 Qua 23 Dez 2015, 12:28 pm

    Bom dia, Por favor me ajude a desvendar esse mistério.

    Estou usando uma Combo para ao selecionar o código preencher os demais campos.. Fiz conforme abaixo, mesmo assim não está executando quando escolho o código na combo. No que estou errando?

    Desde já agradeço...

    Colunas:2
    Largura: 2,893cm
    Origem da combo: SELECT tblCliente.ID_Cliente FROM tblCliente;

    Private Sub Cod_Cliente_AfterUpdate()
    On Error Resume Next
    Cod_Cliente.SetFocus
    If Cod_Cliente.Value > 0 Then
    Me.NomeCli.Value = DLookup("NomeCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(1) & "'")
    Me.EndereçoCli.Value = DLookup("EndereçoCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(6) & "'")
    Me.BairroCli.Value = DLookup("BairroCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(7) & "'")
    Me.CEPCli.Value = DLookup("CEPCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(Cool & "'")
    Me.CPFCNPJCli.Value = DLookup("CPFCNPJCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(3) & "'")
    Me.RGINSCCli.Value = DLookup("RGINSCCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(4) & "'")
    Me.TelCelCli.Value = DLookup("TelCelCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(11) & "'")

    End If
    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Re: [Resolvido]Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  Noobezinho Qua 23 Dez 2015, 1:41 pm

    Francisco

    Estou enviando teu aplicativo, onde modifiquei

    o caixa de texto NomeCli para combobox. ao invés do CodCli.

    Eu somente modifiquei essa combo e poderá ver o código

    no evento Após Atualizar dela.

    A combobox dos fornecedores, deixo para você fazer e aprender.

    Baseado na minha mensagem anterior e esse exemplo, ficará fácil.

    Verá que o "mistério" , não é tão misterioso assim.

    santa


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    cjsilva2013
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  cjsilva2013 Qua 23 Dez 2015, 1:55 pm

    Meu amigo, amador sofre... Mas devagar eu aprendo.

    Quero te agradecer Nobezinho, pelas broncas e por me ajudar. Sou aprendiz reconhecedor que preciso melhorar...

    Deus continue te iluminando e ajudando muitos nesse forum abençoado...

    Feliz Natal e Prospero Ano novo, pra você e toda sua família...

    Resolvido

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Re: [Resolvido]Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  Noobezinho Qua 23 Dez 2015, 2:04 pm

    É isso ai, meu amigo

    Com um pouco de esforço, a gente chega onde quer chegar.

    Porque ninguém nasceu sabendo, e aprender é um processo

    contínuo dessa vida.

    Agradeço teus votos e os retribuo para você e tua família.

    Que o menino jesus renasça a cada dia no coração de vocês.

    santa  Boas Festas  santa


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Ajuda com preenchimento de caixas de Texto no Form Empty Re: [Resolvido]Ajuda com preenchimento de caixas de Texto no Form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 29 Mar 2024, 2:23 am