Select Case Me.Move_Reason
Case "Order", "Repair", "ForParts", "Disassembly"
If PM = "+" Or IsAnyBlank(FromLoc, Ref) Or IsNotBlank(ToLoc) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
Case "Goods-In-Testing", "Movement"
If IsAnyBlank(FromLoc, ToLoc) Or IsNotBlank(Ref) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
Case "Return", "Finished-Goods", "FG-Rental", "Costed-Return"
If PM = "-" Or IsNotBlank(FromLoc) Or IsAnyBlank(ToLoc, Ref) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
Case "Lend-Issue", "Scrap"
If PM = "+" Or IsBlank(FromLoc) Or IsNotBlank(ToLoc) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
Case "Lend-Return", "SN-Capture"
If Me.[=/-] = "-" Or IsBlank(ToLoc) Or IsNotBlank(FromLoc) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
Case "Recount"
If PM = "+" Then
If IsNotBlank(FromLoc) Or IsBlank(ToLoc) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
If PM = "-" Then
If IsBlank(FromLoc) Or IsNotBlank(ToLoc) Then
MsgBox "Error! Please check, At least one field is incorrect"
DoCmd.CancelEvent
End If
End If
End Select
End Sub