Mandatory Field (1 Viewer)

[falcondeer]

Hi all,

I used the below code for mandatory fields in many subforms, it is working fine but I have one issue:
If the user entered any field in a specific subform by mistake and want to erase it and go to another subform, he can't until he/she complete all fields before going to the right one. Any solution ?

If IsNull(Me.PR_Size) Then
MsgBox "Size is required", vbOKOnly
Me.PR_Size.SetFocus
Cancel = True
ElseIf IsNull(Me.PR_Color) Then
MsgBox "Color is required", vbOKOnly
Me.PR_Color.SetFocus
Cancel = True
Else
End If

 

[Minty]

You need to give them an option to Undo the record or tell them to press ESC to undo it.

 

[falcondeer]

Thanks

You need to give them an option to Undo the record or tell them to press ESC to undo it.

 

[oleronesoftwares]

If IsNull(Me.PR_Size) Then MsgBox "Size is required", vbOKOnly Me.PR_Size.SetFocus Cancel = True ElseIf IsNull(Me.PR_Color) Then MsgBox "Color is required", vbOKOnly Me.PR_Color.SetFocus Cancel = True Else End If

You can place the code in the subforms before update event