Need to return to same form after query returns 0 recs

[Cheryl Lemire]

Wanda,

 tbl = table.open(sites)

should be:

 tbl = table.open("sites")

Note my comment in the previous thread:

Note the 'red' text in the above code. You would need to substitute those with your table, filter, order enclosed in quotation marks "".

[Wanda Tucker]

Thank you :) I did not your comment, but nothing shows up in red on my computer, for some reason. Also, being so dang literal, I thought you meant that the order should be enclosed in quotation marks...not all in your list (i.e. table, filter, order..)

I'll get back to it tomorrow. Thanks, again - Wanda

[Stan Mathews]

Thank you :) I did not your comment, but nothing shows up in red on my computer, for some reason. Also, being so dang literal, I thought you meant that the order should be enclosed in quotation marks...not all in your list (i.e. table, filter, order..)

I'll get back to it tomorrow. Thanks, again - Wanda

If you decide to experiment with hiding the control panel, you can create two buttons on some form, one with the action script category - Control panel - Control panel hide. The other should have 2 action script category - Control panel - one action - Control panel show, and one action - Control panel set focus. You don't need to password protect them until you want to. Pushing the hide button will put you in the user state that you will have when you do hide the control panel for good. Pushing the other will return you to your development state.

[Mike Wilson]

another option

Wanda,

If Cheryl's code is giving you a problem, then maybe look at this:

dim nrecs as N

nrecs= a5_get_records_in_query(" [COLOR="red"]<tablename>[/COLOR] ", " [COLOR="red"]<query.filter>[/COLOR] ")

If (nrecs=0) then 
	ui_msg_box("Null Query","No matching records found")
else
	varP_Sites = :Form.viewqueried(" [COLOR="red"]<layout_name>[/COLOR] ", " [COLOR="red"]<query.filter>[/COLOR] ", " [COLOR="Red"]<query.order>[/COLOR] " )

end if

For my application which uses a variable (Sterm) in the filter (field contains characters in the variable), it is the following:

dim nrecs as N
dim Sterm as C

nrecs= a5_get_records_in_query("cases",s_quote(Sterm)+" $ specimentype")

If (nrecs=0) then 
	ui_msg_box("Null Query","No matching records found")
else
	varP_Sites = :Form.viewqueried("cases2", s_quote(Sterm)+" $ specimentype", "" )

end if

Hope this helps.

Mike W

[Wanda Tucker]

Hi Mike, Cheryl, Stan...
In working with Cheryl's code, I'm now stuck on the line of code:

qry = tbl.query_create()

I've tried several "guesses" as to what I need to do with this code. The error message is "No such field"...so I've tried using quotes, naming the table, then the field, and even simply deleting the line since I don't really need the query created. It is a saved query that I need to run, and it is named in the line query.filter = filter_Name. However, it's not a filter, either - rather, it is a query. So, once again, I'm clueless. It's like driving around in a huge metropolis with only the name of the street I need to get to - yet having no clue whatsoever what side of town it's in. I could spend days, like a rat in a maze, poking blindly at anything that might get me there.

As you can see there are probably a hundred or so combinations of guessing I could try, given time. Yet, I don't have several days just to get ONE CODE TO WORK.

Now, am I to believe that Mike's original line of code - just one line - will do the same thing as Cheryl's multiple lines of code - and/or the same as Mike's several lines of code? Doubtful....

Here I go, though, trying Mike's first suggested ONE LINER...although, I'm about ready to give up again, as code makes no sense at all to me. I have yet to write any code that actually works - maybe today's the day.
Thank you,
W

[Cheryl Lemire]

Wanda,

In my sample, are you using:

 query.filter = "trim(Sites->Equake)=\"Y\""

As far as your question about Mike's code, I have not personally used that function, but the best I can tell, yes his few lines of code should accomplish the same results as mine.

[Wanda Tucker]

Hi Cheryl,

Thanks for trying to come to my rescue, again :)

No, your example doesn't look like that line of code. Rather, it is like this:

query.filter = "equate"

I just edited the code to match the code you just posted and didn't get an error message (for that line).

I'm still stuck on the line of query.create. It needs a tag, such as <C> <D> <U> <N>. What character do I put there? What do they mean? They aren't drive names, are they?
W

[Cheryl Lemire]

Hi Wanda,

No they are not drive letters. The sample I provided and the meaning of the option letters can be found at:

http://support.alphasoftware.com/alp...Y_CREATE().htm

But the option is not needed, nor is it included in my working sample.

If you are still getting the error on the query_create() line, saying no such field, my guess is the problem is with your query.filter line.

If you can attach the table/set that you are trying to accomplish this on, we can help a lot easier with what is causing the errors.

The sample I provided I actually use as a function and call the function in multiple query by form searches without any errors. My function is probably no different than the function Mike has pointed to (but I created mine because I was not aware of Mike's :)

[Stan Mathews]

xbasic query construction examples

Okay, Stan. Thank you for your encouragement...where do you get your patience? I'll work with it tomorrow :)
Wanda

Just when you have time or decide to delve further. Pretty self explanatory in usage. Code behind buttons is heavily commented.

[Wanda Tucker]

Hi Cheryl,

Here is what I have in the line of Mike's code that I'm working with on a different button...


nrecs= a5_get_records_in_query("sites","equake=Y",<query.filter="equake">,L,<sites>)

I get the error message: Expected value. I have no clue what value it wants. I looked at the options and some of them pique my interest. Since the error message insists on one of the "options", I tried one, to no avail.

Again, I'm clueless. I'll zip and attach the db. Thank you so much for all your galant efforts.
W

[Stan Mathews]

Hi Cheryl,

Here is what I have in the line of Mike's code that I'm working with on a different button...


nrecs= a5_get_records_in_query("sites","equake=Y",<query.filter="equake">,L,<sites>)

I get the error message: Expected value. I have no clue what value it wants. I looked at the options and some of them pique my interest. Since the error message insists on one of the "options", I tried one, to no avail.

Again, I'm clueless. I'll zip and attach the db. Thank you so much for all your galant efforts.
W

nrecs= a5_get_records_in_query("sites","equake=\"Y\"")

[Wanda Tucker]

nrecs= a5_get_records_in_query("sites","equake=\"Y\"")

Cool...this code solves Line 16 error...now, I have a Line 18 error...Arguement is incorrect data type.

The line is: nrecs = qry.records_get()

Do I need to write it like:

nrecs = qry.records_get("sites", "equake=\"Y\") ?

Maybe we're getting there...thank you.
W

[Stan Mathews]

Cool...this code solves Line 16 error...now, I have a Line 18 error...Arguement is incorrect data type.

The line is: nrecs = qry.records_get()

Do I need to write it like:

nrecs = qry.records_get("sites", "equake=\"Y\") ?

Maybe we're getting there...thank you.
W

Since you are using

nrecs= a5_get_records_in_query("sites","equake=\"Y\"")

you can delete

nrecs = qry.records_get()

[Cheryl Lemire]

Hi Wanda,

It almost sounds like you are combining my sample with Mike's. Perhaps you can give us your code as you have it now?

[Stan Mathews]

Cool...this code solves Line 16 error...now, I have a Line 18 error...Arguement is incorrect data type.

The line is: nrecs = qry.records_get()

Do I need to write it like:

nrecs = qry.records_get("sites", "equake=\"Y\") ?

Maybe we're getting there...thank you.
W

Since you are using

nrecs= a5_get_records_in_query("sites","equake=\"Y\"")

you can delete

nrecs = qry.records_get()

Actually, you should post the entireity of the code you are now using. Once you use nrecs= a5_get_records_in_query("sites","equake=\"Y\""), several other lines from earlier attempts are also not needed.