تقييم الموضوع :
  • 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 م ب / التحميلات : 6)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#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
امين
جزاك الله الف خير على دعوتك تقبلها الله لي ولك مثلها
بالتوفيق يارب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 293 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 537 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 443 19-08-20, 09:01 PM
آخر رد: gonm64
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 412 16-07-20, 03:22 AM
آخر رد: hasanqo
  طلب مساعدة في برنامجي awidan76 4 464 22-06-20, 10:18 PM
آخر رد: awidan76
  [vb6.0] مساعدة فى طباعة محتويات جدول aboezzat84 4 551 08-06-20, 10:41 AM
آخر رد: aboezzat84
  كيف يمكن اعادة ترتيب سجلات MSFlexGrid gonm64 2 351 08-06-20, 08:28 AM
آخر رد: gonm64
  مساعدة في ايجاد سورس كود خاص ببرنامج الاوزان والطول حسب هذه المعطيات ضياء الدين 1 322 02-06-20, 12:46 AM
آخر رد: AL_BRNS
  منع تكرار كلمة في حال وجود اكثر من textbox gonm64 2 340 25-05-20, 03:23 AM
آخر رد: gonm64
  [vb6.0] مساعدة في ايجاد سورس كود خاص ببرنامج الاوزان والطول ضياء الدين 0 315 20-04-20, 04:34 PM
آخر رد: ضياء الدين

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


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