hi,
thank you both so much,it works,but i mixed your code and code form Mr Tore
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

>>hi,
>>thank you,
>>i mean Dayname if the day is Friday,
>> name of day becuse at this day worke stop
>>i want to replace field rem with friday
>>thanks
>>
>You have anywhere between 28 and 31 blank records in your table. Which of these do you want to have
>

REPLACE rem WITH "Friday"

>
>
>
>>>It sounds as if you have a textbox which contains a date. When you press a button you want to insert however many blank records into a table as there are days in the month for that date.
>>>
>>>Here is some simple, not very elegant code to do that
>>>

>>>&& Make sure you have the proper table selected
>>>ldDate = thisform.text2.value
>>>lnMonth = MONTH(ldDate)
>>>ldDate = ldDate - DAY(ldDate) + 1    && Make sure we are on the first day of the mont
>>>DO WHILE lnMonth = MONTH(ldDate)
>>>   APPEND BLANK
>>>   &&  If you need to put specific values into a field, put the REPLACE statements here
>>>   ldDate = ldDate + 1
>>>ENDDO
>>>

>>>
>>>I also don't understand what you mean by "Dayname if the day is Friday."
>>>All that has happened above is creating blank records. If any of the fields need specific values, you will have to put code for that where I indicated.
>>>
>>>>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.