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