مساعد في منع تكرار الرقم تلقائي عند حذفه

[nabilalibibo]

السلام عليكماخواني 

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

تم تعديل فبراير 7, 2022 بواسطه nabilalibibo

[Barna]

الحل في عدم جعل الترقيم التلقائي رقم فريد للموظف .... وانما اجعل رقم الموظف هو رقم مثلا هويته او جوازه او الرقم القومي او ترقيم خاص ببرنامجك وليس تلقائي ...

[nabilalibibo]

استاذي الفاضل Barna 

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

[Barna]

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

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

[Barna]

لاحظ المثال البسيط هذا لتفهم ما قلته ... 

 

BA_585.mdb

[nabilalibibo]

استاذي الفاضل Barna 

هذا الملف المرفق للتعديل ان امكن وشكرااا

 

Database26.rar

[Barna]

42 دقائق مضت, nabilalibibo said:

استاذي الفاضل Barna 

هذا الملف المرفق للتعديل ان امكن وشكرااا

 

تفضل جرب ترحيل موظف .... ثم استعادته مرة اخرى .... واعلمنا بالنتيجة ....

 

Database26.rar

[د.كاف يار]

تفضل هذه الطريقة

انشئ وحدة نمطينة جديدة  Module و الصق الكود التالي

Public Function RNumber(etText As Integer) As Integer
    Dim i As Integer, NewNumber As Integer
    
    For i = 1 To Nz(DMax("م", "tbl_BB"), 1)
    
        If Nz(DLookup("م", "tbl_BB", "[م]=" & i), 0) = 0 Then
            NewNumber = i
            Debug.Print NewNumber
            Exit Function
        Else
            NewNumber = Nz(DMax("م", "tbl_BB"), 0) + 1
        End If
    Next i
    RNumber = NewNumber
End Function

و في ازرار الحفظ ضع التالي

txt = RNumber(txt)

سيتم جلب الرقم الشاغر و في حال عدم وجود رقم شاغر سيتم استكمال الترقيم التلقائي

[nabilalibibo]

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

اخي Barna هل يمكن اضافة جدول اخر لترحيل موظفين الذين انقطعو عن العمل نهائيا لانني حولت و لم استطيع 

[Barna]

1 ساعه مضت, nabilalibibo said:

اخي Barna هل يمكن اضافة جدول اخر لترحيل موظفين الذين انقطعو عن العمل نهائيا لانني حولت و لم استطيع 

طيب .... جرب المرفق غيرنا الاسلوب الى اسلوبك وطلبك .... جرب ترحيل موظف ثم استرجاعة وايضا اضافة سجل بعد ترحيل موظف حيث يتم اضافة الموظف برقم جديد لا يتكرر حتى مع ارقام الموظفين المرحلين لجدول اخر ... واعلمنا بالنتيجة ...

 

Database266.rar

[nabilalibibo]

بارك الله فيك استاذي Barna هذا هو المطلوب كفية ووافية 

هل ممكن فصل الموظفين المنقطعين نهائيا عن العمل عن الموظفين المنقطعين بصفة مؤقتة كلنا في جدول منفصل

مثلا : المتقاعدين ، المسرحين ، المتوفين في جدول و نموذج منفصل.

مثلا : المحالين على الاستيداع ،عطلة مرضية ، الخدمة الوطنية في جدول و نموذج منفصل.

وشكرااااا

[Barna]

4 ساعات مضت, nabilalibibo said:

هل ممكن فصل الموظفين المنقطعين نهائيا عن العمل عن الموظفين المنقطعين بصفة مؤقتة كلنا في جدول منفصل

مثلا : المتقاعدين ، المسرحين ، المتوفين في جدول و نموذج منفصل.

مثلا : المحالين على الاستيداع ،عطلة مرضية ، الخدمة الوطنية في جدول و نموذج منفصل.

وشكرااااا

نعم ممكن ..... اعمل جدول ارشيف للمحذوفين نهائيا .... وجدول ارشيف للمحذوفين موقتا

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

ثم في امر الترحيل استخدم قاعدة IF حسب العبارة المختارة في الكمبوبكس يتم تطبيق كود ترحيل اما جدول الارشيف الاول او الثاني ..... وفقط .... جرب زاعلمنا بالنتيجة ..

[nabilalibibo]

 استاذي Barna 

و هل اضع زرين واحد ترحيل نهائي و الاخر مؤقت في النموذج الرئيسي 

[Barna]

22 دقائق مضت, nabilalibibo said:

 استاذي Barna 

و هل اضع زرين واحد ترحيل نهائي و الاخر مؤقت في النموذج الرئيسي 

ابدا ... قاعدة If تقوم بالمهمة ...

[nabilalibibo]

لم استطيع عمل ذلك استاذي الفاضل barna

[Barna]

26 دقائق مضت, nabilalibibo said:

لم استطيع عمل ذلك استاذي الفاضل barna

طيب ... ابشر ... بس اوصل البيت ويكون خير

[nabilalibibo]

ان شاء الله توصل بالسلامة 

[Barna]

اهلا استاذ نبيل .... لاحظ التعديلات الموجودة في الصورة وشرحها بالترتيب :::::::

- جدول الارشيف المؤقت

- جدول الرشيف النهائي

- جدول بيانات الموظفين

- نموذج الارشيف المرقت

- نموذج الارشيف النهائي

- نموذج رئيسي

- نموذج اختيار نوع الترحيل

- استعلام توحيد للترقيم حتى لا يتم تكرار الترقيم

ملاحظة : لم يتم ادراج زر في النموذج الرئيسي لنموذج الارشيف النهائي ( اختر لها زر حسب برنامجك ) .....

 

Database26.accdb

[nabilalibibo]

بارك الله فيك استاذي الفاضل Barna 

لك مني كل الشكر الثناء و التقدير  و جزاك الله كل خير 

 

[Barna]

حياك الله ... استاذ نبيل... بالتوفيق

[nabilalibibo]

استاذي الفاضل Barna و الاخوة الاعضاء بالمنتدى 

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

 

[nabilalibibo]

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

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