I am using the following code on a form to print a report - I would like to
select a processor and have all of their accounts show on the report. Query
is working fine but when I preview the report with this code, I have a blank
report. processor Initials is a text field-Do I have the quotes messed up?
No matter what I change them to I get no results on the report. Any ideas?


Dim StrWhere As String

'Select Processor
If IsNull(cboInit) = False Then
If StrWhere <> "" Then
StrWhere = StrWhere & " and "
End If
StrWhere = StrWhere & "processorInit = '" & cboInit & "'"
DoCmd.OpenReport "RptToBeDischarged", acViewPreview, , StrWhere
End If

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200611/1

You sure cboInit is returning what you think it is?

Try putting a MsgBox StrWhere just before your DoCmd.OpenReport statement.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"smcgrath via AccessMonster.com" <u10749@uwe> wrote in message
news:6a1096335df2f@uwe...
>I am using the following code on a form to print a report - I would like to
> select a processor and have all of their accounts show on the report.
> Query
> is working fine but when I preview the report with this code, I have a
> blank
> report. processor Initials is a text field-Do I have the quotes messed
> up?
> No matter what I change them to I get no results on the report. Any
> ideas?
>
>
> Dim StrWhere As String
>
> 'Select Processor
> If IsNull(cboInit) = False Then
> If StrWhere <> "" Then
> StrWhere = StrWhere & " and "
> End If
> StrWhere = StrWhere & "processorInit = '" & cboInit & "'"
> DoCmd.OpenReport "RptToBeDischarged", acViewPreview, , StrWhere
> End If
>
> --
> Message posted via AccessMonster.com
> http://www.accessmonster.com/Uwe/For...ccess/200611/1
>

As Mr. Steele said, check cbolnit (make sure that it is spelled
correctly) and that it is not defined as a number (long, integer,
etc.). If it is defined as a number, the quotes will need to be
eliminated and replaced as follows:
StrWhere = StrWhere & "processorInit = " & cboInit

On Nov 30, 10:52 am, "smcgrath via AccessMonster.com" <u10749@uwe>
wrote:
> I am using the following code on a form to print a report - I would like to
> select a processor and have all of their accounts show on the report. Query
> is working fine but when I preview the report with this code, I have a blank
> report. processor Initials is a text field-Do I have the quotes messed up?
> No matter what I change them to I get no results on the report. Any ideas?
>
> Dim StrWhere As String
>
> 'Select Processor
> If IsNull(cboInit) = False Then
> If StrWhere <> "" Then
> StrWhere = StrWhere & " and "
> End If
> StrWhere = StrWhere & "processorInit = '" & cboInit & "'"
> DoCmd.OpenReport "RptToBeDischarged", acViewPreview, , StrWhere
> End If
>
> --
> Message posted via AccessMonster.comhttp://www.accessmonster.com/Uwe/Forums.aspx/access/200611/1