Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Seek not working
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Seek not working
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Network:
Windows 2000 Pro
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01133476
Message ID:
01133476
Views:
55
hi all,
I have the code below. it used to work fine but it no longer does. i had not changed the code, at least i am 99% sure that i did not. i have now added in some wait windows to find out whats happening. it is taking a car registration number and making sure that it was not used already. If i try this in a vfp command window it works, in code on the form it does not. i have checked the values that i pass in and they are all correct, ie a duplicate should be found. any help much appreciated.
lclregno = UPPER(ALLTRIM(thisform.pgfpageframe1.page4.txtCma_regno.Value))

SELECT 0
SELECT NWC

WAIT WINDOW "reg is_" + lclregno + "_"

IF lclregno <> ""
	
	WAIT WINDOW "regno variable is not blank"
	
	SELECT NWC
	SEEK lclregno ORDER CMA_regno
	
	IF EOF()
		WAIT WINDOW "try a locate first"
		SELECT NWC
		LOCATE FOR lclregno = UPPER(ALLTRIM(CMA_regno))
		IF FOUND()
			WAIT WINDOW "locate found it"
		ELSE
			WAIT WINDOW "not found"
		ENDIF
...
...
Go raibh maith agat

~M
Next
Reply
Map
View

Click here to load this message in the networking platform