مرحبا يا معلمين
بصراحة انا بدي استفسر عن طريقة جمع قيم عددية بحقل كامل في قاعدة بيانات ... بمزيد من التوضيح اضرب مثالا
جدول به حقل واحد وبه مجموعة صفوف كل صف به قيمة عددية
المطلوب من خلال زر كوماند اعطاء مجموع تلك القيم جميعا واظهار مجموعها بمربع تكست !!
هل هذا ممكن ؟ ان كان ممكنا ارجو اعطائي رؤوس اقلام عن الكيفية لتساعدني في البدء
ولكم الشكر
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
حيث column هو الحقل المراد جمع القيم فيه، وTable هو الجدول.
علماً أنه هناك طرق أخرى ولكن أطول.
هذه الجملة خاطئة :wacko:
شكرا يا معلم
جاري التجربة ولي عودة
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
Abboodd كتب:Text1[color= #339933;].Text [color= #339933;]= [color= #0000ff;]"SELECT SUM(column) From Table"حيث column هو الحقل المراد جمع القيم فيه، وTable هو الجدول.
علماً أنه هناك طرق أخرى ولكن أطول.
صـــبـــــاح الــفــــــــــــــــــــــل :D
أكيد إنت تقصد إنه يفتح Recordset بالجملة دي والـ Text1 هيساوي قيمة الحقل الأول .. صح ؟
مثال على ذلك في الـ DAO
Set RS = DB.OpenRecordset("SELECT SUM(column) From Table", 2)ومثال آخر للـ ADO
RS.Open "SELECT SUM(column) From Table", DB, adOpenStatic, adLockOptimistic
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
فعلاً :) لا يمكنني وضع جملة Select للـText مباشرة، بس يعني المبدأ صحيح :lol:
هذه الجملة خاطئة :wacko:
شكرا الكم عبدو وتحدي
بس بصراحة ما زبطت معي او بالاحرى ما فهمت الكود وما عرفت استخدمو
ادرجت نموذج بالمرفقات اذا ممكن تفيدونا مع كتابة شروحات بسيطة للاكواد
وشكرا الكم
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
ها هو برنامجك بعد التعديل
ملاحظة للأخ تحدي، جرب الكود الذي أنت واضعه وستلاحظ أن ما سيطبعه هو False وليس المجموع، لأنك كتبت:
Text1 = IIf(IsNull(RS(0)),0,IsNull(RS(0))
فهنا في حال أنه ليس فارغاً، فإنه سيعطيك خالة IsNull والتي هي False
والله أعلم
بالنسبة للأخ شادي، هذا ملفك في المرفقات مع شرح على الأكواد
هذه الجملة خاطئة :wacko:
شكرا معلم عبدو
لكن لاحظت هناك خطا بالفورم اذ لا يوجد قاعدة بيانات
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
تقصد أنه لا يوجد أداة قاعدة بيانات، أنا أزلتها فباستعمال مكتبة ADO لم تعد تحتاجها، طبعاً يمكنك استعمالها وتعديل ما تريده، لكن نصيحة: حان الوقت للانتقال إلى ADO !
هذه الجملة خاطئة :wacko:
Abboodd كتب:تقصد أنه لا يوجد أداة قاعدة بيانات، أنا أزلتها فباستعمال مكتبة ADO لم تعد تحتاجها، طبعاً يمكنك استعمالها وتعديل ما تريده، لكن نصيحة: حان الوقت للانتقال إلى ADO !
بصراحة في مشروعي الحالي تورطت وانشات الاداة داتا وصار صعب استبدالها بعد كل الجهد المبذول
لكن صدقني يا معلم المشروع القادم رح انسى شي اسمو داتا وزي ما بتعرف يعني الواحد يبدا بالسهل ويتقدم
شكرررررررررررررررررررررررررررررررررا عبود
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.