الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في الترقيم حسب الترتيب الأبجدي

مغلق
بدأه alisary في 27 يناير 2005 · 8 رد · 974 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي مشكلة في الترقيم وترتيب السجلات ابجديا وارجو مساعدتي ولكم جزيل الشكر والعرفان

1- اريد عمل ترقيم تلقائي تسلسلي يتم حسب الترتيب الأبجدي لحقل ( النوع ) .

2- اريد ان يتم التحديث في الجدول مباشرة وليس بعد اغلاق النموذج وفتحة مرة ثانية .

المشاكل الحالية في الملف المرفق:

1- عند الضغط على زر ترتيب السجلات لا يتم الترقيم حسب الترتيب الابجدي.

2- لا يتم التحديث في الجدول الا بعد اغلاق النموذج وفتحه اكثر من مرة .

3- عند الضغط على زر ترتيب السجلات والنموذج في وضع اضافة يقوم باضافة سجلات فارغة تلقائيا وتصل الى عشرا السجلات .

AM11.rar

#2

تفضل اخي : alisary ، يمكن يفي بالغرض ،،،

عمائر.rar

إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
#3

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

ولكن احتاج الى تعديل في الكود على ما اظن وليس اضافة جدول جديد كاما تفضلت . فالمشكلة تكمن في زر أمر (ترتيب السجلات)

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

#4

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

عمائر.rar

#5

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

أرجو منك التفضل واعادة المحاولة ولك جزيل الشكر والعرفان0

#6

تفضل يا أخي الكريم ،،، الكود سوف يكون هكذا :

Me.OrderBy = " النوع ASC,"
Me.OrderByOn = True
DoCmd.GoToRecord , , acFirst
c = DCount("[الرقم]", "عمائر")
For i = 1 To c
Me.الرقم = i
DoCmd.GoToRecord , , acNext
Next i
Me.Refresh

مرفق المثال بعد التعديل ،،، عسى أن يكون هو المطلوب .

تحياتي : أبو عقيل

:)

عمائر.rar

المسلم من سلم الناس من لسانه ويده

#7

الاستاذ: ابو عقيل ، ما قصرمعاك اخي العزيز alisary

إنما الأمم الأخلاق ما بقيت ××× فإن هم ذهبت أخلاقهم ذهبوا ...
#8

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

وتقبل مني اصدق التحيات .

وخالص الشكر والتقدير لكل من حاولوا مساعدتي

أخوكم(alisary)

#9

حياك الله أخي الكريم ،،، بالتوفيق إن شاء الله ...

تحياتي : أبو عقيل

:)

المسلم من سلم الناس من لسانه ويده

هذا الموضوع مغلق.

مواضيع مشابهة