Accessna

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

أشكرك كثيرا أخي إكسير هذه أول محاولة وأنا متأكد أن الأفكار سوف تأتي تباعا التعديلات : - وضع الألوان بجدول Style - عمل وحدة نمطية لدالة تبديل الستايل - تم إضافة نموذج فرعي لفحص تأثير الدالة عليه مرفق المثال فقط دون مجلد الصور حتى نقلل من حجم المساحة على الموقع …

بارك الله فيك أخي إكسير ، فكرة جميلة هل تأذن لي في المساهمة في تطوير الفكرة وإعادة صياغة للكود بحيث يصلح لكل النماذج بخطوات أقل ؟

لصالحي يعني لصالح موقفي أن ما عملته أنا سليم وأنك أخطأت في حكمك المتسرع وهو "ليس المرة الأولى" أنا هنا لست بصدد منافستك فأنت خطير من يستطيع منافستك .. أستاذ كبير دمت بخير

مشاركتك الأخيرة أخ محمد لصالحي وليس لصالحك :D

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

لا أدري ما أقول يا أخ محمد هل الكود الذي عمله الأخ مفرج ابتداء كان للهجري والميلادي أم للهجري فقط ؟ وإذا كان للهجري لماذا عرضت مشكلة فبراير يعني شهر ميلادي ؟ على كل حال مثال آخر بعد التعديل وهو يستخدم دالة الأخ مفرج مع دالتي يعني 2 في 1 _____3.rar

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

لتحسين الأداء أنصح بالتالي : - استخدم نسخ mde - الوجهة يجب أن تكون على الأجهزة وليس على السيرفر يعني كل جهاز عليه نسخة وجهة مستقلة - عندما تكون السجلات كثيرة يفضل عمل استعلامات لسجلات أقل كمصادر للنماذج هذه النصائح ليست من مصادر معتمدة بل من واقع تجربة

المثال بعد التعديل _____2.rar

المثال بعد التعديل date_3.rar

المثال مرفق بعد التعديل حصلت مشكلة مع دالة البيزك Date() ولم أستطع معرفة السبب !! إضطررت أن أحذف المراجع غير المطلوبة ومع ذلك لم تنتهي المشكلة مما دعاني أن أعدل بالدالة واستخدم دالة Now() بدلا منها فهل يعرف أحدكم السبب ؟! أم هي مشاكل الإصدار 2000 دائما هكذا ! …

صممت دالة لإعطاء تاريخ بداية أي أسبوع مطلوب : Function GetStartDate(Optional Weeks As Long = 0, _ Optional DayOfWeek As VbDayOfWeek = vbSunday) As Date Dim wStart As Date wStart = Date - Weekday(Date, DayOfWeek) + 1 GetStartDate = wStart + Weeks * 7 End Functi…

ضع الدالة في وحدة نمطية واستدعها كالتالي : If Not Flag("2007/09/04") Then MsgBox "إدخال خاطئ أو خارج النطاق" End If

مع الإعتذار للأخ مفرج صممت دالة لفحص التاريخ وهي تصلح للميلادي والهجري لم أقم بتجربتها ولم أقم بإنزال الأمثلة المرفقة واعتمدت على فهمي للمشاركات الأربع الأخيرة Function Flag(ByVal StrDate As Variant) As Boolean Dim yy As Integer Dim mm As Integer Dim dd As Int…

إذا أذن لي الأخ مفرج بالتداخل سوف أفعل وأنا واثق أنه يملك الحل

نطاق التاريخ في الأكسس من سنة 100 إلى سنة 9999 وفي الأكسل من 1900 إلى 9999 علما أن الأكسل تقويمه يحتوي على خطأ من 01/01/1900 وحتى 29/02/1900 مما يتوجب معها تفادي استخدام هذه الفترة

وجدت لكم محول تقاويم يحتوي على 8 تقاويم بس مداها صغير جدا فقط يصل إلى 12 مليون سنة من تصميم أبو هادي http://abbashmd.googlepages.com/Calendar3_20070828.rar أدعوا لي

أعتقد أنك تحتاج إلى تبديل نوع قفل البيانات فمن خصائص النموذج هناك خاصية Record Locks تحتاج إلى تبديل القمية من : All Records إلى : Edited Record طبعا تحتاج إلى تبديلها في كل النماذج إلا إذا كان القفل مقصود عن سابق إصرار وترصد فتحتاج إلى استشارة المبرمج إن لم ت…

أرجو المعذرة من الجميع .. هذه دالة نموذجية بمعنى الكلمة حسب رأيي ولكم الرأي في النهاية Sub GetPeriod(ByVal stDate As Date, ByVal enDate As Date, _ yy As Integer, mm As Byte, dd As Byte) Dim TempDate As Date Dim m As Long 'للتبديل بين البداية والنهاية حال أن ال…