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