ترقيم تلقائي - ترقيم مستقل لكل عنصر

[noursh]

لسلام عليكم

الرجاء مساعدتي في كيفية عمل ما يلي:

عند اختيار اسم البنك من الخانة to أي يطيني تسلسل في الخانة id

بحيث كلما أعطي جديد يعطيني ترقيم خاص بكل بنك فمثلاً:

عند اختيار blom bank لأول مرة يعطني في id الرقم 1

وعند اختيار bemo bank في المرة الأول أيضاً يعطيني التسلسل 1

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

بحيث يكون ترقيم كل منهما مستقل عن الآخر

كيف يمكنني عمل ذلك لقد حاولت عدة مرات في dmax ولكن دون أي جدوى

وكيف يمكنني عمل تقرير للجدول الرئيسي والجدول الفرعي الموجود معاً إذ أن الجدول الفرعي يحوي سجلات.

كيف يمكنني إضافة أكثر من سطر في خانة النص

الرجاء المساعدة العاجلة إن أمكن ولكم جزيل الشكر

أرجو أن أكون واضحاً في شرحي

وآسف على الإزعاج

ملف مرفق ( عددع مرات التحميل : 5 )

cheque.mdb

[الدكتور خضر الرجبي]

حل السؤال المتعلق بترميز أرقام البنوك لكل بنك رقم تسلسلي لوحده، لقد ذكرت في شرحك أن dmax لا تعمل وإليك البديل البرمجي التالي :

1. من فهم السؤال يتضح أن قاعدة البيانات تحتوي على جدول البنوك Banks والذي يحتوي بشكل أساسي على حقلين رمز البنك BankID و اسم البنك BankNam وهو مفهرس مع سماح التكرار ورمز البنك مفتاح غير رئيسي حيث يسمح بتكرار الرقم للبنوك المختلفة والمطلوب عمل ترميز تسلسلي مستقل لكل بنك

2. في حدث بعد التحديث AfterUpdate نضع الكود التالي:

Private Sub BankName_AfterUpdate() On Error Resume Next
 Dim DBsRajabi As Database
 Dim RstBanks As Recordset
 Set DBsRajabi = CurrentDb
 Set RstBanks = DBsRajabi.OpenRecordset("select bankid,bankname from banks ", dbOpenSnapshot)
 Max = 0
 With RstBanks
   .MoveFirst
  Do While Not .EOF
   If .Fields(0) > Max And Trim(.Fields(1)) = Trim(Me.BankName) Then Max = .Fields(0)
   .MoveNext
  Loop
 End With
 Max = Max + 1
 RstBanks.Close
 Me.BankID = Max
End Sub

[أبو هادي]

السلام عليكم

بعد إذن أخي خضر الرجبي .. مثال لأخي noursh مرفق لدالة DMax التي لم تعمل معه .

تحياتي .

MultiSeq.rar

تم تعديل يناير 16, 2005 بواسطه أبو هادي

[الدكتور خضر الرجبي]

بالنسبة للسؤال الثاني:

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

تم تعديل يناير 17, 2005 بواسطه خضر الرجبي

[noursh]

الشكر الجزيل على ردكم

ولكن ظهرت عندي مشكلة عند طباعة التقرير

طبعاً لقد وضعنا نوع الخانة في to رقم لذلك عند عمل التقرير أصبح يظهر رقم

لذلك كيف يمكنني تحويل الرقم إلى نص

أي ما يستعاض به عن الرقم

مثلاً: bemo بدلاً من 1

وهكذا

عملت زر طباعة في النموذج بحيث يطبع السجل الحالي ولكن....

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

فهل عملية الربط عندي خطأ

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