مشكلة تواجهني في عملية اضافة سجل
#1
السلام عليكم ورحمة الله تعالى وبركاته
المشكلة التي تواجهني هي عندما اضغط على زر اضافة وبدلا من ان يضيف الرقم الموالي يكرر نفس الرقم 
مع العلم انه لا تظهر هذه المشكلة الا بعد وصول عدد السجلات الى رقم 49 سجل 
الكود المستعمل هو كالاتي
كود :
var
tan,result : string;
tNum,Err : integer;
tKey : variant;
begin
DM.Table1.IndexName:='';
DM.Table1.Last;
tan := DM.Table2Br.FieldValues['Annee'];
tKey := DM.Table1.fields[0].value;
DM.Table1.Append;

if (tKey = NULL) or (copy(tKey, length(tKey)-3, 4)<>tan)then tNum := 0
else begin
val(copy(tKey, 1, 4), tNum, Err);
if Err<>0 then tNum := 0;
end;

result := format('%4.3d/', [tNum+1]) + tan ;
DM.Table1.FieldValues['No_Brd']:=result;

جزاكم الله عنا كل خير
الرد


الردود في هذا الموضوع
مشكلة تواجهني في عملية اضافة سجل - بواسطة medreg - 08-03-2020, 09:47 PM

التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف