السلام عليكم إخواني
ممكن التعديل على هذه الوحدة النمطية لكي تحسب كافة السجلات مرة واحدة بمجرد الضغط على CommandButton1
Private Sub CommandButton1_Click() 'استدعاء دالة الرقم الإستدلالي If TextBox1.Value > 0 Then a = TextBox1.Value Else a = 0 If TextBox2.Value > 0 Then b = TextBox2.Value Else b = 0 d = ind(a, b) c = ind(a, 0) TextBox3.Value = d TextBox4.Value = c End Sub
حيث انها في برنامجي تحسب كل سجل لوحده فقط
أرجو التعديل
وشكرا
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
شكرا لك أستاذة
ملاحظة : هل افعل نفس الدالة لتفريغ ماحسب في مربع النص TextBox03
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
كريمو2 كتب:
شكرا لك أستاذة
ملاحظة : هل افعل نفس الدالة لتفريغ ماحسب في مربع النص TextBox03
استخدم هذا الكود لإفراغ حقل المجموع الكلي
Private Sub CommandButton2_Click() 'تفريغ حقل المجموع الكلي
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tbl_De")
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs!TextBox03 = Null
rs.Update
rs.MoveNext
Loop
MsgBox "تم تفريغ حقل المجموع الكلي", vbInformation, "مبروك"
rs.Close
Set rs = Nothing
Set db = Nothing
End Subتم تعديل هذه المشاركة بواسطة zahrah في 12 فبراير 2014 في 21:52
استاذة نسخت الكود
ولكن يوجد مشكل كما في الصورة
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
اذا كان حقل المجموع الكلي هو حقل رقمي
فضع هذا بدل السابق
rs!TextBox03 =Null
بارك الله فيك أستاذتنا
دمت في مساعدة الجميع
الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم
هذا الموضوع مغلق.