التخلص من مشكلة الترقيم التلقائي

[ابو محمود]

يا جماعة الخير

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

صممت برنامج لمركز طبي أعمل به منذ ما يقرب من ثلاثة سنوات

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

فقررت تغيير الترقيم إلى طريقه أخرى حتى وجدت ضالتي في هذا الرابط وهو خاص بالفريق العربي للأخ مصلح الحريصي

إضغط هنا لزيارة رابط الترقيم التلقائي للأستاذ مصلح الحريص الفريق العربي للبرمجة

وعجبتني جدا المشاركة قبل الأخيرة للخبير ahamied

وحاولت تنفيذها عندي طوال اسبوع كامل ولكني فشلت لاني لست قوي في الأكسس

أرجو منكم مساعدتي نظير دعوه في الغيب لاني تعبت جدا

وأرجو أن تكون الإجابه وافيه

أو دلوني على حل آخر للترقيم التلقائي يصلح للعمل لى الشبكة

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

أخوكم أبو محمود

تم تعديل مارس 6, 2008 بواسطه ابو محمود

[Dream_Works]

أخي الكريم

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

و قد أرفقت لك اثنين منهما

1- حل من الأستاذه القديره زهره العبدالله باستخدام الكود

2- حل مستمد من موقع أجنبي ... يعتمد على الاستعلام في إنشاء الترقيم التلقائي ... مع كود قليل للتأكد من تفعيل الاستعلام

____________.zip

[abd151]

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

[ابو محمود]

الف شكر لك أخي الفاضل Dream_Works على تجاوبك معي

ولكن كما أسلفت لا أريداعادة الترقيم لان دي ملفات طبية ورقم المراجع ثابت

والمشكلة تكمن أن البرنامج يستخدم على الشبكة

بمعنى لو أنه تم ادخال التسجيل على عدد اثنين كمبيوتر في نفس الوقت سيتم حفظ الأول والثاني لن يتم حفظه

كما أسلفت فكرة الخبير ahamied تتقارب جدا مع فكرتي ولكني عجزت عن تطبيقها

فارجو مساعدي في فكرة ترقيم تلقائي يصلح على الشبكة دون اعادة الترقيم في حالة فقد ملف

[محب العلم]

أخي أبا محمود ومن بعد إذن أخي dream works ومشكورا على تواصله لحل المشكلة

أقدم توصية باستخدام طريقة دالة dmax واستخدامها في بيئة الشبكات الخاصة بأخي محمد طاهر وهي :

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

مع وافر الاحترام

[ابو محمود]

شكرا جزيلا سأحاول تجربتها

تم تعديل مارس 7, 2008 بواسطه ابو محمود

[ابو محمود]

هذه هي ضالتي

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

[محب العلم]

حياك الله أخي أبا محمود ومبارك وصولك للحل ،،

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

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

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

تم تعديل مارس 7, 2008 بواسطه محب العلم

[ابو محمود]

عفوا أخي محب العلم

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

طبعا قابلتني بعض الصعوبات مما جعلني ابحث عن موضوع الاستاذ محمد طاهر بهاذا الشأن حتى تغلبت على هذه الصعوبات

وقمت بتفريغ البيانات من قاعة البيانات حتى أرفقها ولكن حجمها كبير جدا بعد حذف البيانات لا أدري لماذا مما أدى إلى فشل الرفع

وقد أرفقت رابط موضوع الأستاذ محمد طاهر بهذا الخصوص

رابط موضوع الأستاذ محمد طاهر

وبه المثال الجامع والوافي

ولي سؤال أخير هل الداله DMax لها علاقة بتعليق برنامج الأكسس بالذاكره بعد غلق البرنامج لان المشكلة تتكررمعي عند استخدام هذه الدالة

وفي المرفقات مثال الأستاذ محمد طاهر بخصوص الترقيم التلقائي في بيئة الشبكات

تم تعديل مارس 10, 2008 بواسطه ابو محمود

[محب العلم]

شكرا لك أخي أبا محمود على جهودك

لا اعتقد أن المشكلة من الدالة dmax

مع وافر الاحترام