[2003amin]

فى معظم قواعد البيانات يوجد سجلات تريد جمعها مثل معرفه مجموع سجل التكلفه او عدد الايام التي عملها الموظف فى الشهر او مجموع المواد الداخله للمخزن فى اليوم ومجموع سعرها واشياؤ كثيره اخري


اولا يجب ان يكوم مشروع الفيجوال بيسك محفوظ فى نفس مكان قاعده البيانات الاكسس

 

Dim db As Database

Dim rs As Recordset

Dim tot As Double

Set db = OpenDatabase(App.Path & "\rate.mdb") 'اسم قاعده البيانات

Set rs = db.OpenRecordset("table name", dbOpenTable) 'اسم الجدول

tot = 0

If rs.RecordCount > 0 Then

   rs.MoveFirst

   While Not rs.EOF()

       tot = tot + rs!record_name 'اسم السجل المراد جمعه

       rs.MoveNext

   Wend

End If

Text1.Text = tot

If rs.RecordCount > 0 Then لو عدد الحقول فى السجل اكبر من صفر اذا
rs.MoveFirst  اذهب للحقل الاول
tot = tot + rs!record_name
 rs.MoveNext
ااجمع الثابت على السجل الاول ثم اذهب للسجل الثاني  
Not rs.EOF()
بشرط الا يكون هذا السجل هو الاخير