>It make me crazy ,whatever I do ,no response ><
>
>select tablea
>set order to ewday
>
>a = alltrim(left (thisform.list3.value,8)) && a = "E0000003"
>b = trim(right (thisform.list3.value,12)) && b = "NAME"
>yn = MESSAGEBOX ("Delete"+ a,4+32,"Reminder")
>if yn = 6
>got = .f.
>
>do while got = .t.
> if eno = a and ewday = date()
> && There is a record which Eno = "E0000003" and date = date()
>
> replace eno with ""
> got = .t.
> = MESSAGEBOX ("Altem Find")
> exit
> else
> skip
> = MESSAGEBOX ("Altem Not Find")
> endif
> enddo
>
>----------------
>Can you tell me what wrong with it ? Thanx
>
>
>endif

Jacky, if you set "Got=.f.", how you expect to get into "do while got = .t."?