أثناء تنفيذي لكود الترقيم التلقائ للحقل num من نوع integer تخرج لي الرسالة التالية فما سببها
كود
procedure TForm1.Button4Click(Sender: TObject);
var a:integer;
begin
t1.last;
a:=t1.fieldvalues['num']+1;
t1.insert;
t1.fieldvalues[' num ']:=a;
var a:integer;
begin
t1.last;
a:=t1.fieldvalues['num']+1;
t1.insert;
t1.fieldvalues[' num ']:=a;
مع العلم أني أستعمل قاعدة البيانات باردوكس
شكرا
