Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Cadastro de processos
Moderador: joseA
-
- Colaborador
- Mensagens: 15
- Registrado em: Dom Ago 26, 2018 7:31 pm
Cadastro de processos
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,
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,
Re: Cadastro de processos
Olá eristonmattos
Segue anexo, veja se é a sua necessidade e adapte ao seu projeto.
Segue anexo, veja se é a sua necessidade e adapte ao seu projeto.
- Anexos
-
- pesquisa.rar
- (17.14 KiB) Baixado 567 vezes
-
- Colaborador
- Mensagens: 15
- Registrado em: Dom Ago 26, 2018 7:31 pm
Re: Cadastro de processos
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,
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,
Re: Cadastro de processos
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
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