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)
Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.