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]Passar valor para combobox.

    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Passar valor para combobox. Empty Passar valor para combobox.

    Mensagem  wellingtoneo 27/8/2013, 18:58

    Pessoal boa tarde!

    Tenho uma combobox (cboNome) que tem sua origem em uma consulta. Select registro, nome from tblprincipal. Quando eu atualizo essa combo, executa um procedimento que envolve recordset e por isso os controles recebem os dados deste recordset, o que não acontece com a cboNome. Já tentei os passos abaixo:

    1ª tentativa) Me!cboNome.Value = rstcolaboradores!Nome
    2ª tentativa) Me!cboNome.text = rstcolaboradores!Nome
    3ª tentativa) Me!cboNome.RowSource = "": Me!cboNome.RowSource = rstcolaboradores!Nome
    4ª tentativa) Me!cboNome = rstcolaboradores!Nome

    Nenhuma desta deram o resultado esperado... o que devo fazer?

    Obrigado!
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Passar valor para combobox. Empty Passar valor para combobox

    Mensagem  matheuspereira 27/8/2013, 19:21

    Boa tarde amigo, vc usa esta cbo para realizar um filtro? E que controle são estes? explique melhor..
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Passar valor para combobox. Empty Re: [Resolvido]Passar valor para combobox.

    Mensagem  wellingtoneo 27/8/2013, 19:34

    é e, não é... Quando eu escolho o nome, pego o registro column (0) e passo para Me!cboPesquisa que filtra o recordset.
    ex: 5555 | Fulano Ciclano

    set rstcolaboradores = currentDb.Openrecordset ("select * from tblprincipal Where Registro =" Me!cboPesquisa)

    Me.cboNome = rstcolaboradores!Nome 'só aqui que não esta carregando....
    Me.cboRegistro = rstcolaboradores!Registro
    ....
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Passar valor para combobox. Empty Passar valor para combobox.

    Mensagem  matheuspereira 27/8/2013, 19:43

    Manda seu bd ai para dar um olhada..
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Passar valor para combobox. Empty Re: [Resolvido]Passar valor para combobox.

    Mensagem  wellingtoneo 29/8/2013, 17:59

    Galera, resolvir meu problema da seguinte maneira:

    Private Sub cboPesquisa_AfterUpdate()
       Me!cboNome = Me!cboPesquisa
       Call cboNome_AfterUpdate
    End Sub

    Onde

    Private Sub cboNome_AfterUpdate()
       Call fncCarregardados(Me!cboNome.Column(0)) 'função que filtro o recordset e passa os valore para todos os campos do formulario.
       Me!cboPesquisa.SetFocus
    End Sub
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Passar valor para combobox. Empty Passar valor para combobox.

    Mensagem  matheuspereira 29/8/2013, 18:04

    Bom que resolveu.. Sucesso
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Passar valor para combobox. Empty Re: [Resolvido]Passar valor para combobox.

    Mensagem  wellingtoneo 28/10/2013, 08:14

    Valeu!! Obrigado!

    Conteúdo patrocinado


    [Resolvido]Passar valor para combobox. Empty Re: [Resolvido]Passar valor para combobox.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:23