تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في عدم تكرار سجلات الزواج
#1
السلام عليكم ورحمة الله وبركاته
لدى مشروع لتوثيق وأرشفة عقود الزواج والأمور تمام ولكن حصلت لدى مشكلة صغيرة وهى:
عند إختيار  المأذون من الكومبوكس (Comboalmadhun) يتم امتلاء الكومبوكس (Comborecord)
بكافة سجلات المأذون التي قام الموظف المختص بإضافتها في جدول (TBL_archives).
والمشكلة أن أرقام السجلات تتكرر, وأنا أريدها أن تكون (group by)

ملاحظة: كل سجل يتكون من 25 صفحة فمثلاً:
سجل 1  صفحة 1
سجل 1  صفحة 2 ............. إلى صفحة 25
وهكذا يبدأ في السجل رقم 2  صفحة 1  ..........
....................................................

ولكن لو إخترنا مأذوناً من الكومبوكس وكان لدى المأذون 10 سجلات وكل سجل 25 صفحة لكان عدد البيانات في الكومبوكس 10× 25 = 250
وهذا غير معقول لاسيما مع زيادة عدد السجلات شهرياً.
مع العلم أنني استطعت تجميع السجلات ولكن دون ربط لكومبوكس السجلات بكومبوكس الأسماء وهذا أيضا غير مجدي نفعاً.
فكيف يتم تجميع السجلات أو عدم تكرارها عند إختيار اسم المأذون الشرعي من كومبوكس الأسماء؟
وللتوضبح أكثر المثال في المرفقات ....
.rar   مثال تجميع السجلات.rar (الحجم : 1.09 م ب / التحميلات : 19)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#2
اين أنتم أيها الأساتذة الكرام.
رجل فقير محتاج ... ههههههه
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاتة

جرب الكود التالي  لتعبية كمبوبوكس الريكورد

PHP كود :
Private Sub Comboalmadhun_Click()
'On Error Resume Next: Err.Clear
''''''''''''''''''''''''''''''''''
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close

SQL = " SELECT record FROM TBL_archives GROUP BY TBL_archives.record, TBL_archives.aism_almadhun HAVING (((TBL_archives.aism_almadhun)='" & Trim$(Comboalmadhun.Text) & "'))"
Text1.Text = SQL
RS.Open SQL, db, adOpenStatic, adLockOptimistic
                      
Comborecord.Clear


For I = 0 To RS.RecordCount - 1
Comborecord.AddItem RS.Fields(0)
Comborecord.ItemData(Comborecord.NewIndex) = RS.Fields(0)
RS.MoveNext
Next
'
End Sub 

بالتوفيق
الرد
تم الشكر بواسطة: مصمم هاوي
#4
(19-11-20, 11:52 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاتة

جرب الكود التالي  لتعبية كمبوبوكس الريكورد

PHP كود :
Private Sub Comboalmadhun_Click()
'On Error Resume Next: Err.Clear
''''''''''''''''''''''''''''''''''
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close

SQL = " SELECT record FROM TBL_archives GROUP BY TBL_archives.record, TBL_archives.aism_almadhun HAVING (((TBL_archives.aism_almadhun)='" & Trim$(Comboalmadhun.Text) & "'))"
Text1.Text = SQL
RS.Open SQL, db, adOpenStatic, adLockOptimistic
                      
Comborecord.Clear


For I = 0 To RS.RecordCount - 1
Comborecord.AddItem RS.Fields(0)
Comborecord.ItemData(Comborecord.NewIndex) = RS.Fields(0)
RS.MoveNext
Next
'
End Sub 

بالتوفيق

هذا هو المطلوب أستاذي الفاضل
جزاك الله كل خير وفتح عليك فتوح العارفين وجعلك من المبشرين بجنة النعيم
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#5
امين
جزاك الله الف خير على دعوتك تقبلها الله لي ولك مثلها
بالتوفيق يارب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف انشي لبرنامجي المرفق تصفح سجلات مثال الذي في الصوره ؟؟ Microformt 0 21 17-05-21, 10:11 PM
آخر رد: Microformt
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 10 495 01-04-21, 09:46 PM
آخر رد: اسلام الكبابى
  مساعدة في امتحاني Zahora 0 165 14-03-21, 08:06 PM
آخر رد: Zahora
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 679 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
  [vb6.0] مساعدة فى انشاء تقريرباستخدام active report aboezzat84 0 205 10-01-21, 10:53 PM
آخر رد: aboezzat84
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 516 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 747 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 687 19-08-20, 09:01 PM
آخر رد: gonm64
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 607 16-07-20, 03:22 AM
آخر رد: hasanqo
  طلب مساعدة في برنامجي awidan76 4 667 22-06-20, 10:18 PM
آخر رد: awidan76

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم