Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Cadastro com Combobox
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Fev 05, 2016 7:06 pm
Cadastro com Combobox
Ola!
Através de um modelo já existente eu reescrevi o código VBA para poder inserir as informações que preciso:
Não sou profissional nisso e to pesquisando bastante mas não to conseguindo avançar mais, gostaria de receber ajuda no seguinte:
Preciso que no combobox origem do formulário apareça as opções que estão em AJ2:AJ4
no combobox contrato assinado apareça as opções que estão em Ak2:Ak5
e que o Pesquisar/Editar funcione.
Agradeço qualquer ajuda.
Obrigado
Através de um modelo já existente eu reescrevi o código VBA para poder inserir as informações que preciso:
Não sou profissional nisso e to pesquisando bastante mas não to conseguindo avançar mais, gostaria de receber ajuda no seguinte:
Preciso que no combobox origem do formulário apareça as opções que estão em AJ2:AJ4
no combobox contrato assinado apareça as opções que estão em Ak2:Ak5
e que o Pesquisar/Editar funcione.
Agradeço qualquer ajuda.
Obrigado
- Anexos
-
- CadastroClientes2.rar
- (464.39 KiB) Baixado 226 vezes
Re: Cadastro com Combobox
Segue o arquivo com a combobox atualizado, trazendo as informações conforme solicitado,
- Anexos
-
- CadastroClientes2.rar
- (376.38 KiB) Baixado 231 vezes
Re: Cadastro com Combobox
Segue a arquivo atualizado, adicionei botões novo, alterações, favor fazer os testes depois marcar no tópico resolvido.
Abs
Avgsantos
Abs
Avgsantos
- Anexos
-
- CadastroClientes2.rar
- (374.67 KiB) Baixado 245 vezes
Re: Cadastro com Combobox
Marcossantiago,
Segue modelo editado. Teste e veja se é isso o que busca.
Abs
Segue modelo editado. Teste e veja se é isso o que busca.
Abs
- Anexos
-
- CadastroClientes2.zip
- (44.52 KiB) Baixado 247 vezes
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Fev 05, 2016 7:06 pm
Re: Cadastro com Combobox
ficaram muito bons pessoal, eu tava baixando e lendo muitos exemplos mas não tava saindo do lugar.
Eu testei a do Avgsantos e achei que um botão pra Novo e outra pra Gravar, pode confundir .
A do srobles ficou maneira só tem um problema, a exigência de todos os campos.
A primeira exigência seria escolher a Origem(Advocacia,aluguel,outros)
Quando eu coloco na Origem Aluguel, eu na verdade só vou tenho obrigação de preencher CPF,NOME,RUA,Nº, BAIRRO,TELEFONE 1. e depois pula para os campos Inicio do Contrato até Dia de Pagamento.
Quando eu coloco na Origem Advocacia, tenho que preencher CPF,NOME,Ação,RUA,Nº, BAIRRO,TELEFONE 1, e de Data Inicio do Processo até A Partir De:
Quando eu coloco na Origem Outros, Não ha exigência de preencher nenhum dos campos antes de Salvar.
Eu testei a do Avgsantos e achei que um botão pra Novo e outra pra Gravar, pode confundir .
A do srobles ficou maneira só tem um problema, a exigência de todos os campos.
A primeira exigência seria escolher a Origem(Advocacia,aluguel,outros)
Quando eu coloco na Origem Aluguel, eu na verdade só vou tenho obrigação de preencher CPF,NOME,RUA,Nº, BAIRRO,TELEFONE 1. e depois pula para os campos Inicio do Contrato até Dia de Pagamento.
Quando eu coloco na Origem Advocacia, tenho que preencher CPF,NOME,Ação,RUA,Nº, BAIRRO,TELEFONE 1, e de Data Inicio do Processo até A Partir De:
Quando eu coloco na Origem Outros, Não ha exigência de preencher nenhum dos campos antes de Salvar.
Re: Cadastro com Combobox
Marcossantiago,
Essa restrição pode ser removida. Seria um problema não existir a obrigação de preenchimento?
Abs
Essa restrição pode ser removida. Seria um problema não existir a obrigação de preenchimento?
Abs
Re: Cadastro com Combobox
Marcossantiago,
Estou respondendo neste post apenas para manter a organização ok? Mande uma MP para os moderadores, solicitando a retirada do seu outro post do tópico do usuário pedro_mexico ok?
Segue seu modelo editado conforme solicitação.
Abs
Estou respondendo neste post apenas para manter a organização ok? Mande uma MP para os moderadores, solicitando a retirada do seu outro post do tópico do usuário pedro_mexico ok?
Segue seu modelo editado conforme solicitação.
Abs
- Anexos
-
- Projeto.zip
- (59.49 KiB) Baixado 213 vezes
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Sex Fev 05, 2016 7:06 pm
Re: Cadastro com Combobox
Srobles, Valeu ! Já solicitei a exclusão da mensagem no outro tópico.
Sabe me dizer porque os formulários do Projeto.zip não estão salvando as informações quando clica no botão Salvar?
Eu prefiro que a pesquisa seja pelo nome e não pelo CPF, basta alterar a coluna no trecho do código ?
Sub pesquisaClienteAdvocacia()
'Rotina para pesquisar clientes
With ThisWorkbook.Sheets("DADOSADVOCACIA")
.Activate
On Error GoTo vErro
'Pesquisa na base pelo CPF
Columns("A:A").Find(frmAdvocacia.txtCPF, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate
Sabe me dizer porque os formulários do Projeto.zip não estão salvando as informações quando clica no botão Salvar?
Eu prefiro que a pesquisa seja pelo nome e não pelo CPF, basta alterar a coluna no trecho do código ?
Sub pesquisaClienteAdvocacia()
'Rotina para pesquisar clientes
With ThisWorkbook.Sheets("DADOSADVOCACIA")
.Activate
On Error GoTo vErro
'Pesquisa na base pelo CPF
Columns("A:A").Find(frmAdvocacia.txtCPF, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate
Re: Cadastro com Combobox
Marcossantiago,
Quanto ao problema de não salvar as informações, não enfrentei o problema descrito por você, porém, de qualquer maneira, modifiquei o código de salvamento para evitar tal situação.
Quanto a pesquisar pelo nome, sim, seria só alterar a instrução Columns("A:A").Find(nomeDoForm.Campo,bla,bla,xlWhole,bla) por Columns("B:B").Find(nomeDoForm.Campo,bla,bla,xlPart,bla), porém, por experiência própria, recomendo que utilize o CPF por ser "único", pois com nome, você terá de, além de trabalhar mais o código, terá de criar botões para navegar por todos os registros ate encontrar o registro que deseja, e remover a função de alterar o cadastro do botão de pesquisa, a menos que isso não seja problema para você.
Em anexo, deixo seu modelo reeditado, porém buscando pelo CPF. Caso queira utilizar a pesquisa por nome, mude conforme informei acima e edite os códigos das funções de Pesquisa e Travamento de campos de cada formulário para usar o campo de nome e deixar apenas este campo destravado, respectivamente.
Abs
Quanto ao problema de não salvar as informações, não enfrentei o problema descrito por você, porém, de qualquer maneira, modifiquei o código de salvamento para evitar tal situação.
Quanto a pesquisar pelo nome, sim, seria só alterar a instrução Columns("A:A").Find(nomeDoForm.Campo,bla,bla,xlWhole,bla) por Columns("B:B").Find(nomeDoForm.Campo,bla,bla,xlPart,bla), porém, por experiência própria, recomendo que utilize o CPF por ser "único", pois com nome, você terá de, além de trabalhar mais o código, terá de criar botões para navegar por todos os registros ate encontrar o registro que deseja, e remover a função de alterar o cadastro do botão de pesquisa, a menos que isso não seja problema para você.
Em anexo, deixo seu modelo reeditado, porém buscando pelo CPF. Caso queira utilizar a pesquisa por nome, mude conforme informei acima e edite os códigos das funções de Pesquisa e Travamento de campos de cada formulário para usar o campo de nome e deixar apenas este campo destravado, respectivamente.
Abs
- Anexos
-
- Projeto.zip
- (73.29 KiB) Baixado 234 vezes