Argument is incorrect data type

[videomuger]

The following function will generate the "Argument is incorrect data type" error msg when the function is associated with a button on the form.

When I run it in the "interactive" window, it runs fine!!!
?QP_DoesProfileExist(user_id)

The error occurs when line 7 executes...
"QP_DoesProfileExist = indx.records_get()"
indx.records_get() is numeric and so is the functions return value.

The code...
************************************************************
FUNCTION QP_DoesProfileExist AS N (SelectedUserID AS C )

tbl_dst = table.open("QuickPick_UserTabProfile")

query.filter = "userid = SelectedUserID"
indx = tbl_dst.query_create()
QP_DoesProfileExist = indx.records_get()

tbl_dst.close()

END FUNCTION

[Lenny Forziati]

RE: Argument is incorrect data type

Do you really want your query filter to be
"userid = SelectedUserID", or do you want it to be userid = the value passed into the function? If you're after the latter, you need


query.filter = "userid = " + SelectedUserID

[videomuger]

RE: Argument is incorrect data type

Yes, I would like to use the value passed into the function.

I just substituted your syntax...

query.filter = "userid = " + SelectedUserID

and the query_create didn't run...
(using the interactive window)

indx = tbl_dst.query_create()
ERROR: no such field

Hubert

[Blake]

RE: Argument is incorrect data type

I just substituted your syntax...

query.filter = "userid = " + SelectedUserID

and the query_create didn't run...
(using the interactive window)

indx = tbl_dst.query_create()
ERROR: no such field

Hubert


Quotes issue, perhaps?

query.filter = "userid="+Quote(SelectedUserId)

===Blake===

[videomuger]

RE: Argument is incorrect data type

Blake,

I have tried each of the following expressions and still no luck.

The puzzling thing is that it works in the interactive window, but not when fired off by the form button!!!

query.filter = "userid = SelectedUserID"
query.filter = "userid = " + SelectedUserID
query.filter = "userid="+Quote(SelectedUserId)

Hubert

[videomuger]

RE: Argument is incorrect data type

Blake,

I have tried each of the following expressions and still no luck.

The puzzling thing is that it works in the interactive window, but not when fired off by the form button!!!

query.filter = "userid = SelectedUserID"
query.filter = "userid = " + SelectedUserID
query.filter = "userid="+Quote(SelectedUserId)

Hubert

[Blake]

RE: Argument is incorrect data type

Well, working one place and not the other suggests to me a scope issue.

Userid is a field? If so, what happens if you qualify it with the table name, like:

"users->userid="+Quote(SelectedUserId)

Assuming that userid is a field and SelectedUserID contains a value to be searched for, this should work.

You should set a breakpoint before your code that sets the filter and ensure that Query.Filter looks the way you think it should.

Also, you might try using "lookup"; I think you could get a single lookup call to do what your function does.

lookup("users", "userid="+Quote(SelectedUserID), "somefield")

[Blake]

RE: Argument is incorrect data type

Doh.

I went back and looked at your problem. I'd guess it was, in fact, this:

QP_DoesProfileExist = indx.records_get()

indx.records_get() will return a CHARACTER string, but your function returns a NUMERIC.

How about:

QP_DoesProfileExist = val(indx.records_get())

??

[videomuger]

RE: Argument is incorrect data type

Blake,

"indx.records_get()" returns a type numeric, not char.

the function also returns a numeric.

The interactive window understands.

The runtime interpreter seems to hiccup.

But anyway, I just tried your example...

QP_DoesProfileExist = val(indx.records_get())

and I got what I expected... "ERROR: Argument is incorrect data type"

Hubert Lee

[Stan Mathews]

RE: Argument is incorrect data type

I think this illustrates what Blake is suggesting....


Created a table, QuickPick_UserTabProfile, one field, userid. Entered several records.

Used your function and added some lines to see what was happening.

'Date Created: 01-Apr-2003 08:20:53 PM
'Last Updated: 01-Apr-2003 08:50:04 PM
'Created By :
'Updated By :
FUNCTION QP_DoesProfileExist AS N (SelectedUserID AS C )

tbl_dst = table.open("QuickPick_UserTabProfile")
query.filter = "userid = "+quote(SelectedUserID)
indx = tbl_dst.query_create()
filter = query.filter
order = ""
options = ""
description = "test"
show_all_flag = .f. 'user cannot turn off the query
layout_type = "browse" 'to open a form, set this to "form"
layout_name = "" 'This will open the default layout. You can also specify a named layout here
a5_open_layout(layout_type,layout_name,"quickpick_usertabprofile",filter,order,description,show_all_flag)
QP_DoesProfileExist = indx.records_get()
tbl_dst.close()

END FUNCTION

Created a form, button code

test2 = QP_DoesProfileExist(QUICKPICK_USERTABPROFILE->USERID)
test2.refresh()

Works like a charm.

[Blake]

RE: Argument is incorrect data type

Ya know...I thought "It should return numeric" but I would swear that right before I posted that, the auto-complete pop-ups in A5 were talling me that it returned a char. (I thought that odd, but not the oddest thing I've seen.) I also would have sworn that i tested it with the val and it worked but all traces of the character-returning-records_get function are gone so file this alongside the vanishing hitchhiker.

'course I'd also swear that I put three records into a bogus user database to test it and A5 just ate them, so maybe it's time to go to bed.

Anyway, I put in your code exactly as you posted it in your original message, only using Quote:

query.filter = "userid = "+Quote(SelectedUserID)

and it worked just fine, interactively and on a form.

I'd say the time has come for you to post a stripped down database presenting the problem!

In the meantime, if you don't need an actual count, you might try a workaround and see if you get the same problem occurring. I found this code also worked:

FUNCTION QP_DoesProfileExist AS N (SelectedUserID AS C )
tbl_dst = table.open("user")
s = lookup("user", "userid="+quote(SelectedUserID), Quote("1"))
QP_DoesProfileExist=iif(s="", 0, 1)
tbl_dst.close()
END FUNCTION

[videomuger]

RE: Argument is incorrect data type

Blake,

I really appreciate you hanging in there and helping me...

Attached is the table that the function interacts with.

I have tried something else...

I created a global numeric variable that is set inside the function. Again if I run it in the interactive, it is okay and same error when on the form. Below is my function with all the different convolutions that I have tried with simular results...
=================================
FUNCTION QP_DoesProfileExist AS N (SelectedUserID AS C )
'returns how many profiles this user has...

tbl_dst = table.open("QuickPick_UserTabProfile")

'query.filter = "userid = SelectedUserID"
'query.filter = "userid = " + SelectedUserID
'query.filter = "userid="+Quote(SelectedUserId)

query.filter = "userid = "+Quote(SelectedUserID)

indx = tbl_dst.query_create()

'indirect assignment to a global var also fails... hint???
'nummy = indx.records_get()
'QP_DoesProfileExist = nummy

'direct assignment... nada...
QP_DoesProfileExist = indx.records_get()

tbl_dst.close()

END FUNCTION
===========================================

I just tried this one more time with same failure mode...
query.filter = "userid = "+Quote(SelectedUserID)

I think this is a real A5 problem.

Hubert Lee

[videomuger]

RE: Argument is incorrect data type

Stan,

My function is called by a button on a form.

The function does not open a form.

My argument is not the query... it is the assignment of a records_get() value (numeric) to a numeric variable or function return value.

Hubert

[videomuger]

RE: Argument is incorrect data type

New revelations...

In my application, there are several objects and vars to be intiallized.

So I created a new application with the bare bones minimum requirements and the function now works on both the interactive and form!!!

Now all I got to do is figure out what in the form OnInit event is causing the interaction...

I will keep you posted.

Hubert

[Stan Mathews]

RE: Argument is incorrect data type

Created a form, with a button the code for which is

test2 = QP_DoesProfileExist(QUICKPICK_USERTABPROFILE->USERID)
test2.refresh()

The rest of the additions I made to your function were merely to display a browse of the records qualifying the query while I was testing.

What are you doing with the returned value? I was showing it on the form by placing a variable on the form, default to zero, assigning the result of the function to it (test2 = QP_DoesProfileExist(QUICKPICK_USERTABPROFILE->USERID) ), then refreshing the display of the variable.