Printing a single report from form

[OFA]

Hello,



I am having a problem linking a button on my form to print a single report of the entry that I just entered on the form. I have created the button and it links properly to the report however when I click the button the report comes up blank. For some reason it seems that the fields are not linked properly between the form and the report? When I open up the report manually all the report appear to be there and does not encounter the same problem, all the information is displayed. Below is the code I used for the button:

Private Sub cmdPrint_Click()
Dim strReport As String
Dim strWhere As String

If Me.Dirty Then Me.Dirty = False   'save the record

strReport = "Renewal Plan Checklist"
strWhere = "[Plan #] = " & Me![Plan #]

DoCmd.OpenReport strReport, acPreview, , strWhere

End Sub

Thanks in advance!

[Access_Blaster]

Hello,

I am having a problem linking a button on my form to print a single report of the entry that I just entered on the form. I have created the button and it links properly to the report however when I click the button the report comes up blank. For some reason it seems that the fields are not linked properly between the form and the report? When I open up the report manually all the report appear to be there and does not encounter the same problem, all the information is displayed. Below is the code I used for the button:

Private Sub cmdPrint_Click()
Dim strReport As String
Dim strWhere As String
 
If Me.Dirty Then Me.Dirty = False   'save the record
 
strReport = "Renewal Plan Checklist"
strWhere = "[Plan #] = " & Me![Plan #]
 
DoCmd.OpenReport strReport, acPreview, , strWhere
 
End Sub

The spaces in the field names are going to be problems, also your ID should be used (PK)

 Dim strWhere As String
    If Me.Dirty Then    'Save any edits.
        Me.Dirty = False
    End If
    If Me.NewRecord Then 'Check there is a record to print
        MsgBox "Select a record to print"
    Else
        strWhere = "[YourID] = " & Me.[YourID]
        DoCmd.OpenReport "Renewal Plan Checklist", acPreview, , strWhere 
 
        Me.Requery
    End If

[OFA]

Hmm...I put the code in that you suggested and now a little box comes up when I press the button. It doesn't matter if I put anything in the box or just click ok with it blank but the report that comes up is still blank and not filled in.

[Access_Blaster]

Hmm...I put the code in that you suggested and now a little box comes up when I press the button. It doesn't matter if I put anything in the box or just click ok with it blank but the report that comes up is still blank and not filled in.

What did you put between the brackets?

strWhere = "[YourID] = " & Me.[YourID]

[OFA]

I changed the "Your ID" to "Plan #" which is the primary key

[Access_Blaster]

This basic code works, I know for a fact I use it myself. Two things I don't like about your primary key. You have a space in it and second you use the # sign. If your in the building stages of this I would makes some minor changes. I will try and reporduce your primary key and see if i can get it to work.

[OFA]

That's true, unfortunately though i'm not in the building stages but I suppose I can still go and change everything which references "Plan #" to something like "PlanNo". What I don't understand is I have the exact same button on another form with the exact same code (from original post) and it works and with that button the primary key is Tracking # so for some reason it works for that and not Plan #...odd

[Access_Blaster]

Hi OFA,

can you post your fields names.



Richard

[OFA]

Sorry for the late response, I was away from a computer for the weekend. I assume you meant the list of field names for the form? The're listed below:

Plan #
Received on
ASSOC
Last Site Visit
MFPA Name
MFPA #
Review Form
NAME1
NAME2
ADDR1
ADDR2
ADDR3
CITY
PC
Application
EMAIL
Send Info
Approval Form
CL#
Area Verification
MPAC Notice
Other
Application Form
Report
Map 4
Map Roll#
Map Boundaries
Map eligible areas
Map structures
Entered by
Comments

I was also told that the person working on the database before me in the office deleted some code by mistake on the form, is there any general codes that a form should have which may have been deleted that could prevent this from working?

[OFA]

Problem has been resolved, thanks for the help!