Als ik een oncorrecte datum invul geeft hij de volgende error: Project Project1.exe raised exception class EDBEditError with message 'Invalid input value. Use escape ket to abandon changes'. Process stopped. Use Step or Run to continue
Dus dacht ik er een try except statement op los te laten:
code:--------------------------------------------------------------------------------
try
if MaskEdit2.Text <> ' - - ' then
AdministratieForm.ADOQuery_CaseInvoeren.FieldByName('Einddatum').AsString := MaskEdit2.Text;
except
on EDBEditError do MessageDlg('Vul de datum correct in.' + #13 + 'Voorbeeld: 14-05-83', mtError, [mbOK], 0);
end;
--------------------------------------------------------------------------------
Maar toch wordt de error niet goed opgevangen, kan iemand mij vertellen wat ik fout doe?
Dus dacht ik er een try except statement op los te laten:
code:--------------------------------------------------------------------------------
try
if MaskEdit2.Text <> ' - - ' then
AdministratieForm.ADOQuery_CaseInvoeren.FieldByName('Einddatum').AsString := MaskEdit2.Text;
except
on EDBEditError do MessageDlg('Vul de datum correct in.' + #13 + 'Voorbeeld: 14-05-83', mtError, [mbOK], 0);
end;
--------------------------------------------------------------------------------
Maar toch wordt de error niet goed opgevangen, kan iemand mij vertellen wat ik fout doe?