أبو هادي

السلام عليكم يمكن التخلص من المشكلة باستخدام دالة IIf Result = IIf(X=0,0,Num/X) تحياتي .

السلام عليكم مثال أخي فهد الدوسرى بعد تطبيق ملاحظاتي أعلاه . تحياتي . NetServicePeriod.rar

السلام عليكم مثال مرفق للتحويل عن طريق الكود . تحياتي . HijriToGreg.rar

السلام عليكم الأخ فهد الدوسرى .. لم أرى أي ملاحظة على تعديلك ، فالفكرة صحيحة 100% . ملاحظات : - أنا ضد استخدام حقول نصية للتاريخ . - يوجد أكواد تقويم القرى متاحة للجميع وكل دوال التاريخ الخاصة به ، فلماذا نتركه ونلجأ لتخزين التواريخ بهذه الطريقة ؟. - ما يمكن استنتاجه لا داعي لتخزينه ، إلا إذا كان الجدول للتجارب فقط ، ربما . - للإحتراز يمكن تبديل التقويم إلى هجري قبل استخدام دالة DateDiff ، وهناك أمثلة كثيرة لكيفية تخزين التقويم ثم التبديل ثم العودة إلى التقويم الإفتراضي . تحياتي .

السلام عليكم موضوع جميل (y) والتعديل كالتالي : Private Sub Sex_AfterUpdate() If Me.Sex = "انثى" Then If Right(Me.Nat, 1) <> "ة" Then Me.Nat = Me.Nat & "ة" Else If Right(Me.Nat, 1) = "ة" Then Me.Nat = Left(Me.Nat, Len(Me.Nat) - 1) End If End Sub Private Sub nat_AfterUpdate() Call Sex_AfterUpdate End Sub تحياتي .

السلام عليكم الأخ علاوي .. تستطيع رفع مثالك عن طريق هذا القسم : قسم مؤقت لتحميل الملفات الي الموقع للاعضاء] حاول أكثر من مرة حتى تنجح . :( تحياتي .

السلام عليكم الأخ علاوي .. إرفع مثالكم إلى المنتدى ؟ حتى أستطيع فهم المطلوب جيدا . تحياتي .

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

السلام عليكم مثال آخر لاستخدام تقويم أم القرى وهو ابتداء من تصميم الأخت أم منال من منتديات خضر الرجبي . تحياتي . الملفات المرفقة db1_20050802.rar ( 183.69ك ) عدد مرات التنزيل: 16 تم التعديل بالخطأ حيث كان المقصود موضوع آخر :( db1_20050802.rar

السلام عليكم مثال لاحتساب نهاية الخدمة باعتماد الشرائح للمكاسب/المنافع/المكافآت يعمل مع كل التقاويم . من لا يحتاج لموديول أم القرى يستطيع أن يحذفه . قد يكون مثالا صغيرا لكن أحثكم على تأمل الإستعلامات وفكرة تصميمها وتجهيزها بالبيانات التي نحتاجها . علما أني أستطيع تقليل عدد الإستعلامات ولكني أحببت أن يكون المثال بسيطا وسهلا لمن يريد زيادة معارفه . بيانات ملف الشرائح غير نظامية وهي فقط للتجارب ويمكنكم تبديلها بما يناسب الأنظمة لديكم . المثال تحت تصرفكم جميعا . فمن أراد ان يكون منه مثالا أكبر بتصميم نماذج وتقارير وأمور البحث والعرض وكل ما يلزم ، فله ما يريد دون تردد وسأكون له من الشاكرين . آمل أن ينتفع به . تحياتي . الملفات المرفقة ServiceBenefits.rar ( 51.51ك ) عدد مرات التنزيل: 54 لقد تم إرفاق المثال بعد التعديل على دالة GetPeriod في الموديول modServiceBenefits . ServiceBenefits_20051018.rar

السلام عليكم روعة أخي امير عاطف هذا الحل ، إنها معلومة جديدة ومفيدة جدا . تحياتي .

السلام عليكم موضوعات ذا صلة : حساب مدة الدوام بين يومين جمع الوقت - Time تحياتي .

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

السلام عليكم لا يحتاج إلى كود . إبحث عن كلمة تنسيق مشروط Conditional Formatting وستجد الكثير إن شاء الله . تحياتي .

السلام عليكم لا مشكلة ولا حل واضحين عندي ، ولكن .... - حاول أن تدخل على بناء التعبير Expression builder للتعبير/الكود المسبب للمشكلة وأن تعيد بناءه من جديد ولكن على أن يكون الدخول إليه عن طريق فتح النموذج الأب leave f وأن تصل إليه عن طريق اختيار Loaded Forms وليس عن طريق All Forms . - لو لم تنجح في بناء التعبير من جديد حاول محاولة الغريق أن تبدل الفواصل إلى فواصل منقوطة !! - حاول التخلص من كل المراجع غير المستخدمة في البرنامج . تحياتي .

السلام عليكم مواضيع ذات صلة : http://www.officena.net/Tips/Punctutation.php تفقيط عربي انجليزي محدث تعديل التفقيط إلى كلمة درجة تحياتي .

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

السلام عليكم بعد إذن أخي امير عاطف ، لقد قمت بالتعديل على المثال وتطيبق معادلة أخي امير عاطف وتطبيق حساب يوم الجمعة وعدم تكرار فتح الآلة الحاسبة . تحياتي . Leave_20050918.rar

السلام عليكم بارك الله فيك أخي امير عاطف وحفظك من كل سوء . تحياتي .

السلام عليكم لقد اكتشفت خطأ في مقاييس الحرارة حيث كانت المعادلات مستنتجة ، ولكني مؤخرا وقعت عيني صدفة على معادلات التحويل بشكلها الصحيح ، وها أنا أرفقها لكم مع المثال . تحياتي . Measuers_20050916.rar

السلام عليكم وصلتان ممكن الإستفادة من أمثلتها في مثالكم : حساب عدد ايام الجمعة و السبت بين تاريخين منع تكرار فتح الآلة الحاسبة للويندوز تحياتي .

السلام عليكم شكرا لمروركم أخي أحمد العيسى . مرفق نسخة منقحة بعد اكتشاف بعض الأخطاء في النسخة السابقة . تحياتي . EventsCalendar.rar

السلام عليكم شكرا لمروركم أخي abo_mazin . لمن لم يعمل معه التحديث عليه بتخفيض مستوى الأمان بإتباع التالي : Tools أدوات Option خيارات Security أمان Macro Security أمان الماكرو Medium or Low متوسط أو منخفض OK موافق OK موافق تحياتي .

السلام عليكم تستطيع أن تكتب كل المناسبات التي تريدها بالهجري والميلادي . يتم تحديث التقويم بعد تحديث السنة الهجرية مع ملاحظة أنه يمكن إضافة علامة التمييز "هـ" بعد الرقم مباشرة . يمكن عمل نسخ من صفحة Calendar والاحتفاظ بأحداث السنوات السابقة . يمكنكم تبديل العناوين والشعار للتقويم وأضافة ماتشاءون . لا تبدلوا إسم صفحة Events . آمل أن يحوز على رضاكم . لا تنسونا من دعائكم . تحياتي . الملفات المرفقة EventsCalendar.rar ( 95.8ك ) عدد مرات التنزيل: 24

السلام عليك دالة Round في الأكسس بها بعض المشكلات لفقدها جزء من دقة الأرقام المطلوب تقريبها مما يؤثر على نتائج تقريبها وقد عملت الدالة التالية لتحل محل الدالة الأصل وهي تعمل تماما كما الأصل ، آمل أن ينتفع بها . Function RoundUp(ByVal Expression, _ Optional ByVal NumDecimalPlaces = 0) As Double Dim Rnd On Error Resume Next If NumDecimalPlaces < 0 Then NumDecimalPlaces = 0 If NumDecimalPlaces > 22 Then NumDecimalPlaces = 22 Rnd = 0 If Expression <> 0 Then Rnd = Val("0." & String(NumDecimalPlaces + 1, "0") & "1") End If RoundUp = Round(Expression + IIf(Expression > 0, Rnd, -Rnd), _ NumDecimalPlaces) End Function تحياتي .