delphi4arab منتديات دلفي للعرب

نسخة كاملة : بدء الترقيم بـ 1 بعد 100
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله
لدي جدول لحجز مواعيد يوجد به حقول كالتالي رقم الحجز والاسم والموعد اي تاريخ الحجز- كيف بالاماكان عندما يصل رقم الحجز الى 100  100 سجل تم تسجيلها ان يبد الحجز من جديد بالرقم 1 ولكم جزيل الشكر
ممكن تفاصيل أكثر؟ وما هو البرنامج الذي تعمل به؟
Mysql - Sqlite ...
البرنامج اخي الفاضل access
كود :
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; with adoTable1 do begin   First;   While Not EOF do   begin   edit;   Inc(i);    adotable1id.Value:=i;    if i=100 then    i:=0;    Next;   end; end; end;
جزاك الله خير اً يا اخي