General information
Category:
Coding, syntax & commands
Title:
CURSORSETPROP and No Table is Open error
If I have the following code in the LostFocus event of a text box, and I type numbers in the text box and press tab, the code does exactly what I want. However, if I pass the value of p_claimno from a diffent form, I get an error on the CURSORSETPROP: No Table is Open. I've tried puting the code in the Init event of the form, and also leaving it in the LostFocus event of the textbox, but I can't get it to work. What am I doing wrong?
p_claimno = VAL(thisform.txtClaimNumber.Value)
SET MULTILOCKS ON
=CURSORSETPROP("Buffering", 4, 'TTD_Payments')
=CURSORSETPROP("Buffering", 4, 'TPD_Payments')
SET EXACT OFF
SET ORDER TO 1
SEEK p_claimno
IF FOUND( )
thisform.refresh()
ThisForm.txtDateFrom.SetFocus
ELSE
cMessageTitle = 'Claim Number Not Found'
cMessageText = 'Record not found. Would you like to try again?'
nDialogType = 4 + 32 + 256
* 4 = Yes and No buttons
* 32 = Question mark icon
* 256 = Second button is default
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
WAIT WINDOW 'You chose Yes'
CASE nAnswer = 7
WAIT WINDOW 'You chose No'
ENDCASE
ENDIF
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only