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

UserForm Cadastro - Alterar/Pequisa

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

SAC - 2018.rar
(71.83 KiB) Baixado 242 vezes
Olá a todos,

Meu primeiro post aqui, muito bom o fórum para retirar duvidas.

Vamos lá...

Fiz uma formulário de cadastro de reclamação consumidor SAC, bem amador mesmo fiz com tutoriais que vi na internet, porem chegou em um ponto agora que não dou conta mais de evoluir:

1º - No campo ID na planilha de CADASTRO, queria criar um numero em sequência toda vez que clico em "cadastrar", EX: 1, 2 .... a cada novo cadastro

2º - Outra dificuldade minha é criar os botões "Pesquisa" e "Alterar" e dar funcionalidades a eles, porque quero bloquear com senha a planilha CADASTRO e fazer as alterações somente via Form.

Para pesquisa iria utilizar o protocolo.

Muito Obrigado. :D

COMO ANEXAR O ARQUIVO? . xlsm
Editado pela última vez por feoonline em Qua Ago 22, 2018 10:27 am, em um total de 1 vez.


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: UserForm Cadastro - Alterar/Pequisa

Mensagem por milton »

Olá feoonline.

Para enviar o anexo, primeiro ele deve ser compactado.

Depois vá em Editar mensagem (figura lápis ao lado), Anexos, Add Files e por fim Enviar.
Anexos
Enviar anexo.jpg
Enviar anexo.jpg (23.45 KiB) Exibido 5696 vezes


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

milton escreveu: Ter Ago 21, 2018 9:47 am Olá feoonline.

Para enviar o anexo, primeiro ele deve ser compactado.

Depois vá em Editar mensagem (figura lápis ao lado), Anexos, Add Files e por fim Enviar.
Muito Obrigado.


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por milton »

Boa tarde feoonline.

Segue anexo.

1 - Coloquei o CÓDIGO sequencial no UserForm_Initialize
2 - Troquei a TEXTBOX2 protocolo por uma COMBOBOX
3 - Adicionei os números de protocolo dentro da TEXTBOX2 por UserForm_Initialize
4 - Para que a busca seja feita pelo numero de protocolo é necessário que os numeros sejam diferentes,
então adicionei segundos ao seu código: Me.TextBox2 = ("R-") & Format(Now(), "ddmmyyyyHhNnss")
5 - Coloquei a função de pesquisa dentro da TEXTBOX2, é só digitar o numero de protocolo que os campos serão preenchidos
6 - Criei o botão Alterar

Deus abençoe...
Anexos
SAC - 2018_0822.rar
(74.08 KiB) Baixado 252 vezes


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.


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

Olá Milton, muito muito obrigado pela ajuda isso mesmo que estava tentando fazer.

Só preciso de mais uma ajudinha pode?
  • Não deixar cadastrar o mesmo numero de protocolo.
  • Tem como bloquear a planilha cadastro para que as alterações sejam feitas somente via form?
  • O combobox protocolo esta editável, tem como bloquear e só liberar para edição quando a pessoa clicar em alterar?
  • Quando clicar em alterar o botão cadastro bloquear.
Sem querer abusar da sua boa vontade.

Muito obrigado.

Rafael Féo


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

:roll: :roll: :roll:


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por milton »

Vi sua mensagem ontem a noite, já te retorno...


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

Muito obrigado ;-)


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por milton »

Bom dia Rafael,

Segue conforme solicitado...

1 - O fato da TextBox2 estar bloqueado, não irá cadastrar número de protocolo repetido.
2 - Bloqueado a Plan quando o Form não estiver aberto,
3 - Primeiro clique no botão alterar habilitar a TextBox2 para pesquisa, segundo clique faz a alteração.
4 - Bloqueei o botão Cadastro ao clicar em Alterar.

Abraço
Anexos
SAC - 2018_0824.rar
(88.82 KiB) Baixado 243 vezes


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: UserForm Cadastro - Alterar/Pequisa

Mensagem por feoonline »

Olá bom dia,

Ótimo muito obrigado isso mesmo.

Ficou com um erro não consegui achar...

Segue prints.

Att.
Anexos
Erro2.jpg
Erro2.jpg (208.43 KiB) Exibido 5587 vezes
Erro.jpg
Erro.jpg (153.23 KiB) Exibido 5587 vezes


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