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