أبو العقاب

أستاذ رجب تفضل المطلوب نقل المجاميع من الخلايا d7 في الملفات book1,book2,book3 وكلها في ورقة2 إلى الخلايا a1,a2,a3 في الملف book في الورقة 1 تفضل... Desktop.rar

بارك الله بك أخ رجب كود رائع لك كل تحية ولكن ولو اني ثقلت عليك هل يمكن اجراء التعديل السابق لاستيراد مجموعة بيانات لو تكرمت أخي الكريم

السلام عليكم أخواني الكرام لدي ملفان book1 ,book2 الملف book1 فيه مجموع بيانات والمجموع في الخلية d7 في ورقة2 سؤالي هو كيف أصل من book2 إلى الخلية d7 في ورقة2 من ملف book1 ولتظهر في الخلية a1 مثلا في ورقة1 في الملف book2 وان تغير المجموع في الخلية d7 من ملف book1 تتغير الخلية a1 من الملف book2 أي أن a1 من ملف book2 هي نفسها d7 من ملف book1 فهل هذا ممكن ؟؟؟ آمل أن يكون مرادي واضحا المرفق بين أيديكم Desktop.rar

بارك الله بك أبا خليل وحيّاك الله وصلت الفائدة أحيانا يتطلب الأمر أن تستخدم مفاتيح الكيبورد لتحل محل بعض الأوامر فمثلا للخروج من البرنامج قد يحتاج المبرمج الضغط على مفتاح esc بدل الأزرار على العموم أجدد شكري وبوركت

السلام عليكم ورحمة الله كما هو واضح أعلاه لو أن لنا زر أمر يقوم بمعاينة أو طباعة تقرير والكود هو 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

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