Well, pass it the date() as parameter and it should work.
>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
> 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
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.