Fóruns
Microsoft Excel - 2...
Formulários
Ajustar formulário
 
Notifications
Clear all

Ajustar formulário

 
Formulários
4 Posts
3 Usuários
0 Reactions
1,340 Visualizações
RSS
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Criei uma planilha com a ajuda do pessoal aqui do site e agora preciso mais uma vez de vossas ajudas para ajustar alguns erros no formulário. Abaixo mostrarei o que precisa ser corrigido e uma explicação do que desejo fazer

1º LIMPAR TEXTBOX APÓS REALIZAR UMA EXCLUSÃO

- Ao clicar em "Buscar" --> digite no campo "Termo" a palavra "teste" --> clique em procurar --> depois em Excluir Cadastro. Quando excluo o item, seu nome ainda fica no campo termo. O que quero é que após a exclusão o campo seja limpo.

2º MOSTRAR DATA (DD/MM/YYYY) E HORA (HH:MM:SS) AO CLICAR EM NOVO CADASTRO

- Ao clicar em "Buscar" --> clique em "Novo Cadastro" --> após clicar em "Novo Cadastro", quero que a data e a hora sejam preenchidas automaticamente

3º CONFIGURAR HORA APÓS DIGITAR UM TERMO PARA PESQUISA E MANDAR PROCURAR

- Ao clicar em "Buscar" --> digite no campo "Termo" a palavra "teste" --> clique em procurar --> quando clico em procurar, a hora é apresentada fora do seu formato original.

4º FORMATAR A COLUNA "E" PARA NÃO MOSTAR A DATA 00/01/1900

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 06/08/2012 5:51 am
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

poxa... ninguém pode me ajudar?

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 08/08/2012 1:48 pm
 FabioPrade
(@fabioprade)
Posts: 273
Reputable Member
 

Nao consegui abrir o formulario na minha maquina mas vou tentar ajudar,

Primeiro caso

crie uma rotina limpar campos:

Private Sub LimpaControles()
Me.Textbox1.Text = ""
Me.Textbox2.Text = ""
Me.Textbox3.Text = ""

o que voce ja usa na rotina "HabilitarControlesParaEdicao" e coloque a chamada no final da rotina excluir,

Segundo caso

inclua no evento click do botao adicionar,

TextboxData = Format(Date, "dd/mm/yyyy")
TextboxHora = Format(Time, "hh:mm")
obs. ( mude o nome dos controles conforme o teu projeto )

sobre a questao 3 sinceramente nao entendi o final do codigo de procura.

Espero que ajude em alguma coisa, mas se estiver errado fica a cargo dos mestres do forum.

 
Postado : 09/08/2012 5:15 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Contribuindo:
1º LIMPAR TEXTBOX APÓS REALIZAR UMA EXCLUSÃO:
Em "Private Sub ProcuraPersonalizada....", adicione a linha

.....TextBox9.Text = ""
txt_Procurar.Text = ""
MsgBox "Nenhum resultado para '" & TermoPesquisado & "' foi encontrado.", vbExclamation, "Atenção!"
End If.......
2º MOSTRAR DATA (DD/MM/YYYY) E HORA (HH:MM:SS) AO CLICAR EM NOVO CADASTRO:
Na rotina "Sub HabilitarControlesParaEdicao....", altere:
.... If sAcaoRequerida <> "Editar" Then
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Textbox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = VBA.Format(Date, "dd/mm/yyyy") '""
TextBox9.Value = VBA.Format(Time, "HH:MM") '""
Salvar_Em.Visible = bOpcao
Label_OndeSalvar.Visible = bOpcao
End If.....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/08/2012 6:53 am
Forum Jump:
  Tópico Anterior
Próximo Tópico