hi,
thank you for all answers,you sent it before.
i call it via mytextbox as thisform.append31 on click event

m.qasem

>The day() function expects a variable of type Date within parentheses. This means that tdD is of a different type.
>
>The way the code is designed, you are not supposed to run function Append31 by itself, but call it from somewhere else, with a date parameter.
>
>>hi,
>>i try ,but i get error message function argument value type,or count is invalid at line3
>>

>>FUNCTION Append31
>>   lpara tdD
>>   local ldD, lnM
>>   ldD = tdD-DAY( tdD ) + 1  && at this line
>>   lnM = month( tdD )
>>   do while month( ldD ) = lnM
>>      append blank
>>      ldD = ldD + 1
>>   enddo
>>   return
>>
>>

>>
>>>Try the grid's refresh().
>>>
>>>>hi,
>>>>thank you,
>>>> i must but this code under event keypress at thisform.text2.value
>>>>as if !found()
>>>>thisform.Append31
>>>>how i can see those records after append at mygrid via myform
>>>>
>>>>thanks.
>>>>m.qasem
>>>>>>hi all,
>>>>>>i need help, to append records at my table, via myform and i can see all records as empty records, without date field.
>>>>>> as
>>>>>>locate for machaine1=thisform.text1.value and month+year=thisform.text2.value
>>>>>>if !found()
>>>>>>append 31 records&&if the month is 30 days append 30 records ,if month=2(february) append 28 or 29, and if day is friday replace day1 with friday
>>>>>>else
>>>>>>=messagebox("found")
>>>>>>endif.
>>>>>>m.qasem
>>>>>
>>>>>Something like this?

>>FUNCTION Append31
>>>>>   lpara tdD
>>>>>   local ldD, lnM
>>>>>   ldD = tdD-DAY( tdD ) + 1
>>>>>   lnM = month( tdD )
>>>>>   do while month( ldD ) = lnM
>>>>>      append blank
>>>>>      ldD = ldD + 1
>>>>>   enddo
>>>>>   return