>>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
>