كيف يتم جمع الأرقام الموجودة في حقل ما .........؟؟؟؟؟؟؟

اخي الكريم هذا هو الحل

MsgBox CDbl(Text1.Text) + CDbl(Text2.Text)

نضيف صندوقي نص text box ونخليهم مخفيين

ونستخدم الكود التالي

text1=0
text2=0

dim tot as Double
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Do Until rs1.EOF = True
Text1 = Val(rs1![اسم الحقل])
Text2= Val(Text1) + Val(Text2)
rs1.MoveNext
Loop
tot=Val(Text2)
MsgBox "المجموع = " & tot, vbOKOnly + vbExclamation + vbDefaultButton1 + vbApplicationModal + vbMsgBoxRight + vbMsgBoxRtlReading

End If

هلا بك أخي hnhn بس ليس هو المطلوب .... وشكرا لك

أخي ثموري مشكور ... وتقريبا هو المطلوب .. بس لو توضح لي معنى rs1 لأن الخطأ يطلع لي في هذ الجملة

If rs1.RecordCount > 0 Then

هل تريدrs1 تعريف في الجنرال أم مذا بالضبط... وشكرا لك

الكلمة rs1 هي عبارة عن متغير من نوع سجلات Record, وسيكون التعامل مع السجلات من خلال هذا المتغير . طريقة تعريفه كالتالي

أولا يجب أن تضع مرجع التعامل مع قاعدة البيانات أما ADO أو DAO

بعد ذلك يجب تعريف المتغير على أساسه كالتالي بأعلى محرر الكود كالتالي :

Dim RS1 As Recordset

والجملة التالية

rs1.RecordCount

الكالمة RecordCount هي خاصية للمتغير RS1 وتعني عدد السجلات

الجملة التالية

If rs1.RecordCount > 0 Then

تعني أذا عدد السجلات أكبر من صفر أذن

وأنت كمل ...... ;)

عذرا اخ salehr3 لم انتبه للسؤال جيدا واذا لم تحل مشكلتك سأعود لأضع لك الحل

اخي الكريم ماهي الطريقة التي تستخدمها للربط مع قاعدة البيانات ؟

هل تستخدم data أم ADO أم Adodc ?

الطريقة لم تنفع بسبب الخطأ في هذ الجملة If rs1.RecordCount > 0 Then بالرغم معرف rs1 في الجنرال

أخي ثموري .... طريقة الربط التي أستخدمها هي ...data

أرجو وضع لي مثال حتى أتمكن من معرفة الخطأ ...

وحتى الورة تكون واضحه لكم .. عندي حق في قاعدة البيانات بإسم numb وهذا الحقل فيه سجلات تقريا 100 وكلها أرقام .. أريد لم أضغط على زر الجمع يعطي جمع جميع السجلات ... ويطلع الجمع داخل رسالة msgbox

السلام عليكم ورحمه الله وبركاته

أخى الكريم جرب هذا الكود ربما يكون هو المطلوب

Select Sum(NumB) From Table

هذه هى جمله الأستعلام التى سوف نستخدمها حيث ان عوضت عن أسم الجدول بـ Table

وبما أنك تستخدم DataControl سوف تكتب الكود بهذا الشكل

Data1.RecordSource = "Select Sum(NumB) As SumX From Table"
Data1.Refresh
Msgbox Data1.RecordSet("SumX")

أرجو ان يكون هذا هو المطلوب

جرب هذا سوف يقوم باللازم إن شاء الله :

Text1 = 0
Text2 = 0

Dim tot As Double
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF = True
Text1 = Val(Data1.Recordset![numb])
Text2 = Val(Text1) + Val(Text2)
Data1.Recordset.MoveNext
Loop
tot = Val(Text2)
MsgBox "المجموع = " & tot, vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal + vbMsgBoxRight + vbMsgBoxRtlReading

End If

المثال السابق باعتبار ان الاداة اسمها data1

هلا أخي GENIUS-IT قد عملت كما قلت بس يطلع لي الخطأ في Data1.Refresh بس لو وضحت لي هل أعمل في الجنرال جملة الاستعلام ... ؟؟؟؟ وشكرا لك

أما بالنسبة للكود الذي وضعه أخي ثموري الحمد لله نجح 100 % وكان هو المطلوب ... شكرا لك أخي ثمورى