Tomás Vásquez Fórum

Enviado: **Ter Abr 14, 2020 6:37 pm**

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)

Enviado: **Sex Abr 17, 2020 8:19 am**

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

Enviado: **Sex Jul 03, 2020 2:43 pm**

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

Enviado: **Sex Jul 03, 2020 8:02 pm**

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

Enviado: **Ter Mar 16, 2021 8:31 am**

Obrigado! Funcionou corretamente.

Tomás Vásquez Fórum

Carregar Textbox com seleção Combobox

Carregar Textbox com seleção Combobox

Re: Carregar Textbox com seleção Combobox

Re: Carregar Textbox com seleção Combobox

Re: Carregar Textbox com seleção Combobox

Re: Carregar Textbox com seleção Combobox