Visual Basic vba - gravar textbox data vazia

[AlanBC]

amigos... boa noite. vim buscar ajuda de vcs. me ajuda a resolver uma situaçao conflitante to tendo no form ao gravar uma textbox_data vazia? esse campo data preciso que seja gravado como vazio num primeiro momento. entao, preciso de uma condiçao, acho que deve ser no botao salvar, que permita gravar o form com a textbox_data vazia. o CDate nao permite que a textbox esteja vazia e o format(textbox.... ,"dd/mm/yy") até aceita gravar com ela vazia, mas qd retorna ao form numa posterior edição regrava com data invertida, aí acaba dando erro na planilha. e tmb já tentei uma variavel mas tmb nao deu certo porque grava a data 30/12/99. 

 

parte cod sub botao salvar

...

With dados

...

  .Range(1, 7) = VBA.CDbl(TextBoxCorrecaoCap.Value)
   .Range(1, 8) = VBA.CDbl(TextBoxTabFipe.Value)
   .Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy")   
   .Range(1, 10) = VBA.CDbl(TextBoxVrVendido.Value)
   .Range(1, 11) = VBA.CDbl(TextBoxComissaoVenda.Value)

End With

...

 

parte cod sub carregar dados form

...

.TextBoxTabFipe.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 7), "R$ #,##0.00")
.TextBoxDtVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 8), "dd/mm/yy")
.TextBoxVrVendido.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 9), "R$ #,##0.00")
.TextBoxComissaoVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 10), "0.00")
...

 

pode ajudar por favor?

obrigado. abraços.

 

Ler mais

RESPONDER

 

[Erik Wesley]

Eu utilizo o DateValue(), sempre funcionou comigo e nunca inverteu data.

[AlanBC]

Erick bom dia

eu ja tentei tmb com DateValue(), essa funçao realmente nao inverte mas tmb nao permite salvar com a textbox vazia porque reconhece somente numeros.

[AlanBC]

Resolvido! Simplesmente alterando a linha de codigo de gravacao para

If TextBoxDtVenda.Text <> "" Then  
  .Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy") 

Muito obrigado por ter ajudado.