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

انشاء ارقام تتابعيه من مره

مغلق
بدأه migo702000 في 22 ديسمبر 2005 · 4 رد · 547 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

عندى ملف به 250 سجل بيانات وبه حقل خاص برقم التعريف والمطلوب كيف يمكن ان انشئ كل ارقام السجلات مره واحده عندما اكتب اول رقم انا اريده فى اول سجل بحيث تتكون باقى الارقام تلقائيا بمعدل زياده (1) فى كل سجل

*** لا اريد ان يكون هذا الحقل فى قاعدة البيانات auto number *** اريد ان احدد انا الرقم الذى ابدأ به دائما ***

** ملحوظه ** انا استخدم الاداه data control

مع التكرم بأن يكون ذلك مثال عملى لو سمحتم

#2

استخدم حلقة تكراريه لزيادة حقل الرقم بمقدار واحد كل مره ينتقل فيها لسجل جديد

وضع شرط عند وصول قاعدة البيانات لنهايتها أنهي الحلقة التكراريه

&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&

...

#3

اخى الكريم هذا الأمر معناه اننى سوف اسجل كل سجل على حده وليس السجلات كلها مره واحده من فضلك اذا كان عندك مثال عملى من فضلك ارسله ولك شكرى على ردك الكريم

#4

x= العدد الذي تريد ان يبدأ التعداد منه

id= اسم الحقل الموجود في قاعدة البيانات

Dim x As Integer
x = 10
Do While Data1.Recordset.EOF = False
Data1.Recordset.Fields!id = x
Data1.Recordset.Update
Data1.Recordset.MoveNext
x = x + 1
Loop

&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&

...

#5

هذا البرنامج يقوم بما تريد

شاهدة واي استفسار انا تحت امرك

data.rar

هذا الموضوع مغلق.

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