Beans0063
asked on
Access97 won't pass field names as a query parameter
Here's a question that's really bugging me... it's quite simple in nature but Access just won't work for me.
Here's the situation:
I have data tables set up like this:
AdID SalespersonA SalespersonB SalespersonC ...
-------------------------- ---------- ---------- -
1 1
2 1
3 1
4 1
.
.
Whereas whenever a salesperson makes a sale, a 1 is inserted in the appropriate AdID row. Possibly not the best set up table, but thats what I have to work with.
I want to create a query where the user is prompted to enter a salesperson name, then the system returns the AdIDs corresponding to that salesperson. Using Access's query design feature I come up with this:
Type: Select
Field: [Enter Salesperson name]
Table: Sales
Criteria: 1
Simple, huh? Well, when I switch to the design view Access prompts me for the salesperson name. After entering the text, Access replies "Expression typed incorrectly, or is too complex to be evaluated".
The same query works just fine when I 'hard code' a field into the search. Seems like this should work... try it on your machine if you can't believe it.
Can you figure out why Access won't let me pass a field name in a query as a paramter? Its causing me a lot of headache, please help!!
Here's the situation:
I have data tables set up like this:
AdID SalespersonA SalespersonB SalespersonC ...
--------------------------
1 1
2 1
3 1
4 1
.
.
Whereas whenever a salesperson makes a sale, a 1 is inserted in the appropriate AdID row. Possibly not the best set up table, but thats what I have to work with.
I want to create a query where the user is prompted to enter a salesperson name, then the system returns the AdIDs corresponding to that salesperson. Using Access's query design feature I come up with this:
Type: Select
Field: [Enter Salesperson name]
Table: Sales
Criteria: 1
Simple, huh? Well, when I switch to the design view Access prompts me for the salesperson name. After entering the text, Access replies "Expression typed incorrectly, or is too complex to be evaluated".
The same query works just fine when I 'hard code' a field into the search. Seems like this should work... try it on your machine if you can't believe it.
Can you figure out why Access won't let me pass a field name in a query as a paramter? Its causing me a lot of headache, please help!!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Crosstabs have their own limits, for example they do not allow editing, but to use them, set up a two column table like this:
AdID :Number(Long)
Salesperson :Text(whatever length you use)
You might want another field to hold the date, or something. This is OK. The easiest way to build a crosstab query from here is the Crosstab Wizard. Doing it by hand is a pain. The SQL looks something like:
TRANSFORM Count(Table1.SalesPerson) AS [The Value]
SELECT Table1.SalesPerson, Count(Table1.SalesPerson) AS [Total Of SalesPerson]
FROM Table1
GROUP BY Table1.SalesPerson PIVOT Table1.AdID;
AdID :Number(Long)
Salesperson :Text(whatever length you use)
You might want another field to hold the date, or something. This is OK. The easiest way to build a crosstab query from here is the Crosstab Wizard. Doing it by hand is a pain. The SQL looks something like:
TRANSFORM Count(Table1.SalesPerson) AS [The Value]
SELECT Table1.SalesPerson, Count(Table1.SalesPerson) AS [Total Of SalesPerson]
FROM Table1
GROUP BY Table1.SalesPerson PIVOT Table1.AdID;
ASKER
I've made a bit of progress here but am still coming up short. In order to get the salespeople names to appear in a combobox, I created a new table which holds salespeople names in a single row. Next I set up the VBA as you indicated, using my Combo0 to get the Field name for the SQL statement. Here's what the code looks like:
Private Sub FindSales_Click()
Dim qd As QueryDef
Dim strSQL As String
Set qd = CurrentDb.QueryDefs("Query 1")
strSQL = "SELECT Sales.[" & Combo0 & "] FROM Sales WHERE (((Sales.[" & Combo0 & "] )=1));"
qd.SQL = strSQL
Set qd = Nothing
DoCmd.OpenQuery "Query1"
Seems like it should work, but when I execute the search Access prompts me for the value of Sales.19 instead of just going ahead and doing the query.
Where am I going wrong here? Should I be using $ instead of &? I would really appreciate a little more help. Thanks!
Private Sub FindSales_Click()
Dim qd As QueryDef
Dim strSQL As String
Set qd = CurrentDb.QueryDefs("Query
strSQL = "SELECT Sales.[" & Combo0 & "] FROM Sales WHERE (((Sales.[" & Combo0 & "] )=1));"
qd.SQL = strSQL
Set qd = Nothing
DoCmd.OpenQuery "Query1"
Seems like it should work, but when I execute the search Access prompts me for the value of Sales.19 instead of just going ahead and doing the query.
Where am I going wrong here? Should I be using $ instead of &? I would really appreciate a little more help. Thanks!
I suspect your combo box is set up with two or more columns with one or more hidden, and the column holding the value has the value "19" in your example. Look at the properties of your combo box, and if the number of columns is more than one, figure out which column has the info you want. When building the SQL, use
Combo0.Columns(<Column#>)
Note that the Columns collection is 0 based, so the first column of the combo box is Columns(0), the second column is Columns(1) and so on.
Combo0.Columns(<Column#>)
Note that the Columns collection is 0 based, so the first column of the combo box is Columns(0), the second column is Columns(1) and so on.
ASKER
Perhaps you could go into a little more detail about the cross tab technique. I'm new to Access and am really banging my head here. This seemingly simple query is holding the whole project up.
Once again, thanks for the tips they are tremendously useful!