أبو العقاب

السلام عليكم ورحمة الله كما هو واضح أعلاه لو أن لنا زر أمر يقوم بمعاينة أو طباعة تقرير والكود هو Private Sub print_Click() On Error GoTo Err_print_Click Dim stDocName As String stDocName = "re1" DoCmd.OpenReport stDocName, acNormal Exit_print_Click: Exit Sub Err_print_Click: MsgBox Err.Description Resume Exit_print_Click End Sub كيف أجعل كبسة الكيبورد f12 مثلا تقوم مقام ذلك الكود وبارك الله بالجميع

بارك الله بك أخ بن علية وجعله الله في ميزان حسناتك وبارك الله بالأخوين الحبيبين أبا حنين وعباد وأدامكم الله لما فيه الخير للأمة للجميع أجمل تحية هو الحل المطلوب

بارك الله بك أخ عباد وحياك الله لكن ما تفضلت به هو عينه ما تفضل به الأخ أبو حنين ما أريده هو أن يأتي أسفل البيانات في ورقة واحد المجموع وأسفل البيانات في ورقة 2 المجموع وهكذا لأنه تخيّل لو أنه لديك 100 ورقة وأردت حساب المجموع لكل ورقة فهذه العملية تكون طويلة فلا بد من طريقة لحساب المجموع لكل ورقة في ورقتها بكبسة واحدة .

بارك الله بك أبا حنين ولكن ما أريده هو أن يأتي المجموع أسفل كل عمود لو تكرمت

أخواني الكرام هذا موضوع شبيه في موضوع سابق كتبته ولكن... لو كان لديك صفحات كثيرة(شيتات) والعمود b من كل صفحة فيه بيانات وأردت حساب مجموع كل عمود في كل شيت بكبسة واحدة هل يمكن ذلك وأرفق لكم مثال يرحمكم الله Book1.rar

بوركت أخي محمود لك كل تحية

بارك الله بك أخ عباد وجعله الله في ميزان حسناتك

أخواني الكرام لنفرض أنه لديك عدة أوراق ، ورقة 1 ، ورقة 2 ، ورقة 3 ، ورقة 4 ....................... وفي كل ورقة مجموعة بيانات أريد إظهار آخر قيمة في كل عمود إلى شيت آخر ففي المرفق مثال ورقة1 آخر قيمة في العمودb هي 53 ورقة2 آخر قيمة في العمودc هي 22 ورقة3 آخر قيمة في العمودd هي 11 ورقة4 آخر قيمة في العمودe هي 6 ويوجد شيت اسمه (آخر قيمة) أريد أن ترسل آخر القيم من كل عمود في شيت إلى ذلك الشيت (آخر قيمة) آمل أن يكون مرادي واضحا Book1.rar

موضوع رائع بارك الله بالجميع

طريقة رائعة بالفعل بارك الله بك

عمل رائع بارك الله بكم

بارك الله بك

ما شاء الله عمل رائع

تسلموا يا غاليين شكرا على البرنامج الرائع يا أخ طالب علم مبتدئ

أخواني الأحباء أطلب منكم الجملة التالية أريد جمع حقلين الأول اسمه a والثاني b مثلا من خلال جملة sql داخل محرر الفيجوال بيسك أعرف أنه docmd.runsql" ولكن ماذا بعد حاولت الكتابة select sum((a)+(b)) from t1 حيث t1 اسم الجدول ولكن لم أفلح بحيث يأتي المجموع بعد تحديث أي حقل من الحقلين السابقين وبارك الله بكم

حيّاك الله أخ أحمد هيك زبطت مية مية لك كل تحية

أخي أحمد أشكرك على متابعتك للموضوع أظن أنني توصلت للحل وبإمكانك التأكد وهو وضع الكود السابق (في المشاركة 9) في حدث بعد التحديث للنموذج ولكن ظهرت لي مشكلة وهو عند كل بحث تظهر رسالة " أنت على وشك تحديث صفوف ..." هلا نتعاون لحلها؟؟ تابع المرفق يرحمك الله ملفي.rar

الله الله ما هذا !! عمل رائع أبا خليل

الخلل هو أنه عند كل بحث ضع المؤشر على الحقل الذي اسمه n يتم الانقاص ولمن يرغب في تعديل ذلك فلا يبخل علينا جرب البحث وضع الؤشر على الحقل n وجرب النتيجة

توصّلت للحل من الأستاذة زهرة وكان الحل هو وضع الكود التالي في زر تحديث DoCmd.RunSQL "UPDATE tb1 SET tb1.count2 = [Forms]![frm1]![count2]-1 WHERE (((tb1.n)=[forms]![frm1]![s]))" وإليكم الملف للاستفادة منه وبارك الله بكم على محاولاتكم الطيبة والمباركة za-ملفي-UP2.rar

ولكن ألا تلاحظ أنه في كل بحث يحسب المجموع التراكمي لم لا يحسب الانقاص التراكمي؟؟؟

أخي الكريم Bluemind أشكرك وأشكر من تفاعل وسيتفاعل مع هذا الموضوع لنفترض أن الزبون اشترى كمية 1 من السلعة التي رقمها 111 وتم طباعة التقرير بالمشتريات وانتهى الأمر إذا الكمية المتبقية 10 - 1 = 9 تمام جاء زبون آخر نضغط زر تحديث ثم اشترى الزبون الآخر من السلعة التي رقمها 111 إذا هذه المرة تكون الكمية المتبقية 9 - 1 = 8 وهكذا ...........

أخي الكريم أحمد أشكرك وأحييك أولا : لم عطلت زر التحديث ، وأصبح المجموع التراكمي والانقاص التراكمي بدون الزر( أي أن الزر لا يعيد البحث من جديد) ثانيا : ما هو غير المنطقي في البرنامج؟؟! ثالثا : الكود التالي تم وضعه في حدث بعد التحديث لحقل البحث (a) gt = Nz(gt, 0) + Nz(Me.sum1, 0) b = gt وهو يحسب المجموع التراكمي داخل الحقل b بعد تعريف gt كيف نعدّل ذلك الكود ليحسب الانقاص التراكمي داخل الحقل qu أظن ان المسألة ليست صعبة وأشكرك ثانية أخي أحمد

صعب؟؟؟؟

السلام عليكم أحبائي احتجت لعملية المجموع التراكمي ووجدت الحل من مثال لأحد الأخوة وطبقته على برنامجي والحمد لله حلّت المشكلة ولكن حاولت التعديل ليشمل الانقاص التراكمي فلم أفلح في المرفق برنامج مبيعات والبحث برقم السلعة لو أدخلت الرقم 111 تظهر المعلومات اسم السلعة : تمر وكذلك سعرها والكمية و... وعند الضغط على زر تحديث تبدأ عملية البحث مرة أخرى ما أريده هو : لو أدخلت الرقم 111 تظهر كمية السلعة 1 والكمية الموجودة 10 إذا المتبقية 9 لو عاودنا البحث بعد الضغط على زر تحديث وأدخلت الرقم 111 أريد أن تكون الكمية المتبقية 8 أي أن يتم الانقاص من المرة السّابقة للبحث ( لأن الكمية المتبقية من البحث السابق 9 إذا يجب أن تكون في المرة التالية 8) بمعنى : كل عملية بحث بعد الضغط على زر تحديث يتم الانقاص وآمل أن يكون مرادي واضحا أخوتي ملفي.rar