>thisform.text4.visible =Thisform.text4.value>0 >thisform.text5.visible=Thisform.text5.value>0 >thisform.text6.visible=Thisform.text6.value>0 >thisform.text7.visible=Thisform.text7.value>0 >thisform.text8.visible=Thisform.text8.value>0 >thisform.text9.visible=Thisform.text9.value>0 >>thanks
nTxtVisible = 0 FOR i = 1 TO thisform.ControlCount oCtrl = thisform.Controls(i) IF UPPER(oCtrl.BaseClass) == "TEXTBOX" nTxtVisible = nTxtVisible + IIF(oCtrl.Visible,1,0) ENDIF ENDFOR WAIT WINDOW nTxtVisible