السلام عليكم ورحمة الله وبركاته
اسعد الله جميع اوقاتكم بكل خير وسلامة
اخواني عباقرة هذا الصرح
عندي مشكله بسيطه واتمنى منكم التكرم بحلها
ارغب بجمع ارقام بداخل جدول قاعدة البيانات اكسس ويظهر الناتج في تكست
تحياتي لكم
اعتذر على عدم التوضيح
طبعا عمود واحد فقط في قاعدة البيانات
بشرط يكون نوع الحقل رقم
select sum(field) as total from Table
الف شكر لك اخي
بس ياليت تعطيني الكود كامل اللي احطه في الكومند
او تعطيني ناتج جمع مابداخل الداتا قريد
انا حطيت هذا الكود بس للاسف مايجمع لي كامل الارقام اللي داخل عمود في الداتا قريد
Dim x As Integer
For x = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Col = 1
DataGrid1.Row = x
Text5.Text = Val(Text5.Text) + Val(DataGrid1.Text)
Next
تحياتي لك واشكرك على تواضعك وردك على استفساري
عبي الطلب ادناه :-D
كود الاتصال بقاعدة البيانات
اسم القاعدة:
اسم الجدول:
اسم الحقل المراد جمع بياناته
-------------------------------
عملينا العزيز الان تمتع بعروض سوى
ههههههههههههههههههههههههههههههههههه
بانتظارك وانا اخوك عشان ما تتوه مني
الله يسعدك ياغالي
هههههههههههه
وتسلم لي الف الله يرحم لي شيبانك ولا يهينك
انا بجرب وراح ارد عليك او اني ارفق المثال كامل
يعطيك العافيه اخي
الاتصال بقاعدة البيانات
Set DB = OpenDatabase("salem2.mdb")
اسم الجدوال
Set Rs = DB.OpenRecordset("db2")
اسم العموود او الحقل
NN
الله يحفظك
Rs = DB.OpenRecordset("select sum(NN) as Nm from db2")
MsgBox(Rs()!Nm)
جرب ورد لي علم
ابشر ياغالي
الله يرحم لي والديك ولا يهينك
رفض والله برضه خطأ
الله يرحم لي شيباانك
لحظه بس اصلحه واعطيك المثال لبى قلبك
اسف اخي على التاخير بس جلست اصلح فيها
تعرف عليمي الله يحفظك والنت عندي تعبان الله يكرمك
هذا المثال اخي
طبعا انا حطيت كود جمع الداتا قريد في الفورم لود
طبعا انت لو تلاحظ ان ناتج الجمع طلع خطأ
ابغى ناتج جمع الداتا قريد يكون صحيح
وكذلك جمع عمود في جدول القاعدةابغاها على مثالين لو تكرمت
تحياتي وامتناني لسموكم الكريم
[
attachment=7782]