Dialog Box Not Dialogging

[Dalan]

After many hours of frustrating attempts and twists to get a dialog
box to work as intended, I turn to the resident gurus of MSAccess
matters for assistance. I'll try to make this quick and painless as
possible.

The Access 97 database has a Dialog Box (frmDialog) and an unbound
Combo Box although the reverse produced the same results (cboName).
The Row Source is: Select DistinctRow qryOrders.CoName From qryOrders
Order By qryOrders.CoName. I have changed the order and names many
times and also used different tables and queries, but no change in
outcome.

The OK command button on frmDialog has an event procedure behind as
follows:
Dim strWhere As String
If Not IsNull(Me.cboName) Then
strWhere = "qryOrders" = " & Chr(34) & Me.cboName & Chr(34)
End If
docmd.OpenReport "Orders", acViewPreview,,strWhere

The report Record Source uses the same query and on the OnOpen event
procedure the following code used:
Dim strDocName As String
strDocName = "frmDialog"
docmd.openForm strDocName,,,,,acDialog
docmd.Close acForm, strDocName

The combo box does list all companies and if left blank (no selection
in box), and after clicking OK button the report appears with all data
- looks fine. However, if a specific company is selected, there is an
Enter a Parameter Value popup box displayed that shows the name of the
query (qryOrders) or table used (this is the problem). Have tried
several different ones, no change. Have no clue what it is asking for
and it should not be displayed anyway. Doesn't matter if a value is
provided or not as the preview of the report is blank.

I know that the above does work as I had used it several months ago on
another database. But why it fails to work on a different one is worth
finding out. Any assistance will be appreciated. Thanks, Dalan

[U N Me]

Dalan wrote:

strWhere = "qryOrders" = " & Chr(34) & Me.cboName & Chr(34)

The line above is the culprit.

When you pass a clause, it lacks the word Where. But it should be a value
statement,

Let's say I had a list of names in a combo. Let's say the table field
name was FirstName. I selected Dalan. My where clause would be
strName = "Dalan"
:strWhere = "FirstName = """ & strName & """

That's 3 double quosts

Yours could be "COName = """ & cbo.Name & """

or you could use single quotes
"COName = ' " & cbo.Name & " ' "

I put spaces between the quote letters to highlight the diference. You
can use the single quote method if you're sure double/single quotes are
used in the field.

If you do have single/double quotes in names that adds some more work.

[Mike Storr]

I also believe he's omitting a field name in the 'culprit' string. qryOrders
is the name of a query is it not? If so, it can't equal anything.
It's asking for a parameter because it does not recognize qryOrders as a
data field in wich to look.
Maybe I'm wrong?

Mike Storr
www.veraccess.com
"U N Me" <un**@together.com> wrote in message
news:3F***************@together.com...

Dalan wrote:

strWhere = "qryOrders" = " & Chr(34) & Me.cboName & Chr(34)

The line above is the culprit.

When you pass a clause, it lacks the word Where. But it should be a value
statement,

Let's say I had a list of names in a combo. Let's say the table field
name was FirstName. I selected Dalan. My where clause would be
strName = "Dalan"
:strWhere = "FirstName = """ & strName & """

That's 3 double quosts

Yours could be "COName = """ & cbo.Name & """

or you could use single quotes
"COName = ' " & cbo.Name & " ' "

I put spaces between the quote letters to highlight the diference. You
can use the single quote method if you're sure double/single quotes are
used in the field.

If you do have single/double quotes in names that adds some more work.