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)