Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Carregar Textbox com seleção Combobox

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Carregar Textbox com seleção Combobox

Mensagem por ACGuedelha »

Boa tarde a todos.

Estou com duvida, pois não consegui nada no Google sobre o assunto,
e só encontrei para uma planilha excel e não para conexão access.
Tenho um formulário vba excel que conecta com o access, e uso este
código para importar determinada campo da tabela para o combobox
e funciona perfeitamente.
Contudo gostaria de saber se após a seleção no "combobox" há como
preencher outros "textbox" com os dados correlatos a esta seleção na
tabela.
O código que estou usando é este.

Código: Selecionar todos

    sql = "SELECT nome FROM t_Contatos"
    sql = sql & " ORDER BY nome"
    cx.Conectar
    Set banco = New ADODB.Recordset
    banco.Open sql, cx.conn
    Do While Not banco.EOF
        Me.cboNomeCli.AddItem banco!nome
        Me.cboNomeFor.AddItem banco!nome
        banco.MoveNext
    Loop
    cx.Desconectar
    Set banco = Nothing
Se alguém puder me ajudar fico grato.

Fiquem com Deus, e se cuidem.
"O impossível existe até que alguém duvide
dele e prove o contrário."
(Albert Einstein)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Carregar Textbox com seleção Combobox

Mensagem por Reinaldo »

A cada modificação/seleção do combo, e necessário "disparar" uma rotina que vai ler novamente o banco de dados e obter os dados desejados e "descarregar" nos controles esperados
Algo +/- assim:

Código: Selecionar todos

sql = "SELECT nome, telefone, endereco, empresa FROM t_Contatos"
    sql = sql & " Where nome ="
    cx.Conectar
    Set banco = New ADODB.Recordset
    banco.Open sql, cx.conn
        Me.seutxtNome.text= banco!nome
        Me.seutxttelefone.text= banco!telefone
        ....
    cx.Desconectar
    Set banco = Nothing


pwpinheiro
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Jul 02, 2020 2:26 pm
Localização: Jacareí/SP

Re: Carregar Textbox com seleção Combobox

Mensagem por pwpinheiro »

Olá amigos, usando o "esquema" da resposta de um dos assinantes, não estou conseguindo desenvolver o código necessário para visualizar na textbox o valor desejado.
Tenho uma tabela Access (Codigo, CodBloco, Apto e Interfone) e gostaria ao clicar na Combobox Apto visualizasse o valor da Textbox Interfone; lembrando que estou usando Excel VBA + Access.
Estou usando abaixo porém sem sucesso, se alguém puder me ajudar agradeço muito!

Sub Carrega_Interfones()
ConnectDB
Rs.Open "Select Codigo, CodBloco, Apto, Interfone from TbAptos where Interfone ", Db, 3, 3
Me.txtInterfone.Text = Rs!Apto
FechaDB
End Sub


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Carregar Textbox com seleção Combobox

Mensagem por Reinaldo »

Aparentemente sua sql está equivocada e imcompleta.
Se deseja "informar" o Apto e retornar o Interfone creio que seria algo =/- assim:

Código: Selecionar todos

Sub Carrega_Interfones()
   ConnectDB
    Rs.Open "Select Codigo, CodBloco, Apto, Interfone from TbAptos where Apto = " & SeuCombobox.Value, Db, 3, 3
    Me.txtInterfone.Text = Rs!Interfone
    FechaDB
End Sub
Onde SeuCombobox refere-se ao nome de seu controle


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Re: Carregar Textbox com seleção Combobox

Mensagem por ACGuedelha »

Obrigado! Funcionou corretamente.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder