ترقيم تلقائي - في بيئة تعدد المستخدمين

[alwa7eed]

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

عندي برنامج موضوع على شبكة

واثناء مراجعة الارقام اجد ان بعض الارقام قد فقدت علما ان الترقيم تلقائي

حتى لو قمت بضغط قاعدة البيانات واصلاحها ايضا تبقى هذه الارقام مفقودة

ما هو السبب وكيف استطيع ان اتفادى هذه المشكلة

ولكم جزيل الشكر

[mzaki]

لضغط واصلاح قاعدة البيانات

يجب اولا افراغ جميع الجداول اى مسح كل محتوياتها

حتى يتم اعادة الترقيم بدءا من 1 واحد

مع تحياتى

mzaki

[alwa7eed]

شكرا على اهتمامك ومرورك

بارك الله فيك

ولكن هل هناك تفسير لمعرفة سبب ضياع بعض الارقام

يعني جهرز رقم واحد اخذ رقم 1015

من المفروض ان ان يأخذ جهاز رقم (2 ) 1016

اتفاجأ بان جهاز رقم ( 3) 1018

السؤال اين رقم 1017

غير موجود بالجدول

كيف اتحطم بهذا الموضوع لعدم ضياع الارقام

ولكم جزيل الشكر

[الدكتور خضر الرجبي]

السلام عليكم

أخي mzaki ، أخي الوحيد ، بارك الله في جهودكما .

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

Function checkid() As Long
  Dim formid As Long, Tblmax As Long

  formid = Me.id
  Tblmax = Nz(DMax("[id]", "names"))

  If formid <= Tblmax Then
    checkid = Tblmax + 1
  Else
    checkid = formid
  End If
End Function

Sub GetNewID()
 Dim LastID As Long, NewID As Long

 On Error Resume Next

 If Nz(Me!name) = "" Then
   MsgBox "you must Enter a name"
   Me!name.SetFocus
   Exit Sub
 End If

 LastID = Me.id
 Do
   Err.Clear
   If Me.NewRecord Then
     Me.id = checkid()
     NewID = Me.id
   End If
   DoCmd.GoToRecord , , acNewRec
 Loop Until Err.Number <> 2105

 If NewID > 0 And NewID <> LastID Then MsgBox "The new ID is " & NewID
End Sub

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

مع الاحترام

[alwa7eed]

بارك الله فيك