منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

ولكن لو إخترنا مأذوناً من الكومبوكس وكان لدى المأذون 10 سجلات وكل سجل 25 صفحة لكان عدد البيانات في الكومبوكس 10× 25 = 250
وهذا غير معقول لاسيما مع زيادة عدد السجلات شهرياً.
مع العلم أنني استطعت تجميع السجلات ولكن دون ربط لكومبوكس السجلات بكومبوكس الأسماء وهذا أيضا غير مجدي نفعاً.
فكيف يتم تجميع السجلات أو عدم تكرارها عند إختيار اسم المأذون الشرعي من كومبوكس الأسماء؟
وللتوضبح أكثر المثال في المرفقات ....[attachment=26010]
اين أنتم أيها الأساتذة الكرام.
رجل فقير محتاج ... ههههههه
وعليكم السلام ورحمة الله وبركاتة

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

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 

بالتوفيق

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