hi,
thank you both so much,it works,but i mixed your code and code form Mr Riche
as under it works ,

m.a= day(thisform.text2.Value)
m.a1= year(thisform.text2.Value)
LOCATE FOR  dat=thisform.text2.Value
IF !FOUND() 

ldDate = thisform.text2.value
lnMonth = MONTH(ldDate)
ldDate = ldDate - DAY(ldDate) + 1  
*? ldDate
  && Make sure we are on the first day of the mont
  DIMENSION laDOW(7)
laDOW(2)='Monday'
laDOW(3)='Tuesday'
laDOW(4)='Wednesday'
laDOW(5)='Thursday'
laDOW(6)='Friday'
laDOW(7)='Saturday'
laDOW(1)='Sunday'
***************************
DO WHILE lnMonth = MONTH(ldDate)
   APPEND BLANK
   replace dat WITH ldDate
   Replace WEEKDAY WITH laDoW(DOW(Dat))
   IF WEEKDAY='Friday'

replace rem WITH 'Friday'
endif
   ldDate = ldDate + 1
   
ENDDO
ELSE
=MESSAGEBOX("found)")
endif
thisform.grid1.refresh

thanks,
m.qasem

>So you want to create a table with one record for every day in the year? If so, try this, not tested, but it should work. Replace yourDate and WEEKDAY with your field names.

>thisform.text2.value=01/01/2005 (DD/MM/YYYY date format?)
>lnMonth=month(thisform.text2.value) && String: lnMonth=val(substr(thisform.text2.value,4,2)) && 01
>lnYear=year(thisform.text2.value)   && string: lnYear=val(substr(thisform.text2.value,7,4))  && 2005
>lnDate=EVALUATE('{^'+STR(lnYear,4)+ '-' + TRANSFORM(lnMonth,'@L 99') + '-01}')
>DIMENSION laDOW(7)
>laDOW(1)='Monday'
>laDOW(2)='Tuesday'
>laDOW(3)='Wednesday'
>laDOW(4)='Thursday'
>laDOW(5)='Friday'
>laDOW(6)='Saturday'
>laDOW(7)='Sunday'
>FOR lnMonthCounter=1 to 12
>  FOR lnDayCounter=1 to VAL(DTOC(GOMONTH(lnDate,1)-DAY(lnDate))) && Number of days in the month
>    APPEND BLANK
>    Replace yourDate WITH EVALUATE('{^'+STR(lnYear,4)+ '-' + TRANSFORM(lnMonthCounter,'@L 99') + '-' + TRANSFORM(lnDayCounter,'@L 99') + '}')
>    Replace WEEKDAY WITH laDoW(DOW(yourDate))
>  ENDFOR
>ENDFOR

>
>
>>hi ,
>>i don't understand what you mean,
>>but i need to insert at my thisform.text2.value ctod("01/01/2005")
>>thanks.
>>>Is the month you enter, always less than a year from now?
>>>>hi,
>>>>thank you,
>>>>i try to do this as under ,it works as add 31 days,
>>>>but i need to replace dayname if the day name is friday,
>>>>and i want to add month(2) feb..to month(12),take care if thedays for every month is 31 , 30 or 29 or 28 if month is=2
>>>>

>>>>IF MONTH(thisform.text2.Value)=01
>>>>  FOR n=1 TO 31
>>>>   APPEND BLANK
>>>>  endfor
>>>>endif
>>>>

>>>>>Hi Mohammed,
>>>>>
>>>>>I don't mean to be rude, but I don't understand what you want.
>>>>>Do you want 31 blank records? If so, under what conditions.
>>>>>Why do you mention Friday?
>>>>>Can you give us a better explanation?
>>>>>>hi all,
>>>>>>
>>>>>>i need help to insert 31 records at my table if month e.i =1,if day is friday insert(replace) at myfield rem friday
>>>>>>as
>>>>>>31 append blank
>>>>>>thanks.