كل الانشطه

تسلم الأنامل .. عاداتك تتحفنا بزيادات واحتياطات .. ما هو انت بذاتك تحفة الاستعلام الأول هو المطلوب والثاني شامل وكامل بارك الله فيك وزادك علما ورفعة .

وعليكم السلام ورحمة الله تعالى وبركاته اتفضل يا والدى الحبيب و استاذى الجليل و معلمى القدير استاذ @ابوخليل الاستعلام الاول فقط ومنفردا سوف يلبى رغبتك تماما : ينفذ طلبك تماما --------------------------- والاستعلام الثانى: لحذف اى تأشير عن السجل الذي يحمل أحدث تاريخ لكل usrID يمكن استخدامه قبل او بعد الاستعلام الاول كإجراء تصحيح ان اردت لو تم اى تأشير عن طريق الخطأ أو ممكن عمل استعلام تحديث للتأشير على الكل والاستعلام الثانى يقوم بالمهمة المطلوبة مثلا - شغل الاستعلام الثالث اولا للتأشير على الجميع -ثم الاستعلام الثانى لحذف اى تأشير عن السجل الذي يحمل أحدث تاريخ لكل usrID النتيجة : testData -2.accdb

السلام عليكم الصورة أمامكم هي الجدول الوحيد في المرفق اريد التأشير على مربع الخيار (تجديد) كما يلي : يظهر في الصورة معرفات وتواريخ في سجلات المعرف 1 تواريخ ثلاثة اريد الابقاء على سجل واحد فقط بدون تأشير وهو التاريخ الأكبر ( ويتم التأشير امام السجلين الآخرين ) ومثله في سجلات المعرف 2 والمعرف 6 اما المعرفات 3 ، 4 ، 5 فتبقى كما هي بدون تأشير لأنها سجلات وحيدة احبتي .. افضل التحديث عبر استعلام .. ولا بأس بغيره testData.accdb

اخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق عند فتحه يظهر فورم به عند الضغط علي زر التقارير يظهر فورم عند اختيار الفصل الدراسي من القائمة ( الدور الثاني ) واختيار الفئة ( العليا ) واختيار الصف ( السادس مثلا ) محتاج عند الضغط علي زر ( جدول الامتحان ) يأتي جدول الامتحان للتلاميذ الذين لديهم دور ثان فقط وليس كل التلاميذ Data126.rar

ماشاء الله أعتقد أن المداخلات من @ابو جودي و @jjafferr قد أثرت الموضوع وغطت الطرق الأكثر عملية مع توضيح مزايا وعيوب كل طريقة ولكن وتوضيحا لكلام الاخ @ابو جودي انا استخدم طابعة إفتراضية تقوم بإستخراج التقرير كملف PDF وتعمل مثل الطابعة الحقيقة أما كلامك فمعناه أنك تستخدم الأمر DoCmd.OutputTo وهذا لايعتبر أمر طباعة وإنما امر لإستخراج الكائن بصيغة محددة بحالته كيفما تكون ولو لاحظت فإن الرسالة لاتظهر من الأساس فحدث عند عدم وجود بياتات أو On No Data الخاص بالتقرير يتطلب استخدام الأمر DoCmd.OpenReport حتى يتم تفعيله ولكن مثلما أسلفت فهذه المناقشات جميلة لنتعرف كلنا على الطرق المختلفة لحل المشاكل فقد يحتاجها أحدنا يوما ما مع تحياتي

اه حضرتك تقصد كود الوحدة النمطية العامة

احبتي في الله دام فضلكم في الاكسس يوجد طريقه لاستيراد الفورم والموديلات والجداول من ملف آخر فهل يوجد طريقه ما يمكن من خلالها استيراد فورم او موديول ومكرو من ملف آخر مثل الاكسس بحيث يمكن نقل او نسخ فورم أو ميكرو من ملف اكسل لملف آخر دون اللجوء الي السحب والافلات في محرر الاكواد تقبلو وافر احترامي وتقديري

انا عندي 3 خطوط (دفاعية) لفتح نموذج او تقرير: 1. الاستعلام ، ويكون مصدر البيانات ، ويكون فيه الفرز (للنموذج فقط ، بينما التقرير لا يحترم فرز الاستعلام وانما يجب عمله في التقرير مباشرة) والتصفية ، 2. وقد احتاج الى تصفية اخرى عند فتح النموذج/التقرير ، او اذا عملت على استعلام/نموذج/تقرير ، ولا احبذ تغيير الاستعلام (لأنه هناك نماذج/تقارير اخرى تعتمد عليه) ، هنا اعتمد على الفرز/التصفية عند فتح النموذج/التقرير ، 3. وفي حالات خاصة (جدا خاصة وجدا قليلة) ، اعتمد على وضع شروط عند فتح النموذج/التقرير في كود فتح النموذج/التقرير. فعليه : وفي جميع الحالات اعلاه ، عمل اخوي ابو جودي (لا يعمل في صيغة mde او accde ، لأنه لا يمكن فتح النموذج/التقرير في وضع التصميم) واخوي منتصر يعملان ، وفي بعض الاحيان كنت احتاج الى معرفة اذا هناك سجلات قبل طباعة تقرير (كان يتأخر في الطباعة) ، وكنت معتمد على الاستعلام كمصدر بيانات ، فكنت استعمل الكود التالي (والذي في اعتقادي هو اسرع من فتح التقرير وانتظار حصول الرسالة منه ، ولكن اذا كانت هناك سجلات ، فالتأخير يكون مرتين ، مرة للتأكد من عدد السجلات ، والمرة الاخرى في طباعة السجلات) : if DCount("*","Query Name")=0 then msgbox "لا توجد سجلات للطباعة" else docmd.openreport "Report Name" end if

وانا كذلك ، ولكن تبقى ايقونة الطباعة بقرب ساعة الكمبيوتر لثوان ، ثم تختفي. يقوم بحذف لملف السابق (إن وُجد) ، ولا يعمل ملف جديد بصفحة فارغة (انا كذلك اعطاني ايحاء ان الصفحة الفارغة تم طباعتها ، ولكني اكمل الخطوات ولم اجد الملف اصلا).

طبعا استاذى الجليل و معلمى القدير اتفق معك تماما تماما فى هذه النقطة انا فى عملى يا استاذى هناك تقارير اطبعها بشكل مباشر دون محاولة فتحها اساسا نظرا احيانا لضيق الوقت وكثرة العمل و و .... الخ ولكن طبعا انا متأكد من جميع المدخلات والمخرجات وانا على دراية تامة بالكودينج لان من كتابتى وطبعا مسبقا اعرف النتيجة التى سوف احصل عليها من الطباعة انا حدث معى هذا الأمر عندما حاولت تجربته فى احد الايام بعد ظهور الرسالة التىفيد بعدم وجود بيانات وفور اغلاق الرسالة تجد الطباعة تعمل جرب حضرتك الان تستخدم الطباعة الى ملف PDF سوف تجده يعمل بعد الرسالة ويقوم بطباعة ( حفظ كملف PDF) للتقرير كهيكل لمحتوى التصميم والعناصر بدون اى بيانات

لا المسألة مش مسألة إن الكود فيه مشكلة انما أنا فكرت في الموضوع من منظورين آخرين الأول طالما وتوجد طريقة أسهل وتنفذ المطلوب لما لا نستفيد منها الثاني الطبيعة البشرية فعلى طول مشاوري في العمل مع الأنظمة لم أجد مستخدم واحد يطبع تقرير بدون مايفتحه في وضع المعاينة وطباعته من هناك وكأنه يريد الإطمئنان على شكل ومحتوى التقرير قبل طباعته أنا لم يحدث معي هذا الأمر فبمجرد اغلاق رسالة التنبيه تلغى عملية الطباعة عموما الإختلاف في الرأي لايفسد للود قضية في الأخير كلها أفكار تصب في مصلحة أعضاء المنتدى فمن خلالها يمكنهم التعرف على كل البدائل الممكنة للعمل بما يلائمهم منها أو حتى أنهم قد يخرجون منها بأفكار أخرى جديدة مع تحياتي

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

لم اجد ابحث عن "Microsoft Office XX.0 Object Library"

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

افتح محرر VBA (اضغط Alt + F11 ) انتقل إلى قائمة Tools > References ابحث عن "Microsoft Office XX.0 Object Library" (حيث XX يعتمد على إصدار Office الخاص بك- مثل 16.0 لـ Office 2016 أو 365)

السلام عليكم عند الضغط على زر الصورة يظهر خطا في الوحدة النمطية اليكم الصورة Nouvelle image bitmap.bmp

وعليكم السلام ورحمة الله وبركاته 🤗.. لو استخدمت خاصية البحث في المنتدى ، لكنت وجدت الكثير من المشاركات التي تناولت نفس الموضوع ، منها :-

ههههههههه خليها سر ، مش حقولك إزاي 😎

وعليكم السلام ورحمة الله وبركاته .. حاول استخدام المعادلات لسهولتها عليك ، على سبيل المثال ، في الجزء الأول للطرح والنتيجة بين التاريخين :- في النتيجة للأيام :- =DATEDIF(R16, O16, "md") في النتيجة للأشهر :- =DATEDIF(R16, O16, "ym") في النتيجة للسنوات :- =DATEDIF(R16, O16, "y") أما في الجزء الثاني من جمع قيم الى تاريخ للحصول على تاريخ جديد ، استخدم المعادلة التالية :- =DATE(YEAR(O28) + T28, MONTH(O28) + S28, DAY(O28) + R28) أو هذه المعادلة :- =DATE(YEAR(O28) + T28 + INT((MONTH(O28) + S28 - 1) / 12), IF(MOD(MONTH(O28) + S28, 12) = 0, 12, MOD(MONTH(O28) + S28, 12)), DAY(O28) + R28) جرب النتيجة وأخبرنا بها ، في ملفك المرفق التالي :- جمع_.zip

تفضل الملف جاهز طرح الأيام =DATEDIF(R16;O16;"MD") طرح الشهور =DATEDIF(R16;O16;"YM") طرح السنوات =DATEDIF(R16;O16;"Y") لجمع السنوات =DATE(YEAR(O28) + T28; MONTH(O28) + S28; DAY(O28) + R28) جمع (2).xlsx

معاك انت و مخافش طب ازاى

نزلته فعلاً ، بس والله ما جربته .. متخافش على رزقك 😂

ما سمعت لك صوت يعنى يا استاذ @Foksh ولا شوفت لك تعليق ع المرفق الاخير

لا انا مش زعلان بس انا علشان مش عندي طابعة فكرت المشكله فى الكود بتاعى

السلام عليكم اريد ان يعمل البرنامج على جميع مقاسات الشاشات مع ملاحظة انى استخدم ويندوز 10 اوفيس 2019 64 بت عن طريق وحدة نمطية ثم استدعيها داخل النموذج المراد التطبيق عليه جزاكم الله خيرا