>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.