كيف يتم الترقيم التلقائي في نموذج ؟

اخي الفاضل

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

يمكن عمل الترقيم التلقائي بهذه الطريقة

1. من الجدول الفرعي Bill نقوم بإزالة المفتاح الرئيسي عن الحقل Bill_id ونقوم بتغيير هذاالحقل من ترقيم تلقائي الى رقم فقط

2. نقوم بإزالة اي بيانات موجوده بالجدول اي نجعله خالي من البيانات وذلك بحذف جميع السجلات

3. ننتقل الى النموذج ونفتحه في وضع التصميم ونقوم بإزالة التعبير 1+= من اول مربع نص وهو متسلسل ونضع بدلا منه الحقل الأساسي Bill_id الموجود في الجدول Bill ليكون هو مصدر عنصر التحكم

4. نختار خصائص النموذج بالضغط بالماوس الأيمن على اي مكان في النموذج ومن ثم نختار التبويب حدث قبل الإدراج للنموذج ونضع هذا الكود

Private Sub Form_BeforeInsert(Cancel As Integer)
Me!Bill_id = Nz(DMax("[Bill_id]", "[Bill]"), 0) + 1
End Sub

نغلق محرر الأكواد ومن ثم نعرض النموذج في الوضع العادي ونقوم الآن بإدارج البيانات من خلال مربع التحرير والسرد الخاص بإسم الماده ومن ثم نضع العدد ثم السعر لكل مادة

نلاحظ ان حقل متسلسل بدأ بالعد التلقائي مباشرة اعتبارا من رقم 1 وحتى ما شاء الله

لو ذهبت الى الجدول Bill ستجد ان الترقيم التلقائي للحقل Bill_id متسلسل

وهذا ملفك بعد التعديل

za_Test_14.rar

شكرا اختي زهرة

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

لكن يا اخت زهرة هناك مشكلة بالموضوع فالترقيم لكل فاتورة يحب ان ينطلق من الرقم 1 ... 2 .....3 ....... وهكذا

اي عندما نفتح فاتورة جديدة يجب ان يعود الترقيم من الرقم 1...2 .... 3

بينما فيما تفضلت به من الحل عند فتح فاتورة ثانية ينطلق من اخر رقم + 1 اي ينطلق من 4... 5... 6

نرجو التعديل

وشكرا جزيلا

اخي الفاضل

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

كان سؤالك بارك الله فيك في أول المشاركه هو كيفية الترقيم التلقائي في النموذج .

والأمر الآخر بارك الله فيك لا يوجد لديك في مثالك اي مقومات عمل الفاتوره لهذا انصحك ان تراجع هذا الرابط لتعرف كيف تبني فاتوره بالطريقة الصحيحة فالطريقة مشروحه من الألف الى الياء بالصور من قبل الخبير محمد فؤاد

/index.php?showtopic=125583

الأخت الفاضلة/ زهرة

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

ممكن لو سمحت تكتبى لنا هذا الكود بلغة VB6

وتشكرى ألف شكر

كودPrivate Sub Form_BeforeInsert(Cancel As Integer)
Me!Bill_id = Nz(DMax("[Bill_id]", "[Bill]"), 0) + 1
End Sub