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