next button want work

[jackie1948]

OK you guys the WOI (Wall of Ignorance) is standing in my way. Will someone please peck around the the end of this wall and give me a helping hand.
Here is my question. I have a next button that does nothing.

SKIP
IF EOF()
=MESSAGEBOX("This is the Last Record.",0+64+0,"FYI&quot
GO BOTTOM
ENDIF
ENDIF
THISFORM.REFRESH()

what is wrong here?
I know you need more info. I have a form that has a name text box. after entering a name (last first MI)all one field. Then enter, a listbox displays the yrly historys on that person. PROBLEM: what if I entered smith john and I got smith john a. How can I hit the next button till I found the smith john that I was looking for.

 

[FoxEgg]

I think you might need to supply a little more information on the indexes that you have created and are using...

J

 

[Mike Gagnon]

SKIP
IF EOF()
=MESSAGEBOX("This is the Last Record.",0+64+0,"FYI&quot
GO BOTTOM
ENDIF
ENDIF
THISFORM.REFRESH()

There must be something else it should give you an error. There is one too may ENDIF. But also when you want to skip a record it's always advisible to tell VFP from which table you want to skip a record. There is usually alot going on in a form, it's not always guaranteed when you hit the next button that the current ALIAS() is the right one. Try:

select myTable
if !eof()
  skip 
else
  go bottom
  =MESSAGEBOX("This is the Last Record.",0+64+0,"FYI")
endif

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first

 

[wgcs]

Also, how does your "history" list box get populated?
THISFORM.REFRESH() isn't necessarily going to re-fill it with the related records to the current record... look at "Requery()", or manually populate the list box.