Perci
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 13/03/2007 14:26 hs
Boa tarde, amigos Possuo um sistema onde na tabela de duplicatas, tenho os campos: DataEmissao, DataVencimento e DataBaixa com tipo data/hora - e no formulario tenho dois MaskEdBox para digitação. Quando vou gravar o registro, se o MaskEdBox estiver sem dados (só com as barras), a gravação não dá erro. Mas quando vou chamar o registro para visualizar no formulário, ocorre um erro. Como faço para conseguir gravar o registro e depois retornar os dados no formulário sem ocorrer esse erro no campo data que está vazio? Algúem pode me dar uma luz? |
|
|
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/03/2007 11:57 hs
Perci bom dia !! Eu já tive problemas com o maskedbox, então eu o substitui pelo text, e dentro do text eu format os dados para data, por exemplo, o usuário digitou 01012001 no txtdata.text ficaria algo assim TxtData.Text = Format(TxtData.Text, "@@/@@/@@@@")
If CDate(IsDate(TxtData.Text)) = False Then
MsgBox "Digite uma data válida e/ou sem as barras. EX: 01012001", vbInformation
TxtData.Text = ""
TxtData.SetFocus
endif Com isso não tenho o problema da data, agora quanto a gravação e depois voltar, eu resolvi o meu problema usando um on error resume next no inicio dos códigos, pois assim ele ignora o error e continua gravando e/ou carregando o arquivo para tela
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
Perci
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/03/2007 12:54 hs
Ok, Álvaro, muito obrigado pela dica. Valeu Até mais. |
|
|
|
|
