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


الملفات المرفقة
.rar   عدد الذكور و الإناث.rar (الحجم : 16.28 ك ب / التحميلات : 40)
الرد }}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 70)
الرد }}}
#4
السّلام عليكم و رحمة الله و بركاته
يوم كامل ضيّعته أخي SENDBAD100 من أجل هذين السّطريْن و أنا أضرب أخماسي بأسداسي بتجربة كل الوسائل
بارك الله فيك و لك و انعم عليك بالصحّة و العافية
باسم الله ماشاء الله .. ربّنا يبارك فيك و يزيدك من علمه و فضله .. أفضالك صدّقني لا أنساها ما حييت و لا يمكن رد الجميل إلا بالدعاء الطيّب لك و لعائلتك الكريمة
جزاك الله خيرًا و أراح نفسك و بالك مثلما أرحتني
خالص التحيات و أجمل الأمنيات
هذا هو المطلوب إنجازه بالضبط .. تمام و للحمد الحمد و الشّكر


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

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

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



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



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


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


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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 285 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 358 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  خطاء في الاضافة كيف الحل 0 113 10-05-23, 10:44 AM
آخر رد: allobaed

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


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