hi,
thank you very much,for your help,
but Mr.Craig Boyd send the soluation.
--------------

Local lcFieldInTextbox
lcFieldInTextbox = thisform.text11.value
SELECT SUM(IIF(Evaluate(lcFieldInTextbox)=1,1,0)) AS CountOf1, ;
SUM(IIF(Evaluate(lcFieldInTextbox)=2,1,0)) AS CountOf2, ;
SUM(IIF(Evaluate(lcFieldInTextbox)=3,1,0)) AS CountOf3, ;
SUM(IIF(Evaluate(lcFieldInTextbox)=4,1,0)) AS CountOf4, ;
SUM(IIF(Evaluate(lcFieldInTextbox)=5,1,0)) AS CountOf5, ;
SUM(IIF(Evaluate(lcFieldInTextbox)=6,1,0)) AS CountOf6 ;
FROM ttable1  INTO CURSOR someCursor

thisform.text4.Value=CountOf1
thisform.text5.Value=CountOf2
thisform.text6.Value=CountOf3
thisform.text7.Value=CountOf4
thisform.text8.Value=CountOf5
thisform.text9.Value=CountOf6
thisform.text10.Value=CountOf1+CountOf2+CountOf3+CountOf4+CountOf5+CountOf6 

thanks again
m.qasem

>Something like this, or I missing something:
>

>m.TextBoxValue = thisform.text11.value
>m.cFldName     = "CountOf"+TRANSFORM(m.TextBoxValue)
>
>SELECT SUM(IIF(yT.q1=m.TextBoxValue,1,0)) AS CountOf1, ;
>       SUM(IIF(yT.q2=m.TextBoxValue,1,0)) AS CountOf2, ;
>       SUM(IIF(yT.q3=m.TextBoxValue,1,0)) AS CountOf3, ;
>       SUM(IIF(yT.q4=m.TextBoxValue,1,0)) AS CountOf4, ;
>       SUM(IIF(yT.q5=m.TextBoxValue,1,0)) AS CountOf5, ;
>       SUM(IIF(yT.q6=m.TextBoxValue,1,0)) AS CountOf6, ;
>       SUM(IIF(yT.q7=m.TextBoxValue,1,0)) AS CountOf7  ;
>FROM ttable1 yT;
>INTO CURSOR someCursor
>