[مصمم هاوي]

(01-11-21, 11:02 AM)ahmedabdelaliem كتب : السلام عليكم

اخي راجع نفس الفورم  
تم انشاء  زرار جديد باسم UpDate Total

راجع الكود وسوف تفهم 

ملحوظه تم انشاء جدول داخل قاعدة البيانات لان لا يوجد بها جداول

هذا هو نص الكود 

PHP كود :

Private Sub cmdUpdateTotal_Click()
Dim rsTotl As New ADODB.Recordset
Dim rsSaveTotl As New ADODB.Recordset
rsTotl.Open "select (TR1+TR2+TR3) as Tot from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
rsSaveTotl.Open "select total from tbl1 where id=1", DB, adOpenStatic, adLockOptimistic
If rsSaveTotl.RecordCount > 0 Then
rsSaveTotl.Fields(0).Value = rsTotl.Fields(0).Value
rsSaveTotl.Update
rsSaveTotl.Requery
MsgBox ("Data Saved"), vbInformation, "Data Saved"
End If
End Sub 


بالتوفيق

بارك الله فيك أستاذ أحمد عبد الحليم ولكن ليس هذا هو المطلوب
فالمطلوب هو تحديث بيانات الجدول TBL_Final2  حسب الاستعلام Q_Final2
ونلاحظ أن المجموع الكلي والمعدل والتقدير والنتيجة تم احتسابها في الاستعلام Q_Final2  حسب التوضبح التالي:
واسم الحقل المراد وضع المجموع الكلي هو: total
واسم حقل المعدل هو: FINAL
واسم حقل التقديـــر هو: takdeer
وأخيراً اسم حقل النتيجة النهائية للطالب هو: result

هذا هو المطلوب وليس كما تفضلت مشكوراً بجمع الدرجات، فهذا الأمر قد تكفل بها الاستعلام وإنما المطلوب فقط هو:
تحديث المجموع الكلي : total
وتحدبث  المعدل هو: FINAL
وتحديث التقديـــر هو: takdeer
وتحديث  النتيجة النهائية للطالب هو: result

تنبيه: ربما لإيظهران عندك الجدول  tbl_final2 والاستعلام Q_final2
لأنهما مخفيان

شاكراً لكم مجدداً تعاونكم البناء ونصائحكم القيمة