Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
UserForm Cadastro - Alterar/Pequisa
UserForm Cadastro - Alterar/Pequisa
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.
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.
Re: UserForm Cadastro - Alterar/Pequisa
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.
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 (23.45 KiB) Exibido 5696 vezes
Re: UserForm Cadastro - Alterar/Pequisa
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...
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
Re: UserForm Cadastro - Alterar/Pequisa
Olá Milton, muito muito obrigado pela ajuda isso mesmo que estava tentando fazer.
Só preciso de mais uma ajudinha pode?
Muito obrigado.
Rafael Féo
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.
Muito obrigado.
Rafael Féo
Re: UserForm Cadastro - Alterar/Pequisa
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
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
Re: UserForm Cadastro - Alterar/Pequisa
Olá bom dia,
Ótimo muito obrigado isso mesmo.
Ficou com um erro não consegui achar...
Segue prints.
Att.
Ótimo muito obrigado isso mesmo.
Ficou com um erro não consegui achar...
Segue prints.
Att.
- Anexos
-
- Erro2.jpg (208.43 KiB) Exibido 5587 vezes
-
- Erro.jpg (153.23 KiB) Exibido 5587 vezes