[مصمم هاوي]

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

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

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

[مصمم هاوي]

اين أنتم أيها الأساتذة الكرام.
رجل فقير محتاج ... ههههههه

[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 


بالتوفيق

[مصمم هاوي]

(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 


بالتوفيق

هذا هو المطلوب أستاذي الفاضل
جزاك الله كل خير وفتح عليك فتوح العارفين وجعلك من المبشرين بجنة النعيم

[sendbad100]

امين
جزاك الله الف خير على دعوتك تقبلها الله لي ولك مثلها
بالتوفيق يارب