تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : تحيين الاحصاء حسب بيانات الفليكس جريد
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأعزّاء .. أعزّكم الله بفضله و نوره و علمه
أملي و ثقتي بالله ثمّ بكم أن أجد المساعدة لحل هذه الاشكاليّة
بالفورم 1 لديَّ التاكست 36 لإظهار عدد الذكور و التاكست 38 لعدد الإناث
بالفورم لودْ لديَّ كود لإظهار العدديْن للذكور و الاناث .. كل شيء طبيعي و يسير بأحسن شكل عند بداية فتح المشروع
ما أرجوه هو إظهار عدد الذكور و الإناث بالتاكست 36 أو 38 مباشرة عند الضغط على زر الأمر " الحفظ " أو "الحذف" أو "التعديل" لأنّ العدد الفعلي لا يظهر إلا بعد الخروج و الدخول مرة أخرى
جرّبت وضع الكود الذي بالفورم لودْ في زر الأمر رقم 2 الخاص بالحفظ أو بالأزرار الأخرى المعنيّة لكن للأسف لا شيء تغيّر معي
بارك الله فيكم و لكم و في صحّتكم و أوقاتكم مقدّمًا و جزاكم خير الجزاء
إحتراماتي


الملفات المرفقة
.rar   عدد الذكور و الإناث.rar (الحجم : 16.28 ك ب / التحميلات : 39)
الرد
تم الشكر بواسطة: Amir_Alzubidy
#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
الرد
#3
وعليكم السّلام و رحمة الله و بركاته

أهلا أخي عبدالعزيز , تم التعديل .


الملفات المرفقة
.rar   عدد الذكور و الإناث_1.rar (الحجم : 16.5 ك ب / التحميلات : 62)
الرد
#4
السّلام عليكم و رحمة الله و بركاته
يوم كامل ضيّعته أخي SENDBAD100 من أجل هذين السّطريْن و أنا أضرب أخماسي بأسداسي بتجربة كل الوسائل
بارك الله فيك و لك و انعم عليك بالصحّة و العافية
باسم الله ماشاء الله .. ربّنا يبارك فيك و يزيدك من علمه و فضله .. أفضالك صدّقني لا أنساها ما حييت و لا يمكن رد الجميل إلا بالدعاء الطيّب لك و لعائلتك الكريمة
جزاك الله خيرًا و أراح نفسك و بالك مثلما أرحتني
خالص التحيات و أجمل الأمنيات
هذا هو المطلوب إنجازه بالضبط .. تمام و للحمد الحمد و الشّكر


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

الرد
#5
امين يا رب العالمين

الله يتقبل منا ومنكم صالح الاعمال 



الفضل لله واحده 
ولاخواننا في المنتدى الكريم من بعده



واشكرك على الدعاء الجميل والطيب


Heart  واشكر استاذي / أحمد منصور   Heart


على كل ما قدمه للمنتدى ولي خاصة في المنتدى وخارج المنتدى

ولي الشرف اني تتلمذت على يديه  بارك الله له في علمه وعمله.
الرد
#6
وعليكم السلام ورحمة الله وبركاته

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

- تحياتي لكما .
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 70 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 147 13-09-20, 03:57 AM
آخر رد: مصمم هاوي
  مشكلة عدم الكتابة في خلية الفليكس جريد awidan76 12 701 09-08-20, 11:32 AM
آخر رد: awidan76
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 166 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 385 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  السّلام عليكم و رحمة الله و بركاته بخصوص الداتا جريد mhareek 2 259 16-07-20, 03:30 PM
آخر رد: mhareek
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 233 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor
  مشكلة في اضافة الي قاعدة بيانات اكسس ahmed250 0 212 13-06-20, 10:27 AM
آخر رد: ahmed250
  نسخ بيانات من جدول إلى جدول بشرط مصمم هاوي 3 391 24-03-20, 11:01 PM
آخر رد: مصمم هاوي
  [vb6.0] رسالة خطأ ارجو منكم الحل ahmed20 3 314 21-03-20, 05:04 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم