تهنئة وهدية : الترقيم التلقائي بفكرة استخدام خصائص مربع التحرير والسرد

[رمهان]

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

اولا : احب ان ابارك لكم بقرب شهر الخير والبركات .. شهر رمضان .. فكل عام وانتم بخير ومبارك عليكم الشهر الفضيل جعلنا الله واياكم من صوامه وقوامه .. امين

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

تكمن الفائدة الاكثر بتعديل مصدر الاستعلام بوضع شروط معقدة لفلترة قائمة التحرير والسرد للحصول على الترقيم المطلوب مثلا : ترقيم بداية كل سنة - ترقيم باختلاف الصنف .. الخ . فالترقيم ينظر الى الارقام التي بالقائمة وحسب وجودها !

هذه المعادلة او التعبير للترقيم :

=Nz([id_no].[itemdata]([id_no].[ListCount]-1);0)+1

يمكن وضع الخاصية ممكن = لا

 

التطبيق بالمرفق ولكم خالص تحياتي 

 

 

aotu_num.rar

[Elsayed Bn Gemy]

كل عام وانت بخير

واعد الله عليك الشهر الكريم باليمن والبركات

اخى الكريم انى احبك فى الله

[Elsayed Bn Gemy]

شكرا على الهدية كنت بحسب كيس بلح ولا حاجة :jump:

[رمهان]

شكرا على الهدية كنت بحسب كيس بلح ولا حاجة :jump:

 

العفو ! وعارف هي مش قد المقام لانها قد تكون معلومة لدى الكثير ! ولكن هي اللي خطرت في بالي اثناء كتابة التهنئة !

شكرا اخي مارد ورمضان كريم !

[wael_rafat]

كل عام وانتم بخير وجميع اعضاء ومشرفي منتدانا الجميل بخير وبصحة

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

[wael_rafat]

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

كله تمام والحمد لله

الاستفسار هو : في طور التجربة وضعت حوالي 30000 ثلاثون الف سجل في جدول المبيعات علي سبيل التجربة والمشكلة اللي بتظهر انه عند فتح نموذج المبيعات يستمر في التحميل حوالي 20 او 30 ثانية حتي يصل الي الرقم التلقائي الجديد ... هل هذا طبيعي ?? ولو هذا مو طبيعي فاين تكمن المشكله مع العلم ان مصدر النموذج استعلام ... مع الشكر

[رمهان]

كل عام وانتم بخير وجميع اعضاء ومشرفي منتدانا الجميل بخير وبصحة

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

بارك الله فيكم .. وانتم الاجمل ..

[رمهان]

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

كله تمام والحمد لله

الاستفسار هو : في طور التجربة وضعت حوالي 30000 ثلاثون الف سجل في جدول المبيعات علي سبيل التجربة والمشكلة اللي بتظهر انه عند فتح نموذج المبيعات يستمر في التحميل حوالي 20 او 30 ثانية حتي يصل الي الرقم التلقائي الجديد ... هل هذا طبيعي ?? ولو هذا مو طبيعي فاين تكمن المشكله مع العلم ان مصدر النموذج استعلام ... مع الشكر

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

تحياتي

[wael_rafat]

حاضر انشالله

[wael_rafat]

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

اخواني الكرام كل عام وانتم بخير باقتراب شهر رمضان الكريم ... اللهم بلغنا اياه جميعا

استفساري هو.. حدوث بطئ شديد في تحميل نموذج يحتوي علي حقل رقم تلقائي حتي يصل الي الرقم الجديد ! حيث وضعت حوالي 30000 ثلاثون الف سجل للتجربه .

هل هذا امر طبيعي لعدد السجلات الضخمة الموجودة ?? ام هناك مشكلة .. علما بان مصدر النموذج هو استعلام .. مع الشكر

[رمهان]

هلا بالمرفق اخ وائل ! ممكن عمل قاعدة جديدة واستيراد الجدول والاستعلام والنموذج الذي به المشكلة

[wael_rafat]

تسلم استاذنا الفاضل علي التفاعل والمشاركة

يعني افهم من كلامك ان هذا الامر غير طبيعي ويوجد مشكلة بالرغم من الالاف السجلات الموجوده !!

[رمهان]

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

اخواني الكرام كل عام وانتم بخير باقتراب شهر رمضان الكريم ... اللهم بلغنا اياه جميعا

استفساري هو.. حدوث بطئ شديد في تحميل نموذج يحتوي علي حقل رقم تلقائي حتي يصل الي الرقم الجديد ! حيث وضعت حوالي 30000 ثلاثون الف سجل للتجربه .

هل هذا امر طبيعي لعدد السجلات الضخمة الموجودة ?? ام هناك مشكلة .. علما بان مصدر النموذج هو استعلام .. مع الشكر

 

ماهي الية الترقيم التلقاني او المعادلة او التعبير ؟

[wael_rafat]

اتفضل استاذ رمهان

KFC.rar

[رمهان]

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

    ' ÇáßæÏ ÇáÎÇÕ ÈÇáÊÑÞíã ÇáÊáÞÇÆí
    
    On Error GoTo Err
    
    Static Counter As Integer
    Dim ValMax As Integer
    Dim R As Variant
    Dim I As Integer

    ValMax = DMax("[orderno]", "Torderno")
    
    For I = 1 To ValMax
    
    Counter = Val(Counter) + 1
    R = DLookup("[orderno]", "Torderno", "orderno =" & Counter & "")
    
    If IsNull(R) Then
    Me.orderno = Val(Counter)

    Exit For
    Else
    Me.orderno = Val(Counter) + 1

    End If
    
    Next I

Err:
    If Err.Number = 94 Then Me.orderno = 1

انه يقوم بعمل بعملية الترقيم بالاضافة الى خيار استخدام الارقام المحذوفة ! وهذا مايسبب البطء وفعلا انت تلف على جميع الارقام المحصورة بين 1 واعلى رقم والاكثر تعقيد هو استخدام dlookup  للبحث في كل عملية دوران عن الرقم المفقود ؟

اذا كان فهمي صحيح : فمعليش اخ وائل ان جعلتك تنتقل من الموضوع الجديد والهدية وهنا

http://www.officena.net/ib/index.php?showtopic=62214

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

 

تحياتي

[wael_rafat]

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

    ' ÇáßæÏ ÇáÎÇÕ ÈÇáÊÑÞíã ÇáÊáÞÇÆí
    
    On Error GoTo Err
    
    Static Counter As Integer
    Dim ValMax As Integer
    Dim R As Variant
    Dim I As Integer

    ValMax = DMax("[orderno]", "Torderno")
    
    For I = 1 To ValMax
    
    Counter = Val(Counter) + 1
    R = DLookup("[orderno]", "Torderno", "orderno =" & Counter & "")
    
    If IsNull(R) Then
    Me.orderno = Val(Counter)

    Exit For
    Else
    Me.orderno = Val(Counter) + 1

    End If
    
    Next I

Err:
    If Err.Number = 94 Then Me.orderno = 1

انه يقوم بعمل بعملية الترقيم بالاضافة الى خيار استخدام الارقام المحذوفة ! وهذا مايسبب البطء وفعلا انت تلف على جميع الارقام المحصورة بين 1 واعلى رقم والاكثر تعقيد هو استخدام dlookup للبحث في كل عملية دوران عن الرقم المفقود ؟

اذا كان فهمي صحيح : فمعليش اخ وائل ان جعلتك تنتقل من الموضوع الجديد والهدية وهنا

http://www.officena.net/ib/index.php?showtopic=62214

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

تحياتي

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

..في انتظار الهدية الرمهانية...

بارك الله فيك وجزاك الله كل خير

[رمهان]

اولا اعتذر اخ وائل عن توجيهك الى مكان اخر لتوقعي ان مشكلتك ليست في الترقيم التلقائي !

وقد قام الاخ وائل بفتح موضوع هنا

http://www.officena.net/ib/index.php?showtopic=62220

 

وهنا ارفع لك الحل وبنفس فكرة الهدية الرمضانية ! استخدام امكانية خصائص مربع التحرير والسرد وكقيمة افتراضية !

وهنا نلاحظ كيف استطعنا الاستغناء عن الاكواد حتى في جلب الارقام المفقودة ! وكما ذكرت في اول مشاركة الفكرة تدور حول التعمق في انشاء استعلام مصدر صف مربع التحرير والسرد ! ثم استخدام الخصائص لجلب القيم من القائمة المنسدله  والتي مصدرها الاستعلام وكقيمة افتراضية !

 

تفضل المرفق

 

KFC.rar

[رمهان]

http://www.officena.net/ib/index.php?showtopic=62214

[رمهان]

اعزائي المشرفين والمراقبين

تم تعديل العنوان ! وهو اساس الموضوع وهي التهنة !

هلا اصبح هكذا : تهنئة وهدية ( اكتبو ما يناسبكم ) !

 

مشكورين

[رمهان]

اشكركم على تعديل العنوان ولكم جزيل الشكر !

 

وهذا تعديل باضافة استخدام الارقام المحذوفة في الترقيم !

 

طبعا هناك تعديلات بسيطة كاضافة عمود تسلسلي ( احتجناه لخيار جلب الارقام المفقودة ) ,وادخال الدالة val لتمييز الرقم 10 كرقم !

 

تحياتي

auto_num.rar

[أبا عمر]

جزاك _الله_ خيراً

[wael_rafat]

مشكور اخي الكريم رمهان وجاري التجربة .

ثانيا : في حالة استخدام الكود القديم ولكن بدون البحث عن الارقام المحذوفة ... اعتقد هنا سوف يكون التحميل اسرع من الاول .. برجاء التعديل علي الكود القديم لكي يصبح للترقيم فقط وبدون البحث عن الارقام المحذوفه ....وشكرا

[راعي الغنم]

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

وجميع اعضاء المنتدى واهلهم وذويهم في خير وعافية

"وفوق كل ذي علم عليم"

المرة الجاية لاتنسى تحط تمر في ارشيف الوينرار^_^

[رمهان]

 برجاء التعديل علي الكود القديم لكي يصبح للترقيم فقط وبدون البحث عن الارقام المحذوفه ....وشكرا

 

حذف كل الاسطر واكتب 

    Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1)

طبعا داخل الاجراء   MyOutoNum()

 

طلب : ممكن اعرف مصدر الكود السابق للترقيم ؟!

 

بالتوفيق

[wael_rafat]

بارك اللة فيك استاذنا الجميل رمهان

ومصدر الكود ..الاستاذة زهرة بارك الله فيها من منتدي الفريق العربي .

مع الشكر