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]Selecionar texto em combobox via VBA

    Compartilhe

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/05/2014

    [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  nandotorresbrasil em Ter 15 Ago 2017, 06:03

    Amigos,

    Tentei selecionar um texto em uma combobox a partir da segunda coluna, que possui um texto, na primeira coluna tem o ID e não consegui:

    Primeiramente fasso uma consulta para ver o texto correspondente ao ID via DAO:
    tabela = "Comarcas"
    campoConsulta = "comarcaID"
    argumentoPesquisa = Str(Me.Telefonema_ComarcaID)
    campoResultado = "comarca"

    resultado = FuncoesDAO.consultaregistroString(tabela, campoConsulta, argumentoPesquisa, campoResultado)

    Até aí tudo bem, o resultado retorna o texto a ser pesquisado no combo.

    O texto no combo está na segunda coluna.

    Como faço para que seja feita a seleção do texto resultado na combobox?

    Agradeço desde já a ajuda!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  ahteixeira em Ter 15 Ago 2017, 12:26

    Olá Fernando Ferreira

    Para a segunda coluna será algo assim:
    Me.NomeCombo.Column(1)

    Nota: está 1 porque é a segunda coluna (o pretendido), a indice da ordem do .Column inicia em 0 (primeira coluna).

    Abraço

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/05/2014

    Re: [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  nandotorresbrasil em Qua 16 Ago 2017, 01:28

    Oi teixeira!

    coloquei o comando:
    Me.cboComarcas.Column(1) = resultado

    no entanto, retorna o erro 424, objeto é obrigatório....

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  ahteixeira em Qua 16 Ago 2017, 11:08

    Olá Fernando Ferreira,

    O correto será,
    resultado = Me.cboComarcas.Column(1)

    Abraço


    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/05/2014

    Re: [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  nandotorresbrasil em Qua 23 Ago 2017, 01:41

    Agradecimento
    Obrigado, ...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4647
    Registrado : 15/03/2013

    Re: [Resolvido]Selecionar texto em combobox via VBA

    Mensagem  ahteixeira em Qua 23 Ago 2017, 09:41

    Olá Fernando Ferreira,
    Obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

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