Validation Error

[MKuria]

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[District_Issues_Concerns]) And
Me.[Scheduled_Date_Supply_Delivery] < Me.[Phase_Start_Date] Or
Me.[Scheduled_Date_Supply_Delivery] > Me.[Phase_Completion_Date] Then MsgBox
"Date entered - Explain", vbOKOnly
Me.IM_District_Issues_Concerns.SetFocus
Cancel = True


Else IsNull(Me.District_Issues_Concerns) And
Me.Scheduled_Date_Box_Destruction < Me.Phase_Start_Date Or
Me.[Scheduled_Date_Box_Destruction] > Me.Phase_Completion_Date Then MsgBox
"Date entered - Explain", vbOKOnly
Me![District_Issues_Concerns].SetFocus
Cancel = True

End If
End Sub

 

[Stefan Hoffmann]

hi,

any question? Errors? Something we can work with?

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[District_Issues_Concerns]) And
Me.[Scheduled_Date_Supply_Delivery] < Me.[Phase_Start_Date] Or
Me.[Scheduled_Date_Supply_Delivery] > Me.[Phase_Completion_Date] Then MsgBox
"Date entered - Explain", vbOKOnly
Me.IM_District_Issues_Concerns.SetFocus
Cancel = True

Maybe your condition is lacking of parentheses:

IsNull(Me.[District_Issues_Concerns])
And
(
Me.[Scheduled_Date_Supply_Delivery] < Me.[Phase_Start_Date]
Or
Me.[Scheduled_Date_Supply_Delivery] > Me.[Phase_Completion_Date]
(


mfG
--> stefan <--

 

[MKuria]

Thanks Stefan for responding - I have been getting error messages when
posting to site so.
I made the recommended changes and it works.
--
mmk

hi,

any question? Errors? Something we can work with?

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[District_Issues_Concerns]) And
Me.[Scheduled_Date_Supply_Delivery] < Me.[Phase_Start_Date] Or
Me.[Scheduled_Date_Supply_Delivery] > Me.[Phase_Completion_Date] Then MsgBox
"Date entered - Explain", vbOKOnly
Me.IM_District_Issues_Concerns.SetFocus
Cancel = True

Maybe your condition is lacking of parentheses:

IsNull(Me.[District_Issues_Concerns])
And
(
Me.[Scheduled_Date_Supply_Delivery] < Me.[Phase_Start_Date]
Or
Me.[Scheduled_Date_Supply_Delivery] > Me.[Phase_Completion_Date]
(


mfG
--> stefan <--