MaximoAccess

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

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
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 934
    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
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Preenchimento de campos por combobox

    Mensagem  cafpr em Dom 15 Jun 2014, 02:40

    resolvido
    avatar
    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: Seg 20 Nov 2017, 17:06