اعادة الترقيم التلقائي !!!

[نضال]

السلام عليكم..............

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

ارجو الافادة ........ في المثال المرفق ....

db1.rar

[بو يوسف الراشد]

اخي في الله الاخ نضال....

تم التعديل على الملف

أرجو ان تشاهده وتعطيني رأيك

db1.rar

[نضال]

بارك الل فيك اخي يوسف .........

لقد اطلعت على الملف واعطيك ملاحظاتي بعد التجربة :

1- زر الحذف يحذف آخر سجل وليس السجل الذي اختاره !!!

2- عند الحذف ... لا يعطيني البرنامج رسالة تاكيد بالحذف !!

3- عندما يبقى آخر سجل فإن البرنامج يعطيني رسالة تأكيد وبعدها تحذف جميع محتويات النموذج بما فيه الازرار فيبقى النموذج فارغا !!!

4- لماذا غير نوع البيانات في سجل الرقم للجدول من ترقيم تلقائي الى رقم!!

5- ارجو ان تشرح لي الكود الذي كتبته في حدث ( في الحالي ) للنموذج ..

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

7- ما معنى الكود الذي كتبته في زر اضافة !!

ارجو التوضيح بارك الله فيك .... فإني مستفيد منك كثيرا دائما وأبدا

[بو يوسف الراشد]

الرد على الملاحظة الأولى:

........................

(زر الحذف يحذف آخر سجل وليس السجل الذي اختاره !!!)

.......................

زر الحذف يقوم بحذف السجل الذي تختارة وليس السجل الأخير لأنه بعد حذف السجل الذي تختاره وليكن مثلا (5) تنتقل بيانات السجل رقم (6) ليصبح رقمها (5) اوضح لك أكثر:

1 محمد

2 خالد

3 عمر

4 سعيد

لو حذفت السجل الثاني (خالد)....... ماذا سيحدث سيصبح ترتيب السجلات كالتالي:

1 محمد

2 عمر

3 سعيد

يعني اصبح اسم عمر في السجل الثاني ولم يتم حذف السجل الأخير.

[بو يوسف الراشد]

بالنسبة للملاحظة الثانية:

(عند الحذف ... لا يعطيني البرنامج رسالة تاكيد بالحذف !!)

ساصنعها لك

الملاحظة الثالثة:

(عندما يبقى آخر سجل فإن البرنامج يعطيني رسالة تأكيد وبعدها تحذف جميع محتويات النموذج بما فيه الازرار فيبقى النموذج فارغا !!!)

لأنه في خيارات النموذج قمت أنا بجعل خاصية (السماح بالإضافة) تكون "لا"

حولها إلى "نعم" وتنتهي المشكلة

[بو يوسف الراشد]

الملاحظة الرابعة:

(لماذا غير نوع البيانات في سجل الرقم للجدول من ترقيم تلقائي الى رقم!!)

لأن الترقيم التقائي يزداد الرقم فيه حتى ولو تم حذف السجل (يعني لا ينفع معه ترتيب الأرقام 1 2 3 4 5 6 7 8 9 10 11 ....... الخ)

[نضال]

جميل اخي بو يوسف .... والله رائع ..

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

[بو يوسف الراشد]

الملاحظة الخامسة:

(ارجو ان تشرح لي الكود الذي كتبته في حدث ( في الحالي ) للنموذج ..)

يحتوى حدث "في الحالي" على السطور التالية:

On Error GoTo EEE:

If Me.NewRecord = False Then
Me.AllowAdditions = False
الرقم= Me.CurrentRecord
End If

EEE: Exit Sub

السطر الأول: (On Error GoTo EEE:) تعني في حال ظهور خطأ اذهب إلى التابع (EEE) ليتم اجراء حدث (على حسب طلبي)

السطر الثاني والثالث والرابع والخامس:

جملة شرطية تقول :

(في حال ما إذا كان السجل الحالي لا يعتبر سجل جديد قم بالتالي:

1.(Me.AllowAdditions = False)

قم بجعل خاصية السماح باضافة السجلات تساوي "لا"

2.جعل الحقل"الرقم" تساوي قيمة السجل الحالي ...... هنا هو طلبك في الموضوع ......

3. انهاء الجملة الشرطية (End If)

السطر السادس:قم بانهاء الحدث (في الحالي) من خلال جملة (Exit Sub)

[بو يوسف الراشد]

الملاحظة السادسة:

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

لا يمكن عمل ذلك مع حقل الترقيم التلقائي ....

... إذا كان في خاطرك عمل هذا الزر .... فساحاول التفكير في ايجاد الحل

[بو يوسف الراشد]

الملاحظة السابعة:

(ما معنى الكود الذي كتبته في زر اضافة !!)

يحتوى حدث على السطور التالية

On Error GoTo Err_أمر7_Click

    Me.AllowAdditions = True
    DoCmd.GoToRecord , , acNewRec
    الرقم= Me.CurrentRecord

Exit_أمر7_Click:
    Exit Sub

Err_أمر7_Click:
    MsgBox Err.Description
    Resume Exit_أمر7_Click

كل من السطر (1 5 6 7 8 9) قد تم شرحه وخاص بالخطأ

السطر الثاني:

(Me.AllowAdditions = True)

قم بجعل خاصية السماح باضافة السجلات تساوي "نعم" ليتم السماح باضافة سجل جديد

السطر الثالث:

(DoCmd.GoToRecord , , acNewRec)

الانتقال إلى موقع السجل الجديد

( الرقم= Me.CurrentRecord)

جعل الحقل"الرقم" تساوي قيمة السجل الحالي

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

[نضال]

وضحت الرؤية اخي الكريم ..... بارك الله فيك ....

واذا وجدت حل بالنسبة لزر الترقيم سيكون افضل ....

جزاك الله خيرا ...

[مهند عبادي]

أخي الكريم

تفضل الحل بواسطة زر إعادة الترقيم

db1.rar

[بو يوسف الراشد]

استاذنا/مهند عبادي

لا أقول سوى (بارك الله فيك وفي علمك)

[شاهر]

اخي /مهند عبادي

زاد الله علما ونور ومتعك الله بصحه والعافيه

[نضال]

بارك الله فيك استاذنا مهند .... جوزيت خيرا ....

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

شكرا لكم

[ahmedamer2005]

كيف يتنسنى لى اعادة الترقيم التلقائى لهذا الجدول المرفق

TEST.rar