Hamdi Edlbi-khalf

مرحباً أخي المسألة حسب ما رأيت أعقد من ذلك فأسماء الملفات و مساراتها و الملفات المفقودة كلها لها دور في جعل الاعتماد على ملفات DLL أمراً غير مستحب . أما أن نضع متطلبات للتشغيل كالبرامج الكبيرة و الألعاب فهو أمر (( غير مقبول )) في حال كان العمل مجرد ملف إكسل أو قاعدة أكسس صغيرة للعمل في بيئة عمل مغلقة .

السلام عليكم في الملف وضعت الأمر مع الانتباه إلى إضافة المكتبة المناسبة من مكتبات vba . مع أني أنصحك أخي الفاضل بطريقة الأخ @Shivan Rekany و قد أجريت على المعادلة تعديلاً طفيفاً يمكن أن يكون ذا نفع لعملك ،فطريقته أسلم و لن تحتاج منك إلى إضافة المكتبات في كل مرة تشغل البرنامج على جهاز جديد و ما يعترض ذلك من صعوبات . ROUNDUP EXCEL FUNCTION - VBA.accdb

مرحباً أولاً أعتذر عن تأخري بالرد حتى الآن و لكن تمهلت بالإجابة ريثما أقوم ببحث إضافي . المشكلة في تطبيق هذا الأمر أن بعض النسخ( أوفيس و ويندوز) لسبب أو لآخر تفتقد بعض ملفات DLL أو أنها تحمل أسماء و مسارات أخرى . و في حالة ملفات EXE فقد تكون المكتبة المراد إضافتها لا تتوافق مع الملف . مما يسبب مشكلة أثناء إضافة المرجع و ينجم عنها قفل محرر الفيجوال مما سيضطر المستخدم إلى إجراء إصلاح للأوفيس . إن لصق الكود في محرر الفيجوال بيزيك و استدعائه بالأحداث ليس بالمسألة المعقدة و لكن معاناتي مع نسخ الأوفيس الناقصة و المختلفة (حتى تلك المشتراة عن طريق النت ) هي ما دعتني لطلب المساعدة. فالمسألة أكثر تعقيداً من إضافة مكتبة فحسب . كنت أتمنى أن يحظى السؤال باهتمام أكبر عدد من الخبراء ممن أنست منهم معرفة عميقة بملفات النظام و علاقتها بمكتبات الفيجوال ... - مع الشكر العميق للأستاذ @ابو ياسين المشولي على مساهمته القيمة و وقته الثمين - مما سيثري الموضوع أكثر ... فواحدة من أكبر مشكلات البرمجة كما مر معي : "PLATFORMS COMPATIBILITY " فلو كنت قادراً على تبديل نسخة الأفيس على جهاز أو اثنين فكيف بعشرات الأجهزة التي سيعمل البرنامج عليها ، أو على أقل تقدير عمليات جراحية لاستبدال ملف تالف أو تسجيل آخر مفقود أو البحث عن ثالث ضائع !! كنت قد هممت بتوجيه السؤال لأسماء محددة من رواد الموقع دون إهمال أي من رواده الأكارم إلا أن ذلك قد يدعو بعض الأعضاء من أصحاب الخبرة للإحجام عن المشاركة .

تعديل طفيف على طريقة أستاذي @Shivan Rekany تستغني فيه عن كون تنسيق الحقل FIXED IIf(Right$([Derece]-Fix([Derece]);1)>=0.001;Fix([Derece])+Mid$([Derece]-Fix([Derece]);1;4)+0.01;[Derece]) تقريب الى الاعلى للرقم الثاني بعد الفارزة2.accdb

الحل الأول ينجح في كثير من أعطال الويندوز و الأفيس .

من بعد إذن أستاذي @Shivan Rekany لكي تقوم بالمطلوب : ١- عرف المرجع microsoft excel و رقم الإصدار سيختلف بحسب نسخة الأوفيس ١٠-١٣-١٦.... من قائمة tool تبويب reference من محرر الفيجوال بيزيك . ٢- في الجدول الذي تقوم بالإدخال فيه اجعل الحقل الذي تريد أن تظهر به القيمة مدورة من نوع مفرد single و حدد عدد الفواصل العشرية فيه. ٣- اجعل في حدث ( في زر أو حقل أو ...) هذا الأمر ME.NAME_field = worksheetfunction.ROUNDUP([name_field2].value,NUM) استبدل المسميات بالشكل الذي يلائم قاعدتك و بين قوسي الدالة ضع اسم الحقل الذي تريد تدوير قيمته و بعد الفاصلة عدد المنازل العشرية التي تريد التدوير إليها ٣،٢٣ هنا ستكون المنزلة ٢ و هكذا * دعوة صالحة لي و لوالدي .

السلام عليكم أستاذي صاحب السؤال يبحث عن دالة في أكسس تعمل كدالة إكسل Roundup و هي على ما أعلم غير موجودة في الأكسس شأنها شأن Rounddown - ceiling -floor . لدى بحثي سابقاً وجدت أن الحل إما بإنشاء دالة تقوم بذات الوظيفة أو اللجوء إلى تعريف دالة إكسل . لكن طالما أن السؤال حظي باهتمامكم فلا بد أن هناك حلاً إبداعياً .

السلام عليكم ' إضافة صف ليكون فاصل صفحة Worksheets("Sheet1").Rows(1).PageBreak = xlPageBreakManual ' اختيار عمود ليكون فاصل صفحة Worksheets("Sheet1").Columns("a").PageBreak = xlPageBreakManual اجعل الأمر في مديول و اربطه بمفتاح عندها سيعيد فواصل الصفحات إلى ما كانت عليه . أما إن كنت تقصد حدود نطاق الطباعة فهو أمر آخر و الجواب على قدر السؤال .

مرحباً هذا يعتمد على نوع الأوفيس ٦٤ أو ٣٢ لن تحتاج إلى إعادة صياغة المشروع مع ٣٢ و لكن قد تحتاج إلى كثير أو قليل مع ٦٤ و أقله إضافة PTRSAFE في سطر الإعلان عن الأوامر ، و أما إذا كنت في مشروعك قد اعتمدت على بعض ملفات DLL ففي هذه الحالة قد تضطر إلى تعديل عند تغيير نظام التشغيل الذي تعمل ضمنه .

الحمدلله قد تم الأمر و لكن ... بأمر vba معقد بعض الشيء إذ لا توجد طريقة مباشرة لذلك .

بانتظار .. مساهماتكم الكريمة

... هل هذا الطلب يخرج عن حدود إكسل ؟

لقد جربت جميع الكلمات المفتاحية ذات الصِّلة و لا فائدة !!!

هل هناك بديل عن استخدام تذييل الصفحة بحيث يتم طباعة نص معين في الذيل يتكرر مع كل الصفحات بالتنسيق الملائم ؟

مبدئياً قمت بإضافة مسافة بادئة باستخدام & و علامتي تنصيص متباعدتين و لكن هذا لم يفِ بالغرض بالصورة المُثلى

السلام عليكم لقد بحثت عن جواب لسؤالي هذا في جوجل و في الموقع و لم أحصل على إجابة ربما لم أوفق بمفتاح البحث المناسب... و سؤالي كيف أجعل النص في التذييل و الرأس الأيسر و الأيمن يأخذ محاذاة توسيط باستخدام أمر ڤيجوال ؟ لقد وجدت الطريقة المناسبة للتحكم بحجم و نوع و تأثير الخط و توزيع النص على أسطر إلا أني لم أتمكن من إيجاد طريقة التوسيط . كما أني لم أضع مثالاً لأني أحتاج إلى الكود فقط . شكراً لكم إخوتي و أساتذتي الكرام .

السلام عليكم من بعد إذن الأستاذ الكبير @أبو آدم أخي إن كنت تستخدم الدالة في حقل ضمن جدول فالدالة ستكون بقيمة ساعة الحاسوب لحظة التسجيل و دون أية إضافات . و لكن الظاهر أنك تتكلم عن تطبيق الدالة في ورقة إكسل .

استخدم الدالة Dsum و اعتذر فلن أستطيع التعديل على ملفك .

بناء على البحث لم أجد إلا هذا الرابط https://forums.windowssecrets.com/showthread.php/141256-MS-Access-2010-Sub-report-totals-in-main-form و خلاصته It's impossible !!

أعتذر أخي ... لم أعرف ما هو المطلوب .. هل تريد أن تفتح التقرير من التقرير ؟

و لكن ليسمح لي أخي ابو ياسين .. ارجع و اكتب الشروط التي كنت كتبها سابقاً في استعلامك مرة أخرى و لكن ضعها في السطر الثاني بعد سطر and الذي كتبها الآن و أخبرني بالنتيجة .

مرحباً طالما أن الأستاذ @ابو ياسين المشولي دخل على الموضوع فقد حضر الماء ...

Like "*" & [Forms]![FrmForReport]![text0] & "*" أكتب الأمر بهذه الطريقة و سيعمل لديك المشكلة أنه ليس في نموذجك حقل باسم [ادخل التاريخ ]

السلام عليكم إذاً عمل لديك مع التنويه أني استثنيت شهر ١٢ فتكون المدة التي تظهر عند اختيار شهر ١٢ من ٢٥-١١ و لغاية ٣١-١٢ من نفس العام .

مرحباً الآن أقوم بإصلاح الأوفيس .... خلال بحثي وجدت عدة أسباب لهذا الخطأ لقد سبق ظهور هذا الخطأ آخرُ له علاقة بالمراجع . المهم ... الآن عرفت لماذا لا تضاف المراجع آلياً ؟ السبب الرئيسي هو عدم توافق المراجع مع جميع نسخ الأفيس أو نسخ الويندوز فيجب أن تكون إضافتها مدروسة لقد كانت هذه التجربة دليلاً على ذلك ! الأوفيس لدي 2010 و لكنه غير مفعل بعض الروابط اتهمت 2010 sp1 . أما أقرب التعليلات فهي : المشكلة في ملفات EXE و توافقها مع ملفات DLL