مساعده في تصحيح كود شرطي

السلام عليكــم ورحمـة الله وبركاتــه ،،

:lol: :lol:

أنا عضوة جديده عندكم اتمنى اني القاء ضالتي عندكم :blush:

عندي سؤال

عندي برنامج لتسجيل النتائج ...والنتائج يا اجابية ياسلبيه...

والبرنامج يظهر لي ملاحظة اذا تم تكرار الاسم...

لدي ايضا مربع سرد يحتوي على خيار (أعادة تحليل)..أنـا عاوز الخيار هذا لايسمح بتسجيل البيانات الا اذا تحقق أحد الشرطين:

1- النتيجة خانة مربع الخيار سالبة مختار وهو يسمح حتى ولم يكن التحليل الاخير قد مرة عليه 6 اشهر..

2- النتيجة ايجابية اي ليست سالبه <>-1 و يمر ع النتيجة 6 اشهر....

وهذا هو الكود

Private Sub A8_AfterUpdate()
If Me.Textlst.Value = "الملفات القديمه" Then GoTo ُcodeOld
On Error Resume Next
Dim L
Dim Xdayx, Xdayx2, Xsalb
L = DLookup("[رقم الحاسب]", "N1", "[أسم الموظف] =A8 ")
Xsalb = DLookup("[رقم الوارد]", "n1", " [سالبة]= -1	  AND [أسم الموظف] =A8")
Xdayx = DLookup("[تاريخ سحب العينة]", "n1", "[أسم الموظف] =A8 ")
Xdayx2 = DateDiff("d", DateAdd("m", vMonths, Xdayx), Now)
If Xdayx = -1 And Me.Textlst.Value = "أعادة فحص" Then

Exit Sub

ElseIf Xdayx2 > 179 And Me.Textlst.Value = "أعادة فحص" And IsNull(Xsalb) Then

MsgBox "هذا الموظف مطابق اما يكون قد تم فحصه قبل 6 اشهر غير سالب "
ElseIf Not IsNull(L) And Me.Textlst.Value <> "أعادة فحص" Then
MsgBox " الأسم موجود ويتبع هذا الرقم   " & L, , " تنبية "
SendKeys "{Esc}"

End If

L = DLookup("[رقم الحاسب]", "N1", "[أسم الموظف] =A8 ")
Xsalb = DLookup("[رقم الوارد]", "n1", " [سالبة]= -1	  AND [أسم الموظف] =A8")
Xdayx = DLookup("[تاريخ سحب العينة]", "n1", "[أسم الموظف] =A8 ")
Xdayx2 = DateDiff("d", DateAdd("m", vMonths, Xdayx), Now)
If Xdayx = -1 And Me.Textlst.Value = "أعادة فحص" Then

Exit Sub

ElseIf Xdayx2 > 179 And Me.Textlst.Value = "أعادة فحص" And IsNull(Xsalb) Then

MsgBox "هذا الموظف مطابق اما يكون قد تم فحصه قبل 6 اشهر غير سالب "
ElseIf Not IsNull(L) And Me.Textlst.Value <> "أعادة فحص" Then
MsgBox " الأسم موجود ويتبع هذا الرقم   " & L, , " تنبية "
SendKeys "{Esc}"

End If

End Sub


اي انه اذا كان سالب او موجب ومر 6 اشهر يعمل اعادة ..غير كذا يطلع لي الرقم مجود بس مابعرف ايش الغلط...



شكراً لكم