منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في عدم تكرار سجلات الزواج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مساعدة في عدم تكرار سجلات الزواج (/showthread.php?tid=36929)

مساعدة في عدم تكرار سجلات الزواج - مصمم هاوي - 17-11-20

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

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

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

RE: مساعدة في عدم تكرار سجلات الزواج - مصمم هاوي - 19-11-20

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

RE: مساعدة في عدم تكرار سجلات الزواج - sendbad100 - 19-11-20

وعليكم السلام ورحمة الله وبركاتة

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

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 

بالتوفيق

RE: مساعدة في عدم تكرار سجلات الزواج - مصمم هاوي - 20-11-20

(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 

بالتوفيق

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

RE: مساعدة في عدم تكرار سجلات الزواج - sendbad100 - 20-11-20

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