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

    Combobox de pesquisa

    Compartilhe

    kklo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 04/06/2013

    Combobox de pesquisa

    Mensagem  kklo em Sex 17 Nov 2017, 18:57

    Boa tarde,

    Tenho um subformulário que ao testar independente o combobox com pesquisa, acerta as colunas e funciona.

    Quando este subformulario esta com o formulário dá erro:

    "Você tentou atribuir o valor Null a uma variável que não é do tipo de dados Variant."

    E abre o editor VBA na primeira linha (NomeFantasia)

    Código:
    Private Sub cbo_TipoFornecedor_Click()
       Me.NomeFantasia = cbo_TipoFornecedor.Column(1)
       Me.NomeServico = cbo_TipoFornecedor.Column(3)
       Me.TarifaCF = cbo_TipoFornecedor.Column(6)
    '   Me.Refresh
    End Sub

    Já mudei, colocando de 1 a 10 (são 10 colunas)

    Não entendo onde esta o erro.

    Alguem pode ajudar?

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 67
    Registrado : 16/07/2017

    Re: Combobox de pesquisa

    Mensagem  maryprego em Sab 18 Nov 2017, 11:22

    já tentaste referenciar o nome do formulário e do subformulário?

    kklo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 04/06/2013

    Re: Combobox de pesquisa

    Mensagem  kklo em Sab 18 Nov 2017, 13:49

    Como posso fazer isto?

    Talvez já tenha feito sem saber ou está errado.

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 67
    Registrado : 16/07/2017

    Re: Combobox de pesquisa

    Mensagem  maryprego em Sab 18 Nov 2017, 14:17

    não testei exemplo:

    Frms.seuformulario.seusubformulario.NomeFantasia = cbo_TipoFornecedor.Column(1)
    Frms.seuformulario.seusubformulario.NomeServico = cbo_TipoFornecedor.Column(3)
    Frms.seuformulario.seusubformulario.TarifaCF = cbo_TipoFornecedor.Column(6)

    kklo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 04/06/2013

    Re: Combobox de pesquisa

    Mensagem  kklo em Sab 18 Nov 2017, 14:59

    Usei a ferramenta "Variáveis locais" no editor VBA e o formulario e subform estão sempre vazios. Ao colocar o mouse sobre a linha amarela, aparece cbo_TipoFornecedor.Column(3)= "Ventos Sul"

    Vento Sul é o nome de um fornecedor, mas continua com erro.

    maryprego
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 67
    Registrado : 16/07/2017

    Re: Combobox de pesquisa

    Mensagem  maryprego em Dom 19 Nov 2017, 15:01

    podes postar o bd para tentarmos ajudar sff

      Data/hora atual: Seg 11 Dez 2017, 23:02