Tomás Vásquez Fórum

Alguma solução para um BD onde a dúvida é:
um formulário de consulta que, quando eu digitar um número (no caso, nº de CNS),
os outros campos (nome, cpf, dt nasc, etc) preencham automaticamente....
Alguma solução simples? Usando "SetFocus" em "Ao atualizar"

Att,

Olá eristonmattos

Segue anexo, veja se é a sua necessidade e adapte ao seu projeto.

Bom dia Milton,
Vc me enviou um arquivo .xlsm, de Excel, estou usando um BD em Access 2016 enfim...
preciso de outra solução para este caso nobre...

É possível?

Att,

olá amigo chegou ajuda haha vou te passar o código.
Usei um combobox que ao selecionar um dado do acess ele passa o restante dos valores para os textbox



Private Sub ComboBox1_Change()

Dim cx As New ClasseConexao
Dim banco As ADODB.Recordset
Dim sql As String

cx.Conectar
sql = "SELECT* FROM costureira WHERE CLIENTE = '" & ComboBox1.Text & "'"

Set banco = New ADODB.Recordset
banco.Open sql, cx.Conn
On Error Resume Next

idid.Value = banco.Fields("Código")
TextBox2.Text = banco.Fields("DESCRIÇÃO")
TextBox3.Text = banco.Fields("QUANTIDADE")
TextBox4.Text = banco.Fields("MALHA")
TextBox5.Text = banco.Fields("COR")
TextBox6.Text = banco.Fields("ENTREGA")
textbox7.Text = banco.Fields("STATUS")


Set banco = Nothing

cx.Desconectar

End Sub

se precisar de ajuda me chama ai