رمهان

العفو والشكر لله

هات مرفقك اخ عدي للتطبيق افضل !

تفضل اعمل وحدة نمطية وبها الدالة : Function access_work_days(fdate As Date, edate As Date) For i = fdate To edate x = x + (Weekday(i) = 6 Or Weekday(i) = 7) Next access_work_days = edate - fdate + x End Function وبكذا نقول انبسط ياكسس ! والله وصار عندك دالة حساب ايام العمل زي الاكسل ! وببركات الاخ شوقي ! طبعا بتنادي الدالة من اي مكان وتمرر لها اولا تاريخ البدء ثم تاريخ الانتهاء ! ولو يتفضل احد صاحب صلاحية ويعدل العنوان بحيث يدل على دالة ايام العمل في الاكسس مشكورين ! بالتوفيق

ماتقول كده من اول واتريحنا !! عايز تواريخ العمل والا عدد ايام العمل بين تاريخين ؟

جميل جدا يا استاذ ابا جمانة ! اصبحنا نتعلم من اسئلتك واجاباتك !

حياك الله استاذ محمد ! طبعا اكيد انت لم تركز هنا : فطبعا انت وضعت السطر عند الفتح للنموذج وهو المفروض خلف زر الامر فقط ولم يعد هناك كود عند الفتح للنموذج "التحقق من الاقامات" تحياتي واشواقي

اخي محمد اعتذر على التاخير فيعلم الله لم ارى مشاركتك الثالثة الا الان وهي كانت كافية ووافية لوصف المشكلة ! فطبعا المرجع المناسب في 2003 وحسب مشكلتك هو : Microsoft DAO 3.6 Object Library بالتوفيق

اخي شوقي مارايك ان نعود الى سؤالك وبافتراض ان التواريخ موجودة بعمود وبالجدول : في نفس الاستعلام وفي معيار العمود expr1 اكتب المعيار التالي : <>1 And <>7 ويمكنك اضافة عمودين واحد للاشهر والاخر للسنة : Expr3: Month([تاريخ]) Expr4: Year([تاريخ]) وتكتب المعيار حسب الشهر وحسب السنة بالتوفيق

السلام عليكم هل عايزها ولابد الا من خلال كودك الجميل ده ؟ والا ممكن نستخدم طريقة ربط اخرى والموجودة بالمنتدى وهذه احدها: بالتوفيق

تفضل If MsgBox(" لديك " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & " قاربت على الانتهاء ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS وهنا عليك مسح جميع اكواد النموذج "التحقق من الاقامات" وعند الفتح ! اخي وحبيبنا محمد عصام : ربنا يعطيك الصحة والعافية وحضورك في المنتدى له طعمه الخاص ! فلك وللاستاذ صاحب الخلق الرفيع عبدالرحمن هاشم اجمل التحايا وارقها ! بالتوفيق للجميع

الاخ شوقي هل عمود التاريخ سيكون به كل ايام الشهر متسلسل ؟ ام قد يكون تواريخ عشوائية ؟ كما لي طلب بسيط من حضرتك : ما هو الهدف اصلا وماهو عمل البرنامج ؟ تحياتي

مشاركة مع الاساتذة ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟ وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد .. تحياتي

يمكنك كتابة التعبيرين التاليين في خاصية القيمة الافتراضية لكلا مربعي نص التاريخ والوقت : =date() =time() بالتوفيق

كلامك صحيح 100 % لذا نعلم انه عند الفتح سيتم تغيير ما يناسب للنسخة الوجهة ! اما عند التحرير فعليك بالتقيد بالنسخة الحالية ! بالتوفيق

جميل ياجميل ! احيطك علما انه تم الفتح لدي 2010 عربي وتمام التمام والفاصلة منقوطة ! واعتقد بهذا حصلت الاجابة وعلى : تحياتي

انا اللي حسأل الان اخي الغالي محمد عصام المرفق الاخير من حضرتك هل انت عملته على اي اصدار وماهي نوع الفاصلة ! عادية ؟ ام منقوطة ؟ ولي عودة

تفضل عزيزي ! انت في اوفيسنا ! كما انبه على وجود سجل به خطأ منطقي وبالتحديد السجل التاسع حيث كان التاريخ الثاني اصغر من الاول مما توهنا قليلا ! وتعمدت اغيره ليصبح التاريخين متساويين وليعمل النظام بكفاءة ! تحياتي Datterr.rar

العفو ومتمنيا لك التوفيق !

اخي محمد عصام انظر الملف المرفق في المشاركة رقم 3 والصق التعبير السابق بديلا لعمود التاخير ! وملاحظات اخي وائل في مكانها بالاضافة الى : * قد يكون الصقته في عمود جديد وهنا سيتم تكرار لاسم العمود لانه باسم "التاخير" ويوجد عمود سابق باسم "التاخير" هذا ان كان التطبيق على نفس الاستعلام بالمشاركة الثالثة ! الاحظ عدم وجود ترقيم للمشاركات بعد التحديثات الجديدة فياليت الادارة تعيد هذه الميزة المهمة مشكورين تحياتي

تفضل : Private Sub أمر88_Click() If Me.km.Form.RecordsetClone.RecordCount > 0 Then MsgBox ("اسف .. هناك توزيع سابق !!"): Exit Sub Me.km.SetFocus: DoCmd.GoToRecord , , acNewRec For ii = 1 To الاشهر Me.km![رقم القسط] = ii Me.km![الاستحقاق] = DateAdd("m", (ii - 1) * [يدفع كل], [تاريخ اول دفعة]) Me.km![الايجار] = الايجار DoCmd.GoToRecord , , acNext Next End Sub بالتوفيق

العفو

امسح كل الاكواد خلف زر توزيع الايجارات وضع الكود التالي وليصبح : Private Sub أمر88_Click() Me.km.SetFocus: DoCmd.GoToRecord , , acNewRec For ii = 0 To الاشهر - 1 Me.km![رقم القسط] = ii Me.km![الاستحقاق] = DateAdd("m", ii * [يدفع كل], [تاريخ اول دفعة]) Me.km![الايجار] = الايجار DoCmd.GoToRecord , , acNext Next End Sub بالتوفيق

ممكن ذكر الحالة العملية التي لديك الان لكي تظهر الطريقة المناسبة ! وهنا سؤال : هل لو تم تخزين التوقيع كصورة مسحوبة بالاسكنر وتم ادرجها عند كل نقر زر مثلا وليكن زر توقيع مثلا ! هل هذا مناسب ؟ تحياتي

حياك الله اخ وليد قبل ان اشارك باجابة هناك تنبيه في تحليل النظام لو افترضنا انه تم توزيع الاقساط كدفعتين والتي تمثل 6 اشهر وحيث دفعة حاليا ودفعة بعد 6 اشهر ! فماذا عن الدفعات القادمة والمستمرة اذا استمر المستاجر اكثر من سنة ! كيف تريد عملها ! تحياتي

الصق هذا التعبير بديلا لعمود التاخير في الاستعلام : التاخير: Format(TimeValue("08:00 am")-TimeValue([hodoor]);'Short Time') & IIf([hodoor]<=#08:00:00 ص#;"+";"-") اتمنى ان يكون لما اردت وبالتوفيق