كيف تصنع ترقيم تلقائي بنفسك ؟

طريقة جيدة للترقيم التلقائي .

خاصية القيمة الافتراضية في صفحة التبويب بيانات .

لكن يبدو أخ أشرف أنك لم تجرب الطريقة والجدول فارغ من السجلات ;)

وإلا لن يظهر ترقيم ، وقد عدلت في الكود كالتالي :

=IIf(IsNumeric(DMax("رقم";"جدول1")+1)=خطأ;1;DMax("رقم";"جدول1")+1)

مع وضع خاصية مؤمن إلى نعم .

وللجميع تحياتي

الأخ أشرف وأبوحمود

تحياتي لنجمي هذا المنتدى

حال أخر لمشكلة الترقيم في جدول فارغ

=nz(DMax("[حقل الترقيم التلقائي]";"[lسم الجدولl]"))+1

نعم هذا أفضل حل .

شكراً لك .

ولك تحياتي

فعلا حل ممتاز وبسيط ويتميز هذا الترقيم بأنك تستطيع إدخال الرقم المحذوف مرة أخرى .

أشرف خليل

أيضاً

يمكن أن تجعل الرقم يبدأ مثلا بـ 1000 أو أي رقم تكتبة في حقل الأرقام

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

ولكن هناك مشكلة بسيطة

أن الرقم المحذف يرجع عندما تغلق النموذج ولا يسبقة رقم آخر

الأخ new

بودي أن توضح المشكلة بشكل أكبر مع ضرب مثال بالأرقام ليسهل فهم المشكلة .

ولك تحياتي

الأخ new

قمت بحذف رقم وقفلت الأكسيس كله ثم فتحته مرة أخرى ولم يرجع الرقم المحذوف قد يكون بسبب أنني مختار الحقل ( مفهرس وعدم التكرار ) أي هو موضوع عليه المفتاح .

وعندما أدخلت الرقم المحذوف مرة أخرى كان فى نفس ترتيبه .

أشرف خليل

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

احب أن اضيف شيئا في هذا الموضوع .. بالنسبة للترقيم المتتالي فأنا أفضل استخدام الدوال فهي عملية وتعطيك مرونة كبيره في معالجة الرقم ..

هذه بعض الحالات التي قد تواجهك عند عمل ترقيم متتالي والتي تتميز فيها الدوال عن التعابير الرياضيه :

* اعطاء المستخدم الخيار في نوع الترقيم المتتالي (معتمد على الوقت ، متتالي ، بدون ...) ؟

* احيانا يحتاج المستخدم لتخزين أكثر من رقم ابتدائي بناءا على معلومة أخرى مثال :

لدى المحاسب ثلاث دفاتر شيكات باسم المؤسسة كل دفتر لبنك مختلف . وكل دفتر يبدأ من ترقيم معين .. كيف نستخلص الرقم المتتالي في هذه الحالة ؟

الحل يوضع حقل في جدول حسابات البنوك باسم الرقم الابتدائي ومنه نغير لكل بنك أول رقم في دفتر الشيكات ..

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

الآن نضع في القيمة الإفتراضيه لمربع النص :

=NextNum()

وهذه هي الدالة :

Function NextNum() As String
  Dim YDB As Database, RMaxNum As Recordset '

 'استخراج اعلى رقم للشيكات ان كان موجودا
  Set YDB = DBEngine.Workspaces(0).Databases(0)
'فتح السجل وبناء جملة الاستعلام 
 Set RMaxNum = YDB.OpenRecordset("SELECT Max([Check Number])" _
        & " AS [Max Check Num] FROM [Checks]" _
        & " WHERE [Account Number] = '" _
        & Forms![Check Editor]![Bank Account] & "'", dbOpenSnapshot)

  If Not IsNull(RMaxNum.Fields(0).Value) Then
      NextNum = CStr(RMaxNum("Max Check Num") + 1)
    Else

     'اذا لم يكن موجودا استخرج الرقم الابتدائي من جدول حسابات البنوك 
      Dim curdb As Database, BA As Recordset, strSQL As String
      Set curdb = DBEngine.Workspaces(0).Databases(0)

          'بناء جملة الاستعلام
      strSQL = "SELECT [Bigging Check Number]" _
      & " FROM [Bank Accounts] WHERE [Bank Account Number] = '" _
      & Forms![Check Editor]![Bank Account] & "'"


      Set BA = curdb.OpenRecordset(strSQL, dbOpenSnapshot)
If Not IsNull(BA.Fields(0).Value) And _
         BA![Bigging Check Number] > 0 Then
        NextNum = CStr(BA![Bigging Check Number])
       Else

     'اذا لم يوجد رقم ابتدائي افرض رقما .
        NextNum = "0100"


      End If
      BA.Close
      curdb.Close
  End If
  RMaxNum.Close

End Function

أخي أبو لمى :

شكرا كثيرا على مشاركتك ولو أنني أود مشاركتك بصفة مستمرة وليست على فترات .

والله يعينك .

أشرف خليل