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

Cadastro de processos

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

Moderador: joseA

eristonmattos
Colaborador
Colaborador
Mensagens: 15
Registrado em: Dom Ago 26, 2018 7:31 pm

Cadastro de processos

Mensagem por eristonmattos »

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,


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
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Cadastro de processos

Mensagem por milton »

Olá eristonmattos

Segue anexo, veja se é a sua necessidade e adapte ao seu projeto.
Anexos
pesquisa.rar
(17.14 KiB) Baixado 551 vezes


eristonmattos
Colaborador
Colaborador
Mensagens: 15
Registrado em: Dom Ago 26, 2018 7:31 pm

Re: Cadastro de processos

Mensagem por eristonmattos »

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,


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Cadastro de processos

Mensagem por sandrojrs »

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


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.


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Cadastro de processos

Mensagem por sandrojrs »

se precisar de ajuda me chama ai


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