In the code below, how do I make ‘exception reason’ a field which becomes required whenever ‘exception’ is selected as the ‘issue type’ ? At present the exception reason box becomes enabled whenever exception is chosen as the issue type but although I have set exception reason as a required field in the properties box I do not see an error message if the exception reason box is left empty before moving to the next record. Any help in this regard will be appreciated.
Private Sub issue_type_afterupdate()
If Me.Issue_type = “exception” Then
Me.Exception_Reason.Enabled = True
Me.Re_pick_reason.Enabled = False
ElseIf Me.Issue_type = “re-pick” Then
If InputBox(“Enter Password: Call Supervisor or Lead”, “Password”) = “casenewholland” Then
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = True
Else
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = False
End If
ElseIf Me.Issue_type = “too_high” Then
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = False
ElseIf Me.Issue_type = “non-conveyable” Then
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = False
ElseIf Me.Issue_type = “too_heavy” Then
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = False
Else
Me.Exception_Reason.Enabled = False
Me.Re_pick_reason.Enabled = False
End If
End Sub
