como aceitar campo data vazio

Formulários

Post Recente por adsumus 10 anos atrás

4 Posts

3 Usuários

0 Reactions

1,275 Visualizações

RSS

adsumus

(@adsumus)

Posts: 2

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

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

Postado : 25/03/2015 6:40 am

mjogasa

(@mjogasa)

Posts: 30

Eminent 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