Button to run report off Primary Key

[tdanko128]

Hello,

My Access knowledge and coding knowledge is limited so please bare with me.

I have created an access database that has two tables

Customers
Primary Key = Customer ID

Contracts
Primary Key = Contract ID



I've created simple forms for both just by highlighting and going to create form. I've Also set the relationship properly for a One (customers) to Many (contracts). As well as a report that pulls information from both Customers Table and Contracts Table. The report (the report is a contracts) is designed as a simply way to print out / save to pdf. But when I open the report all of the (contracts) for all records in the Contracts Table comes up.


What I would like to do is add a button to the Contracts Form that allows me to run the report (contracts) with the criteria of the current record that the form is on. I Imagine this would have to be pulled up by the Primary Key on the contracts table.

If this is possible and somebody would be able to give me instructions on how to do this It would be greatly Appreciated.

[pbaldy]

Is this what you're after?

BaldyWeb wherecondition

[tdanko128]

That is not what I am looking to do...
I'm Looking to be able to automatically populate the report from the forms current record.

For Instance:
I'm on contracts form on record 116 of 282. Where the contract ID is 187.
I want to be able to click a button that opens a report populated with the information from Contract ID 187.

[tdanko128]

That is not what I am looking to do...
I'm Looking to be able to automatically populate the report from the forms current record.

For Instance:
I'm on contracts form on record 116 of 282. Where the contract ID is 187.
I want to be able to click a button that opens a report populated with the information from Contract ID 187.

I want that same button to perform this operation for any record i'm on so say if I'm on contracts form on record 147of 282. Where the contract ID is 196. I want to be able to click a button that opens a report populated with the information from Contract ID 196.

[pbaldy]

Then it is what you want. As the link mentions, the same technique works with OpenReport.

[tdanko128]

Then it is what you want. As the link mentions, the same technique works with OpenReport.

Sorry... I will Try and report back... Thanks.

[tdanko128]

Where do I enter this code?

[pbaldy]

That is VBA code; presumably you'd want it behind the button you mentioned. If this is your first code:

http://www.baldyweb.com/FirstVBA.htm

[tdanko128]

hmmm... I am Getting this error

Run-time error '424':

Object Required




Here is what I Currently Have:

Private Sub Command47_Click()
DoCmd.OpenReport "contract by all", , , "Contract ID = " & Contracts.Command47
End Sub

contract by all is the report I want to run... Contract ID is the primary field of contracts table and contracts.Command47 is the button control

Sorry to be such a pain. I am very new to this and all help is greatly appreciated.

[pbaldy]

Try this:

DoCmd.OpenReport "contract by all", acViewPreview, , "Contract ID = " & Me.Command47

I switched it to preview for testing; you can have it go directly to printer if you want.

[tdanko128]

Ok this is exactly what I have:

Private Sub Command51_Click()
DoCmd.OpenReport "contract by all", acViewPreview, , "Contract ID = " & Me.Command51
End Sub

It is giving me this error code. :
Run-time error '438': Object doesn't support this property or method access 2007

I googled the error and a lot of people said that it was caused by not having a windows update... however my windows is fully up to date.

Any Suggestions would be greatly appreciated.

[tdanko128]

It is slightly more work on the end user but for some reason I can't get the code to work.. So here is what I did
I created a query and in the criteria area of Contract ID I Put [Please Enter Contract Id] then I Created my report based off of that query. Then Just put an open report button linked to the new report.
How do I set this to solved?
Thank you very much for all you help. Though I was not able to accomplish what I was trying to do your help helped me accomplish other goals using the vba codes.

[pbaldy]

Does the report open without error if you open it directly? Can you post the db?

[tdanko128]

When I used this code I could get the report to open but their was no data in the form:

DoCmd.OpenReport "contract by all", acViewPreview, , _
"[Contract ID]=Forms!Contracts

When I used the code from this thread nothing would come up except the error. As far as the data base posting. I'm not 100% sure about what that means. The database would still work.

[pbaldy]

I'm not sure what you mean by "the database would still work". You're saying this code doesn't work, are you not? It is sometimes easier to figure out why something isn't working when you can play with it yourself.