If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

 
Go Back  dBforums > General > Database Concepts & Design > Access Report Filter

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old 07-02-04, 13:13
meircha meircha is offline
Registered User
 
Join Date: Mar 2004
Location: Seattle
Posts: 18
Access Report Filter

I tried using instructions from another thread to filter a report, but it is NOT working.

My form uses a combo box named cboRes.

the Report "rptEmgyInfo" uses a text box "Name"

Private Sub cboRes_Exit()
Dim strDocName As String
Dim strWhere As String

strDocName = "rptEmgyInfo"
strWhere = "[Name]=" ' & Me!cboRes & "'"

If (cboRes <> "") Then
DoCmd.OpenReport "rptEmgyInfo", acPreview, , strWhere
End If
End Sub


This gives me an error message:
Run-time error '3075'
Extra ) in query expression '([Name]=)'

Any help / ideas appreciated!
Reply With Quote
  #2 (permalink)  
Old 07-02-04, 13:48
Pat Phelan Pat Phelan is offline
Resident Curmudgeon
 
Join Date: Feb 2004
Location: In front of the computer
Posts: 12,605
I'd try:
Code:
strWhere = "[Name]= '" & Me!cboRes & "'"
-PatP
Reply With Quote
  #3 (permalink)  
Old 07-19-04, 02:02
Bullschmidt Bullschmidt is offline
Guru
 
Join Date: Jun 2003
Location: USA
Posts: 1,032
Perhaps try changing this:
If (cboRes <> "") Then

To be this instead:
If (Not IsNull(cboRes)) Then

Also I like to use query by form with * as the default values. And the free downloadable sample database at www.bullschmidt.com/access uses the query by form concept so that on the invoices dialog one can optionally choose a rep, a customer, and perhaps a date range, click on a button that says "Input," and then have the invoice form open up showing all the invoices that match the criteria.

And here is how the query by form concept can work.

On the invoices dialog there are the following controls:
InvDateMin with DefaultValue of =DateSerial(Year(Date())-1,1,1)
InvDateMax with DefaultValue of =Date()
InvRepNum with DefaultValue of *
InvCustNum with DefaultValue of *

Also on the invoices dialog there is a command button called cmdInput to open the invoices form with the following code behind the OnClick property:
DoCmd.OpenForm "frmInv"

And of course there could be a button to open a report the same way:
DoCmd.OpenReport "rptInv", acViewPreview

The invoices form (frmInv) has RecordSource property of qryInv.

And the qryInv query's criteria for the InvDate field has:
Between [Forms]![frmInvDialog]![InvDateMin] And [Forms]![frmInvDialog]![InvDateMax]

And the qryInv query's criteria for the RepNum field has:
Like [Forms]![frmInvDialog]![InvRepNum]

And the qryInv query's criteria for the CustNum field has:
Like [Forms]![frmInvDialog]![CustNum]

One related point is that you probably wouldn't want to allow blanks (i.e. Nulls) in fields that are going to be used with Like in any criteria for that field. Otherwise the blanks wouldn't be shown. And to counter that you might consider creating the query's SQL statement dynamically so that the criteria on a particular field isn't used unless needed.
__________________
J. Paul Schmidt, Freelance Web and Database Developer
www.Bullschmidt.com
Access Database Sample, Web Database Sample, ASP Design Tips
Reply With Quote
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On