Form that will create a cross tab query

[govind73]

Hi all,

I would like help on the following problem. I would like to create a form that will have two drop downs (combo or list box), one of which will be a row and the other will be a column. The column values will be a count based on each row value. I've reproduced an example from the Northwind data below. Basically, I would like someone to be able to select one variable (field) and then another to compare and hit SUBMIT and generate a report based on a cross tab query. Any assistance is much appreciated!

TRANSFORM Count(Products.[Target Level]) AS [CountOfTarget Level]
SELECT Products.[Supplier IDs].[Value], Count(Products.[Target Level]) AS [Total Of Target Level]
FROM Products
GROUP BY Products.[Supplier IDs].[Value]
PIVOT Products.[Target Level];

[NeoPa]

Where in this example SQL are the two values that you want to select from the ComboBox controls?

I'm afraid you haven't explained the problem very well so it's hard to help.

[govind73]

I read what I wrote and perhaps I didn't make it too clear. I would like to create a form where I can provide a list of fields. The user will select one field, say X which is how the information is sorted and then can select another field in another drop down, say Y that would be the column headings for a cross tab query. That Y will also be the calculated count for each column and row intersection. Hence:

TRANSFORM Count(dataset.[Y]) AS CountOfY
SELECT dataset.[X], Count(dataset.[Y]) AS [Total Of Y]
FROM dataset
GROUP BY dataset.[X]
PIVOT dataset.[Y];

I'm very comfortable using Access, but I cannot for the life of me figure out how to produce a list of fields within a form.

[govind73]

X is one of X1...Xi in a list of fields
Y is one of Y1...Yi in a second list of fields

Depending on what the user chooses, the particular X and Y will then be filled into the SQL, creating a crosstab query. I might note that the SQL in the example is not as important to me as trying to figure out how to insert a field name into X and Y based on input from a form.

Hope I'm making sense :-)

[NeoPa]

Starting to (but remember the [ CODE ] tags if you will).

Is the CrossTab query to produced in a VBA string variable, or did you have any other usage for it?

I'll lay out the sort of thing you need for that first and if you need something different just say.

Assuming a form [YourForm] with ComboBox controls [cboX] & [cboY] then :

Dim strSQL As string
 
strSQL = "TRANSFORM Count([%Y]) " & _
         "AS [CountOf%Y] " & _
         "SELECT [%X]," & _
         "Count([%Y]) AS [TotalOf%Y] " & _
         "FROM [Dataset] " & _
         "GROUP BY [%X] " & _
         "PIVOT [%Y]"
strSQL = Replace(strSQL, "%X", Me.cboX)
strSQL = Replace(strSQL, "%Y", Me.cboY)

[govind73]

That is super helpful. The cross tab query has no other use, so using it in VBA will be fine, but...

The only other thing that I am struggling with is getting the values in the combo box into query. So, I have a form called [crosstabs] and two combo boxes called [cboX] and [cboY], so the last two lines ought to be:

strSQL = Replace(strSQL, "%X", crosstabs.cboX)
strSQL = Replace(strSQL, "%Y", crosstabs.cboY)

right? If so, this gives a run-time error '424', object required.

[NeoPa]

If the code is running from within [CrossTabs] then Me.cboX & Me.cboY will work.

Otherwise, assuming that the form is actually open, use Form("CrossTabs ").cboX & Form("CrossTabs ").cboX.

Good luck :)

[govind73]

If I use Me.cboX & Me.cboY, it doesn't do anything. But, when I use Form("crosstabs ").cboX & Form("crosstabs ").cboX, it produces the error below:

Run-time error '2465':
Microsoft Office Access can't find the field 'crosstabs' referred to in your expression.

This is from a command button. Here is the full code of the command button. Thanks again for your helpful assistance!!

Private Sub Command9_Click()
 
Dim strSQL As String
 
strSQL = "TRANSFORM Count([%Y]) " & _
          "AS [CountOf%Y] " & _
          "SELECT [%X]," & _
          "Count([%Y]) AS [TotalOf%Y] " & _
          "FROM [dataset] " & _
          "GROUP BY [%X] " & _
          "PIVOT [%Y]"
strSQL = Replace(strSQL, "%X", Form("crosstabs").cboX)
strSQL = Replace(strSQL, "%Y", Form("crosstabs").cboY)
 
 
End Sub

[NeoPa]

That's purely and simply due to muppetitis. I seem to be suffering from it today :(

The code should have been Forms("CrossTabs").c boX etc.

[govind73]

Do I need a

DoCmd.RunSQL

type expression to actually execute this. If so, how would I insert it in that code?

Thanks!!