Validate an MS Word form field

Hi,

This happens because the Tab event kicks in after the code has run.  What you need to do is create a global variable to store the error in.

Below is the code to do this.

I have created ExitFieldCode as a sample of how to do this.  I have called my checkbox in this example "thisone"

You then need to put in the following field the code for FieldEntry as code that runs on entering the field.  This will check to see if there is a global variable of an error set and if so it will select that field

Hope this helps

Option Explicit
 
Public gblErr As Boolean
Public gstrField As String
 
Sub ExitFieldCode()
 
    gblErr = False
    gstrField = ""
 
    If ActiveDocument.FormFields("thisone").CheckBox.Value = False Then
        MsgBox "You have not checked this etc"
        gblErr = True
        gstrField = "thisone"
        'other stuff here
    Else
        'stuff here
    End If
 
 
End Sub
 
Sub FieldEntry()
 
    If gblErr = True Then
        ActiveDocument.FormFields(gstrField).Select
    End If
 
End Sub

Select all Open in new window