لو سمحتوا عندي سؤال يتعلق بحساب العمر ؟ طبعا في ضوابط النموذج يعني الحل على النموذج
يعني لو عندي حقل فيه ناريخ الميلاد
والحقل الثاني تاريخ اليوم
والحقل الثالث طبعا يأتي حسابيا من الحقلين السابقين وهو عمر الشخص طبعا بالسنوات والشهور والايام لأن المطلوب هو
اذا كان عمر الشخص اقل من 18 سنة واربعه شهور لا يسجل واذا كان اكبر من 41 سنة و10 شهور لا يسجل ايضا
أما باقي الاعمار تسجل
وشكرا لكم
ارسل النموذج المطلوب حتى يمكن التعديل عليه
اخي الفاضل محمد
السلام عليكم ورحمة الله وبركاته
اتمنى في المرات القادمة عدم تحديد شخص بعينه للاجابه على السؤال مع مراعاة عنوان السؤال المتعلق بالموضوع
فهذا سؤالك قبل التعديل " سؤال الى الاخت زهرة في التاريخ وجميع الاعضاء؟ "
لأن هذا يتنافى مع قواعد وقوانين المشاركة والمنتدى حتى لا تتعرض مشاركاتك للحذف او الإغلاق راجع هذا الرابط الخاص بقواعد المشاركة
عموما للإجابه على سؤالك ستجده في الملف المرفق حسب الشروط التي وضعتها انت
بعد اذن زهرتنا الجميله مع تقديم كل التقدير والاحترام
منك نستفيد ياسيدتى المحترمه فانتى فعلا استاذتنا جميعا وبدا تعليمك يعطى بعض البشائر
استاذنك فى ارسال المرفق مرة اخرى على ان يكون الحدث فى خانة تاريخ الميلاد حتى تظهر النتيجه
بعد ادخال التاريخ مباشرة وليست عند فتح النموذج
مع التقدير والاجلال لشخصك العظيم
اخوك وتلميذك / ماهر بدوىAGE_UP_MA.rar
اخي الفاضل
البرنامج يعمل بشكل سليم ولا يوجد به اي مشكله ولا يوجد به ايضا حدث عند الفتح ليعمل البرنامج او التنبيه المطلوب فالأحداث موجوده فعلا في
حدث التاريخ الميلادي وفي حدث النموذج الحالي وهذه هي الأكواد الداخلية
Private Sub BirthDate_AfterUpdate() If Me.XM.Value < 220 Then Me.LB1.Visible = True Else Me.LB1.Visible = False End If If Me.XM.Value > 502 Then Me.LB2.Visible = True Else Me.LB2.Visible = False End If If Me.BirthDate.Value = Me.MyDate.Value Then Me.LB1.Visible = False Me.LB2.Visible = False End If Me.Refresh End Sub
هذا موجود في حدث النموذج الحالي
Private Sub Form_Current() If Me.XM.Value < 220 Then Me.LB1.Visible = True Else Me.LB1.Visible = False End If If Me.XM.Value > 502 Then Me.LB2.Visible = True Else Me.LB2.Visible = False End If If Me.BirthDate.Value = Me.MyDate.Value Then Me.LB1.Visible = False Me.LB2.Visible = False End If Me.Refresh End Sub
اطلع على الاكواد لكي تتأكد بنفسك
الأمر الاخر والذي قد يكون سبب لك ارتباك من رسالة التنبيه عندما فتحت النموذج هو انني قد قمت بتخزين بعض البيانات في النموذج لغرض التجربه فقط ولكي تطلع عليها اما الان فالبرنامج خالي من البيانات ولن يظهر لك التنبيه الا في حالتين فقط اما ان يكون العمر اصغر من المطلوب او يكون العمر اكبر من المطلوب وعدى ذلك لن يظهر التنبيه وهو المطلوب
وهذا الملف بعد التعديل
اختى العزيزة زهرة
خالص التقدير لك
لم اقصد التعليق وانما المرفق الاول لايوجد فيه حدث عند ادخال تاريخ الميلاد ويمكنك مراجعة المرفق الاول للتاكد
مع خالص تقديرى
هذا الموضوع مغلق.
