>Local cCheckName AS String > >Scan > cCheckName = [.] + Alltrim(CheckBoxRules.Checkname) > With Thisform.Pages1._page1 > ? &cCheckName && evaluates to _Check1 of type object > &cCheckName..Addproperty('cSqlString',&Rules) && Error > Endwith >Endscan >>