[ تمّ الحل ] : تحيين الاحصاء حسب بيانات الفليكس جريد

ما أرجوه هو إظهار عدد الذكور و الإناث بالتاكست 36 أو 38 مباشرة عند الضغط على زر الأمر " الحفظ " أو "الحذف" أو "التعديل" لأنّ العدد الفعلي لا يظهر إلا بعد الخروج و الدخول مرة أخرى

كود :

Private Sub DrawFlex()



Text36.Text = "0"

Text38.Text = "0"



With MSHFlexGrid1

.AllowUserResizing = flexResizeColumns

If RS.RecordCount > 0 Then

Set .DataSource = RS

EnabledOrDisbled_MainButtons True, False, True, True, True

EnabledOrDisbled_MovingButtons True, True, True, True

Else

Set .DataSource = Nothing

EnabledOrDisbled_MainButtons True, False, False, False, True

EnabledOrDisbled_MovingButtons False, False, False, False

.Clear

.Rows = 2

End If

Dim r As Integer

For r = 0 To 5

.TextMatrix(0, r) = RS.Fields(r).Name

Next

MSHFlexGrid1.ColWidth(0) = 500

MSHFlexGrid1.ColWidth(1) = 1500

MSHFlexGrid1.ColWidth(2) = 1500

MSHFlexGrid1.ColWidth(3) = 1500

MSHFlexGrid1.ColWidth(4) = 1500

MSHFlexGrid1.ColWidth(5) = 1500

For r = 0 To 5

MSHFlexGrid1.ColAlignment(r) = 3

MSHFlexGrid1.ColAlignmentFixed(r) = 3

Next

Text100.Text = RS.RecordCount

End With



With MSHFlexGrid1

For i = 1 To .Rows - 1

If MSHFlexGrid1.TextMatrix(i, 5) = ("ÐßÑ") Then

Text36.Text = Val(Text36.Text) + 1

End If

If MSHFlexGrid1.TextMatrix(i, 5) = ("ÃäËì") Then

Text38.Text = Val(Text38.Text) + 1

End If

Next

End With



End Sub

باسم الله ماشاء الله .. ربّنا يبارك فيك و يزيدك من علمه و فضله .. أفضالك صدّقني لا أنساها ما حييت و لا يمكن رد الجميل إلا بالدعاء الطيّب لك و لعائلتك الكريمة

السّلام عليكم و رحمة الله و بركاته
أهلا بالطيّب الغالي ..
ألف شكر و بارك الله فيك و لك على الهديّة المميّزة و القيّمة
إستفدت كثيرًا من كل مداخلاتك و مشاركاتك بالمنتدى
نعْمَ الأخ الكريم قبل عبارة الأستاذ القدير " أحمد منصور "
أدامك الله بخدمة إخوانك العرب خاصّة و المسلمين عامّةً و زادها بموازين حسناتك
دعواتي أن تحتويك دنيا الفرح في كلّ أمر وأن ترعاك عين الرحمن أبد الدهر، وأن يبارك الله لك في مالك وأهلك ويرفع منزلتك بين خلقه إن شاء الله ويجعل الخير في يومك وسائر أيامك.
فائق الاحترامات