حارث

..

أود منكم المعذرة حيث سأضطر للانقطاع عن هذا المنتدى فترة قد تطول جدا. وذلك رغبة في مزيد من التفرغ لرسالة أكاديمية أعدها ، فقد ضاق علي الوقت فيها وبقي علي منها الكثير مما لم أنجزه. وأعتذر إن كان هنالك شيء من المواضيع المعلقة التي لم أتمها أو وعدت بها ، وفي أساتذ…

أخي أبو هادي : جزاك الله خير ونحن في الانتظار . ==================================== ==================================== أخي أبو صفاء المثال الذي وضعته يعطي نتائج غير صحيحة كما لو جعلت التاريخ اللاحق سنة إلا 3 أيام من التاريخ السابق . وبرفقه نفس المثال مع إضا…

أخي أبو هاجر حقيقة أثبتت الدالة التي وضعتَها أنها دقيقة ، وقد استعنت بها في تصحيح الدالة الأخرى التي أضفتُها حيث وجدت فيها خطأ لم أتنبه له . ومرفق المثال بعد التصحيح وأتمنى من الإخوة المشرفين حذف المثال السابق المسمى 2agecode. حيث إن الكود الثاني فيه غير صحيح …

راجعت الدالة وهي دقيقة جدا. ومن باب التنويع وضعت أيضا كود أبي هادي (حساب العمر) ، وأضفت إليه إضافة بسيطة تتمثل في مراعاة عدد أيام الشهر السابق لشهر التاريخ الثاني - إذا رغب المستخدم في ذلك - ، حيث إن الدالة - كما أُريدَ لها - تفترض دوما أن عدد أيام الأشهر كلها…

موضوع مقارب في الإرشيف : *كود* كود بسيط لحساب العمر من ستة حقول http://www.arabteam2000.com/vb/showthread....=&threadid=3719 خلاصته في المثال التالي : http://www.pcpages.com/harith77/agehdy.zip

نعم نسيت الحفظ : Dim mdl As Module Set mdl = Application.Modules("ModuleName") mdl.ReplaceLine LineToRepLace, NewString DoCmd.Save acModule, "ModuleName" أما الفتح فعمل الكود بدونه وفي انتظار ملاحظاتك وتصحيحك

أو اصنع شريط أدوات جديد واجعل نوعه شريط قوائم ثم اذهب إلى أدوات - بدء التشغيل واجعل شريط الأدوات الجديد هو شريط القوائم ، ثم أزل علامة الصح من الخيارات المتعلقة بأشرطة الأدوات والقوائم حسب ما تريد .

هذا كود متواضع لتحويل التاريخ إلى خلاف التقويم المستخدم في القاعدة أي أنك إذا كنت تستخدم التقويم الميلادي فسيحول إلى التاريخ الهجري ، والعكس علما بأنه سبق طرح أكواد أكثر احترافا وأكثر تنويعا في الاستخدام في هذه المنتديات . Function anotherCal(ByVal InDate As V…

بعد إذن أستاذنا أبو هاجر لاستبدال سطر في الوحدة النمطية بسطر جديد : Dim mdl As Module Set mdl = Application.Modules("ModuleName") mdl.ReplaceLine LineToRepLace, NewString استبدل ModuleName باسم الوحدة النمطية لديك استبدل LineToRepLace برقم السطر المطلوب استبدا…

بعد إذن أستاذنا محمد : اعمل استعلام جديد مصدره الجدول الذي لا تريد التغيير في بياناته . وذلك لتتعامل معه بدلا من الجدول . وفي خصائص الاستعلام (في القائمة عرض - خصائص ) اجعل نوع مجموعة السجلات : لقطة (snapshot ).

"حدث عند الفتح يتم تنفيذه في كل مرة تعيد فيها فرز البيانات" فائدة كنت بحاجة إليها جزاك الله خير

نعم صحيح . لكن لما حذفت أيضا مربع النص TxtPages لم يعمل الكود

أستاذنا أبو هادي ما قصدته هو ما في المثال المرفق وأعتذر عن التأخر في إرفاقه حيث لم يكن في جهاز البيت وإنما في جهاز آخر لم يكن قريبا مني وقتها . طبعا هي أكثر بطئا من الطريقة التي نتبعها حاليا ، لكنها مجرد فكرة خطرت لي منذ مدة وحاولت تجربتها وقتها وكانت النتيجة …

بالاستفادة من الموضوع : معرفة عدد صفحات كل مجموعة http://www.arabteam2000.com/vb/showthread....&threadid=21985 تمكنت من التوصل لحل في المثال المرفق lastline22.zip

نسيت إرفاق المثال الذي يوضح المشكلة pagespr2.zip

جزاك الله خير وجعل ذلك في موازين حسناتك لكن لدي إشكال لم يعمل الكود بشكل صحيح معي حتى استبدلت السطر : If Me.Pages = 0 Then بـ : If Me.TxtPages = 0 Then حيث TxtPages هو مربع نص مصدر عنصر التحكم فيه هو =[Pages] يعني حدث PageFooter_Format عندي يعتبر مجموع الصفحات…

نعم ، وأظن الموضوع يشابه نوعا ما الموضوع التالي : حدث عند الطباعة لمقطع التفصيل لكن بشرط أن يكون في الصف الأخير من الصفحة فقط http://www.arabteam2000.com/vb/showthread....&threadid=21672 وذلك من حيث سبب عدم الإمكانية سبق أن فكرت في حل لكني لم أطبقه : أن يتم وض…

أخي أبو هادي بالمناسبة لقد جربت مرة أن أضع تقويم أم القرى في وحدة نمطية بدلا من جدول ، حتى لا يتم تحميله في الذاكرة ، كانت مجرد تجربة ، ووجدت معها أنه لا بأس بسرعة التحويل مع هذه الطريقة ، لكن طبعا طريقة التحميل في الذاكرة أسرع ، وإن كان الفارق مقبولا جدا مقاب…

أخي أبو هادي لا حاجة للاعتذار . فمشاركتك دوما تثرينا . أخي المسعودي : في المثال الذي أرفقته تجد أن هناك استعلام تم فيه توحيد الجداول الثلاثة سميته "استعلام توحيد للجداول الثلاثة" ، عليك - بعد تغيير اسمه- أن تجعله مصدر الصف لمربع التحرير والسرد المسمى Combo24 ف…