الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الترقيم بالكود

بدأه bibo_1dd في 5 يونيو 2011 · 5 رد · 585 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

ارجو من سيادتكم الاتى

عندى قاعدة بيانات بها جدول اسمة all1

بها حقل اسمة sery3 وحقل اخر اسمة id

عاوز اعمل فورم عن طريقة اختار مثلاً من id 5 الى id 50 واقوم بوضع القيمة الابتدائية للترقيم فيه يتم عمل مجموعه من الارقام المتسلسه بدايتها هذا الرقم وبزيادة واحد كل مرة ويتم ادراجها فى الجدول all1 فى الحقل sery3 فمثلاً

قمت بفتح الفورم قمت باختيار id 5 الى id 20

تم ظهورهم على النموذج

ثم قمت بوضع رقم 20 ليبداً الترقم

ثم بدء الترقيم

فتم وضع القيمة 20 فى الحقل sery3 للــ هيid5

والقيمة 21 للــ id 6 والقيمة 22 للـ id7 وهكذا حتى يصل الى السجل id50

ارجو ان اكون وصلت الفكرة

ومرفق قاعدة للعمل عليها

all1.rar

#2

ضع هذا الكود فى حدث عند الضغط للزر

فقط غير اسم مربع النص 0 بدء الترقيم ) الى Tstart

On Error Resume Next
Dim R, i As Integer
R = Me.Recordset.RecordCount - 1
DoCmd.GoToRecord , , acFirst
For i = 0 To R
Me.sery3 = Me.Tstart + i
DoCmd.GoToRecord , , acNext
Next

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

مشكور اخى الفاضل هذا هو المطلوب

#4

هل يمكن عمل زر امر للبحث عن رقم مفقود فى الارقام المتسلسه على فرض انه تم تعديل اى رقم فى المتسلسه عن طريق الخطاً

شكراً على ايه حال على تعاونكم معى

#5

الاخ الفاضل bido

ممكن تضيف الملف بعد اضافة الدالة الخاصة بالترقيم التلقائى

حيث اننى بحاول فيها ولكن لا تظبط معى

وشكرا

#6
bibo_1dd كتب:

هل يمكن عمل زر امر للبحث عن رقم مفقود فى الارقام المتسلسه على فرض انه تم تعديل اى رقم فى المتسلسه عن طريق الخطاً

شكراً على ايه حال على تعاونكم معى

ابحث بالمنتدى ستجد موضوعات عديدة عن ذلك

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

مواضيع مشابهة