[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 


بالتوفيق