اخي الفاضل
البرنامج يعمل بشكل سليم ولا يوجد به اي مشكله ولا يوجد به ايضا حدث عند الفتح ليعمل البرنامج او التنبيه المطلوب فالأحداث موجوده فعلا في
حدث التاريخ الميلادي وفي حدث النموذج الحالي وهذه هي الأكواد الداخلية
كود
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
اطلع على الاكواد لكي تتأكد بنفسك
الأمر الاخر والذي قد يكون سبب لك ارتباك من رسالة التنبيه عندما فتحت النموذج هو انني قد قمت بتخزين بعض البيانات في النموذج لغرض التجربه فقط ولكي تطلع عليها اما الان فالبرنامج خالي من البيانات ولن يظهر لك التنبيه الا في حالتين فقط اما ان يكون العمر اصغر من المطلوب او يكون العمر اكبر من المطلوب وعدى ذلك لن يظهر التنبيه وهو المطلوب
وهذا الملف بعد التعديل
إضغط لإظهار المرفق