MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Preenchimento de campos por combobox

    Compartilhe

    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 833
    Registrado : 08/02/2011

    [Resolvido]Preenchimento de campos por combobox

    Mensagem  cafpr em Qua 11 Jun 2014, 01:03

    Boa noite colegas.

    Estou com dificuldade em auto preencher os campos quando da escolha da segunda combo. Somente funciona quando escolha a segunda diretamente.

    primeira combo

    Private Sub CboProdutor_AfterUpdate()
    On Error Resume Next
      Me.cboAnimal.RowSource = "SELECT tblAnimal.idAnimal, tblAnimal.NomeAnimal FROM tblAnimal " & _
         " WHERE IdProdutor = " & Nz(Me.cboProdutor) & _
            " ORDER BY Animal"
               Me.cboAnimal.SetFocus
               Me.cboAnimal.Dropdown
    Me.TxtLocalidade = cboProdutor.Column(2)
      Me.TxtSetor = cboProdutor.Column(3)
    End Sub

    segunda combo

    Private Sub cboAnimal_AfterUpdate()
    Me.TxtBrinco = cboAnimal.Column(2)
    Me.txtRaça = cboAnimal.Column(3)
    Me.txtPelagem = cboAnimal.Column(4)
    End Sub

    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 833
    Registrado : 08/02/2011

    Re: [Resolvido]Preenchimento de campos por combobox

    Mensagem  cafpr em Dom 15 Jun 2014, 02:40

    resolvido

    mpsbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/08/2012

    como voce resolveu, estou tendo o mesmo problema

    Mensagem  mpsbra em Qui 27 Nov 2014, 03:39

    estou tendo o mesmo problema

      Data/hora atual: Sex 09 Dez 2016, 13:25