Solved! Go to Solution.
Sub ValidateChk(pThisEvent)
Dim pControls
Dim pThisForm, pThisPage
Set pThisPage = pThisEvent.Object
Set pThisForm = pThisPage.Parent
Set pControls = pThisForm.Pages("PAGE1").Controls
If pControls.Item("Check1").Value = False Then
ThisEvent.MessageText ="Checkbox is required."
ThisEvent.Result = False
Exit Sub
End If
End Sub
Call ValidateChk(ThisEvent)