Fóruns
Microsoft Excel - 2...
Formulários
como aceitar campo ...
 
Notifications
Clear all

como aceitar campo data vazio

 
Formulários
Post Recente por adsumus 10 anos atrás
4 Posts
3 Usuários
0 Reactions
1,273 Visualizações
RSS
 adsumus
(@adsumus)
Posts: 0
New Member
Topic starter
 

Boa noite caros colegas, depois de varias dicas aqui do forum criei um formulario para me ajudar no meu trabalho mas apesar de tantos artigos e codigos disponiveis aqui no forum nao consegui resolver um problema simples no meu formulario, tava com problema no campo textbox data pois tava salvando invertido, consegui resolver isso com o codigo "Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value)" contudo isso me gerou outro problema pois agora esse campo nao aceita ficar vazio e so preciso colocar a data neste campo quando no textbox anterior for INT.AUDIENCIA. caso contrario nao existe data a ser colocada e quando vou salvar os dados da a mensagem de "erro inesperado tipos incompativeis". Peco desculpas se ja tem topico especifico sobre isso mas nao consegui localizar.
Peco a gentileza de quem puder me ajudar a aprimorar o formulario, seria interessante que o campo textbox (data audiencia) fosse liberado somente se no textbox (natureza mandado) fosse digitado INT.AUDIENCIA, nao sei se da pra fazer isso diretamente ali ou se e preciso criar uma caixa de seleçao.
segue em anexo meu formulario, senha 125000

 
Postado : 24/03/2015 8:04 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Adsumus

Neste local não é permitido postar dúvidas, por é exclusivo para a apresentação dos novos usuários do fórum.
Movi teu tópico para Formulários, que é o assunto da tua dúvida.

Por enquanto vou deixar teu tópico sendo mostrado nos 2 locais para facilitar a localização.

[]s

Patropi - Moderador

 
Postado : 25/03/2015 6:40 am
 mjogasa
(@mjogasa)
Posts: 0
New Member
 

Boa noite,
Criei um condição na sub cadastromandados no lugar da linha Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value):
If CADASTRO.caixa_naturezamandado.Text = "INT.AUDIENCIA" Then
Sheets("BANCODEDADOS").Cells(linha, 6) = CDate(CADASTRO.caixa_dataaudiencia.Value)
End If
E criei também a condição de inserir a data na caixa_dataaudiencia apenas se a caixa_naturezamandado tiver digitado INT.AUDIENCIA.

Private Sub caixa_naturezamandado_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean)
If CADASTRO.caixa_naturezamandado.Text = "INT.AUDIENCIA" Then
CADASTRO.caixa_dataaudiencia.Enabled = True
End If
End Sub

E a linha CADASTRO.caixa_dataaudiencia.Enabled = False na sub Private Sub botao_novo_Click() serve para travar a caixa_dataaudiencia.
Vamos ver se funciona! Um abraço, Marcos

 
Postado : 31/03/2015 7:42 pm
 adsumus
(@adsumus)
Posts: 0
New Member
Topic starter
 

bom dia camarada, ficou 10 o ajuste, valeu pela ajuda, aos poucos vou apreendendo e aprimorando meus conhecimentos nessa area.

 
Postado : 02/04/2015 7:10 am
Forum Jump:
  Tópico Anterior
Próximo Tópico