Página 1 de 1

vba - gravar form textbox data vazia

Enviado: 05 Set 2018 às 19:59
por AlanBC
amigos... boa noite. vim buscar ajuda de vcs. me ajude a resolver uma situaçao conflitante que to tendo no form ao gravar uma textbox_data vazia.... essse 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.

vba - gravar form textbox data vazia

Enviado: 05 Set 2018 às 20:18
por Reinaldo
Experimente:
de:
Código: Selecionar todos
.Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy")
Para:
Código: Selecionar todos
If TextBoxDtVenda.Text <> "" Then .Range(1, 9) = VBA.CDate(TextBoxDtVenda.Value)

vba - gravar form textbox data vazia

Enviado: 06 Set 2018 às 00:25
por AlanBC
Reinaldo... meu caro, muito obrigado. Vlw msm. Funcionou direitinho aqui. Show. Forte abraço.