Required Field - space bar

[Jake94]

How can I adjust my required field so that you cannot simply enter a space bar character to circumvent the requirement?

Here is part of the code:

If IsNull([txtRequiredReason]) Then
MsgBox "The Reason field is required"
DoCmd.GoToControl "txtRequiredReason"

Else


Thanks,

Jake

 

[TJPoorman]

Try this:

Dim strTest As String
 
strTest = Replace([txtRequiredReason], " ", "")
 
If Nz(strTest, "") = "" Then
    MsgBox "The Reason field is required"
    DoCmd.GoToControl "txtRequiredReason"
Else