>>I want to use up all the BLANK records that were made with a APPEND BLANK but never used. I do not want to PACK. What do I search for when looking for BLANK records?
>>
>>SCAN FOR empty(myfield)
>>IF FOUND()
>> GOTO RECNO()
>> THISFORM.REFRESH()
>>ENDIF
>>ENDSCAN
>
>don't need the IF FOUND(), the SCAN controls that
>don't need the goto, scan moves the pointer
>
>Don't do a refresh, use Show(1)[1 is modal], when your entries are done, call Hide and then the scan will continue.
>
>In other words...
>
>*SCAN FOR empty(myfield)
>* THISFORM.SHOW()
>*ENDSCAN
>
>HTH
Hi Matt... thanks for the code... here is my code... it is in a ADD RECORD button Clicked event. I am trying to add blank records to a GRID. If the GRID
has Deleted records, I am trying to use those up...something is wrong, because
it will not use the deleted records as the new blank record... will you look at this code?
thanks again...rob
found_one = .f.
rec=0
do while !eof()
if empty(name)
dele
endif
if deleted()
recall
store .t. to found_one
rec=recno()
exit
endif
skip 1
enddo
if found_one = .f.
append blank
thisform.grid1.column1.text1.setfocus
endif
if found_one = .t.
goto rec
thisform.grid1.column1.text1.setfocus
endif
*thisform.grid1.refresh()