السلام عليكم و رحمة الله و بركاته يا صحبة الخير (بالمناسبة سمعت بالأمس في الراديو عن الصحبة السيئة و الصحبة الحسنة و عندها خطر هذا المنتدى في ذهني و أدركت وقتها أن بالفعل هناك من يستحق لقب الصديق و أن أحاديث رسولنا الشريف دائما حق، و بأن الخير في أمته إلى يوم الدين، و أنا أفخر بأن أكون بينكم)
هذه المقدمة من القلب، و بها أو بدونها أنا متأكد أنكم لن تقصروا في مساعدة أي عضو من أعضاء المنتدى، و إن لم تفعلوا فبالتأكيد هناك ما يشغلكم عن فعل الخير.
إلى صلب الموضوع:
لقد كتبت الكود، ليقوم عند الضغط على خانة الإختيار last_think بالترقيم في خانة last_think_no كل 50 سجل برقم التقرير الذي يتم طباعتهم فيه أي 1 ، 2 ، 3 ، ...الخ، إلى أن تنتهي السجلات، و الغرض من ذلك هو عند طلب طباعة التقرير رقم 1 مثلا تكون النتيجة واحدة دائما حتى لو تم إضافة سجلات جديدة أو حذفت أخرى قديمة.
Private Sub last_think_AfterUpdate()
On Error Resume Next
Dim MC As Integer
Dim CN As Integer
MC = DMax("[last_think_No]![main_Table]")
CN = Count(MC)
If last_think.Value = True Then
If CN <= 50 Then
last_think_no = MC + 1
Else
last_think_no = 0
End If
ElseIf last_think.Value = False Then
last_think_no = 0
End If
End Subأرجو إدراك المشكلة دون طلب البرنامج لأنه كبير (على الأقل بالنسبة إلي أنا) مع العلم أن عملي قد توقف بسبب هذا الكود لذا أرجو السرعة في المساعدة قدر الإمكان
