السّلام عليكم و رحمة الله و بركاته
إخواني الأعزّاء .. أعزّكم الله بفضله و نوره و علمه
أملي و ثقتي بالله ثمّ بكم أن أجد المساعدة لحل هذه الاشكاليّة
بالفورم 1 لديَّ التاكست 36 لإظهار عدد الذكور و التاكست 38 لعدد الإناث
بالفورم لودْ لديَّ كود لإظهار العدديْن للذكور و الاناث .. كل شيء طبيعي و يسير بأحسن شكل عند بداية فتح المشروع
ما أرجوه هو إظهار عدد الذكور و الإناث بالتاكست 36 أو 38 مباشرة عند الضغط على زر الأمر " الحفظ " أو "الحذف" أو "التعديل" لأنّ العدد الفعلي لا يظهر إلا بعد الخروج و الدخول مرة أخرى
جرّبت وضع الكود الذي بالفورم لودْ في زر الأمر رقم 2 الخاص بالحفظ أو بالأزرار الأخرى المعنيّة لكن للأسف لا شيء تغيّر معي
بارك الله فيكم و لكم و في صحّتكم و أوقاتكم مقدّمًا و جزاكم خير الجزاء
إحتراماتي
وعليكم السلام ورحمة الله وبركاته
اضف الكود التالي
Text36.Text = "0"
Text38.Text = "0"
للاجراء كما بالصورة
انشاء الله تضبط
كود :
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
وعليكم السّلام و رحمة الله و بركاته
أهلا أخي عبدالعزيز , تم التعديل .
السّلام عليكم و رحمة الله و بركاته
يوم كامل ضيّعته أخي SENDBAD100 من أجل هذين السّطريْن و أنا أضرب أخماسي بأسداسي بتجربة كل الوسائل
بارك الله فيك و لك و انعم عليك بالصحّة و العافية
باسم الله ماشاء الله .. ربّنا يبارك فيك و يزيدك من علمه و فضله .. أفضالك صدّقني لا أنساها ما حييت و لا يمكن رد الجميل إلا بالدعاء الطيّب لك و لعائلتك الكريمة
جزاك الله خيرًا و أراح نفسك و بالك مثلما أرحتني
خالص التحيات و أجمل الأمنيات
هذا هو المطلوب إنجازه بالضبط .. تمام و للحمد الحمد و الشّكر
السّلام عليكم و رحمة الله و بركاته
أهلا بالطيّب الغالي ..
ألف شكر و بارك الله فيك و لك على الهديّة المميّزة و القيّمة
إستفدت كثيرًا من كل مداخلاتك و مشاركاتك بالمنتدى
نعْمَ الأخ الكريم قبل عبارة الأستاذ القدير " أحمد منصور "
أدامك الله بخدمة إخوانك العرب خاصّة و المسلمين عامّةً و زادها بموازين حسناتك
دعواتي أن تحتويك دنيا الفرح في كلّ أمر وأن ترعاك عين الرحمن أبد الدهر، وأن يبارك الله لك في مالك وأهلك ويرفع منزلتك بين خلقه إن شاء الله ويجعل الخير في يومك وسائر أيامك.
فائق الاحترامات
امين يا رب العالمين
الله يتقبل منا ومنكم صالح الاعمال
الفضل لله واحده
ولاخواننا في المنتدى الكريم من بعده
واشكرك على الدعاء الجميل والطيب
واشكر استاذي / أحمد منصور
على كل ما قدمه للمنتدى ولي خاصة في المنتدى وخارج المنتدى
ولي الشرف اني تتلمذت على يديه بارك الله له في علمه وعمله.
وعليكم السلام ورحمة الله وبركاته
يأهلا وسهلاً بإخواني الكرام ، اللهم آمين يارب العالمين الله يتقبل إن شاء الله ، شكراً جزيلاً لك أخي عبدالعزيز وجزاك الله كل خير على كلماتك ودعواتك الغاية في التميز والروعه دائماً ردودك كتحفه فنيه سواء في جمال صيغتها النصيه وقيمتها المعنويه ماشاء الله تبارك الله والتي تدل على أنك شخص طيب القلب ومحترم وراقي وذو أخلاق رفيعه المستوى ، أخي العزيز سندباد١٠٠ ، أشكرك جزيل الشكر جزاك الله كل خير وبارك الله فيك والله يقدرنا ويعيننا على تقديم العون والمساعده للجميع . ، أسأل الله العلي القدير لكما التوفيق والنجاح الدائم وأن يرزقكم ويسهل رزقكم ويغفر لكم ولوالديكم ولأهلكم الكرام ويسعدكم جميعا في الدنيا والآخره .
- تحياتي لكما .