I have done an Interactive SEEK in the past so that as you type in your seek content, the database pointer moves closer to the targeted record.
I have a TAG called PNDTSER, meaning "Product # + Date + Serial #". However, as I type in the seek on this search, it does not move the pointer at all until I have typed in all of the Product Number and at least the year and month of the date, which is put in as character data type as in "2007/05/11", so the search isn't even happening until at least the following is entered: "0703101352007/05". 9 characters for the PN and 7 characters for the date.
Can anyone tell me why this doesn't seem to work?
This is what I have int he Combobox's LostFocus:
CASE This.ListIndex = 6
WAIT WINDOW NOWAIT "Setting Order to Product # + Date + Serial #"
SET ORDER TO PNDTSER
.txtSearch.MaxLength = LEN(Certs.PN) + LEN(Certs.cDate) + LEN(Certs.Serial)
.txtSearch.InputMask = "9999999999999/99/99999999"
The next part is the seek in the Search Textbox's Interactive Change event:
WITH ThisForm
IF NOT(EMPTY(This.Value))
SEEK(UPPER(ALLTRIM(This.Value)))
ENDIF
IF EOF()
ThisForm.nextButton.Enabled = .F.
ENDIF
ThisForm.Refresh()
ENDWITH