خطأ في كود في قاعدة بيانات Access

الكود أخى الكريم يعمل و لا اجد به مشكلة

من المحتمل ان تكون المشكلة فى هذه الدالة

لان الشروط بها قد تتناقض مع الدوال الاخرى

Function Update_Status()
    On Error Resume Next
    If In_Date_Recieved And In_Date_Recieved <= Now Then
        Check_Status_1
        If Out_Date_Forwarded1 And Out_Date_Forwarded1 <= Now Then
            Check_Status_2
            If Out_Date_Forwarded2 And Out_Date_Forwarded2 <= Now Then
                Check_Status_3
            End If
        End If
    End If
End Function

جرب تعديلها الى

Function Update_Status()
        Check_Status_1
        Check_Status_2
        Check_Status_3   

End Function

ان لم يعمل معك فضع مرفق به مثال للتعديل عليه

ملحوظه :

يمكنك استخدام التنسيق الشرطى

شكرا أخ أبو يوسف على دعمك اللامحدود

الكود المذكور مازال لا يعمل عند التنفيذ أنا أعتقد أن المشكلة تكمن في هذا الكود أدناه

Function Update_Status()
	On Error Resume Next
	If In_Date_Recieved And In_Date_Recieved <= Now Then
    	Check_Status_1
    	If Out_Date_Forwarded1 And Out_Date_Forwarded1 <= Now Then
        	Check_Status_2
        	If Out_Date_Forwarded2 And Out_Date_Forwarded2 <= Now Then
            	Check_Status_3
        	End If
    	End If
	End If
End Function

Function Check_Status_1()
	On Error Resume Next
	Dim SubNo As Integer

	If Out_Date_Forwarded1 And Out_Date_Forwarded1 <= Now Then
    	SubNo = Out_Date_Forwarded1 - In_Date_Recieved
    	In_Period3 = SubNo
    	Select Case SubNo
        	Case Is <= 1
            	In_Status3.BackColor = 32768
        	Case Is <= 2
            	In_Status3.BackColor = 33023
        	Case Is <= 3
            	In_Status3.BackColor = 255
        	Case Is >= 3
            	In_Status3.BackColor = 0
    	End Select
	Else
    	SubNo = Now - In_Date_Recieved
    	In_Period3 = SubNo
    	Select Case SubNo
        	Case Is <= 1
            	In_Status3.BackColor = 32768
        	Case Is <= 2
            	In_Status3.BackColor = 33023
        	Case Is <= 3
            	In_Status3.BackColor = 255
        	Case Is >= 3
            	In_Status3.BackColor = 0
    	End Select
	End If

End Function

Function Check_Status_2()
	On Error Resume Next
	Dim SubNo As Integer

	If Out_Date_Forwarded2 And Out_Date_Forwarded2 <= Now Then
    	SubNo = Out_Date_Forwarded2 - Out_Date_Forwarded1
    	Out_Period1_1 = SubNo
    	Select Case SubNo
        	Case Is <= 1
            	Out_Status1_1.BackColor = 32768
        	Case Is <= 2
            	Out_Status1_1.BackColor = 33023
        	Case Is <= 3
            	Out_Status1_1.BackColor = 255
        	Case Is >= 3
            	Out_Status1_1.BackColor = 0
    	End Select
	Else
    	SubNo = Now - Out_Date_Forwarded1
    	Out_Period1_1 = SubNo
    	Select Case SubNo
        	Case Is <= 1
            	Out_Status1_1.BackColor = 32768
        	Case Is <= 2
            	Out_Status1_1.BackColor = 33023
        	Case Is <= 3
            	Out_Status1_1.BackColor = 255
        	Case Is >= 3
            	Out_Status1_1.BackColor = 0
    	End Select
	End If

End Function

Function Check_Status_3()
	On Error Resume Next
	Dim SubNo As Integer

	If Completion_Date And Completion_Date <= Now Then
    	SubNo = Completion_Date - Out_Date_Forwarded2
    	Out_Period2 = SubNo
    	Select Case SubNo
        	Case Is <= 3
            	Out_Status2.BackColor = 32768
        	Case Is <= 7
            	Out_Status2.BackColor = 33023
        	Case Is <= 15
            	Out_Status2.BackColor = 255
        	Case Is > 15
            	Out_Status2.BackColor = 0
    	End Select
	Else
    	SubNo = Now - Out_Date_Forwarded2
    	Out_Period2 = SubNo
    	Select Case SubNo
        	Case Is <= 3
            	Out_Status2.BackColor = 32768
        	Case Is <= 7
            	Out_Status2.BackColor = 33023
        	Case Is <= 15
            	Out_Status2.BackColor = 255
        	Case Is > 15
            	Out_Status2.BackColor = 0
    	End Select
	End If

End Function

برجاء الإطلاع والإفادة

ضع مرفق

او اكتب اسماء الحقول و الشروط الخاصة للون المؤشر

حتى يمكن المساعدة

 إسم الحقل هو :In Reference  والشروط هي كالتالي:<BR>-إذا كان اليوم المدخل = 1 يوم فاللون الذي سيظهر هو أخضر<BR>-إذا كان اليوم المدخل = 2 يوم فاللون الذي سيظهر هو برتقالي<BR>-إذا كان اليوم المدخل = 3 يوم فاللون الذي سيظهر هو أحمر<BR>-إذا كان اليوم المدخل > 3 يوم فاللون الذي سيظهر هو أسود<BR><BR>طبعا هذه الشروط تطبق على صيغة التاريخ الكامل كمثال 10/10/2011<BR><BR>بالمرفقات تجد صور من الفورم وخصائص الجدول <BR>

System1.rar

أخى الكريم الموضوع غير واضح

ضع مرفق أفضل

Abo_Yossof كتب:

أخى الكريم الموضوع غير واضح

ضع مرفق أفضل

إسم الحقل هو :In Reference والشروط هي كالتالي:أولا إذا كان اليوم المدخل يساوي 1 يوم فاللون الذي سيظهر هو أخضرثانيا إذا كان اليوم المدخل يساوي 2 يوم فاللون الذي سيظهر هو برتقالي ثالثا إذا كان اليوم المدخل يساوي 3 يوم فاللون الذي سيظهر هو أحمر رابعا إذا كان اليوم المدخل أكبر من 3 أيام فاللون الذي سيظهر هو أسود طبعا هذه الشروط تطبق على صيغة التاريخ الكامل كمثال 10/10/2011 بالمرفقات تجد صور من الفورم وخصائص الجدولفي المشاركة التي قبلها مشاركة رقم 5