المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
03-09-15, 07:44 PM
(آخر تعديل لهذه المشاركة : 03-09-15, 07:46 PM {2} بواسطة alfakeehy.)
السلام عليكم ورحمة الله وبركاته
اسعد الله جميع اوقاتكم بكل خير وسلامة
اخواني عباقرة هذا الصرح
عندي مشكله بسيطه واتمنى منكم التكرم بحلها
ارغب بجمع ارقام بداخل جدول قاعدة البيانات اكسس ويظهر الناتج في تكست
تحياتي لكم
اعتذر على عدم التوضيح
طبعا عمود واحد فقط في قاعدة البيانات
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
بشرط يكون نوع الحقل رقم
select sum(field) as total from Table
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
الف شكر لك اخي
بس ياليت تعطيني الكود كامل اللي احطه في الكومند
او تعطيني ناتج جمع مابداخل الداتا قريد
انا حطيت هذا الكود بس للاسف مايجمع لي كامل الارقام اللي داخل عمود في الداتا قريد
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
تحياتي لك واشكرك على تواضعك وردك على استفساري
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
عبي الطلب ادناه :-D
كود الاتصال بقاعدة البيانات
اسم القاعدة:
اسم الجدول:
اسم الحقل المراد جمع بياناته
-------------------------------
عملينا العزيز الان تمتع بعروض سوى
ههههههههههههههههههههههههههههههههههه
بانتظارك وانا اخوك عشان ما تتوه مني
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
03-09-15, 09:25 PM
(آخر تعديل لهذه المشاركة : 03-09-15, 09:30 PM {2} بواسطة alfakeehy.)
الله يسعدك ياغالي
هههههههههههه
وتسلم لي الف الله يرحم لي شيبانك ولا يهينك
انا بجرب وراح ارد عليك او اني ارفق المثال كامل
يعطيك العافيه اخي
الاتصال بقاعدة البيانات
Set DB = OpenDatabase("salem2.mdb")
اسم الجدوال
Set Rs = DB.OpenRecordset("db2")
اسم العموود او الحقل
NN
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
الله يحفظك
Rs = DB.OpenRecordset("select sum(NN) as Nm from db2")
MsgBox(Rs()!Nm)
جرب ورد لي علم
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
03-09-15, 09:41 PM
(آخر تعديل لهذه المشاركة : 03-09-15, 09:50 PM {2} بواسطة alfakeehy.)
ابشر ياغالي
الله يرحم لي والديك ولا يهينك
رفض والله برضه خطأ
المشاركات : 64
المواضيع 10
الإنتساب : Nov 2014
السمعة :
0
الشكر: 63
تم شكره 208 مرات في 23 مشاركات
الله يرحم لي شيباانك
لحظه بس اصلحه واعطيك المثال لبى قلبك