Create Report Based Upon criteria selected in Combo boxes

[josh2008]

tblTitles
---------
Title_ID (pk)
titleName

tblArtist
---------
Artist_ID (pk)
aritstName

tblComics
---------
Comic_ID (PK)
Publisher_ID (FK)
Artist_ID (FK)
Writer_ID (FK)
Edition
Volume
Purchase Date
Publish Date
Market Value
Description
Attachment (Picture)

Comics (Form)
-------------
titleName (combo Box)
artistName (combo Box)
Submit (cmd button)

My Code
-------
Private Sub Submit_Click()
DoCmd.OpenReport "Comic_List", acViewPreview, ,_ "(tblTitle.TitleName=[Forms]![Comic_List]![titleName]) and_ (tblArtist.artistname=[Forms]![Comic_List]![artistName])"

End Sub
-----------------------------------------------------------
When this is entered and I push the Submit button these pop up:
------------------------------------------------------------
Forms!Comic_List!titleName
(Prompts for the title Name- I enter it)
then
Forms!Comic_List!artistName
(Prompts for the artist name - I enter it)
Then the report is generated with the correct data. This Is the closest I have gotten it to work in the last two weeks
with multiple web searches and forum postings and hours of work with my teacher, so how do i get it to work with out the msg boxes popping up asking for the same criteria that i already have selected in the combo boxes?

 

[josh2008]

Thanks Again

 

[troyr2]

How would the code read if only one combo box is used to filter? I'm a newby to the code used. This situation is simular to a report I'm trying create.

 

[pbaldy]

For one numeric field:

DoCmd.OpenReport "Comic_List", acViewPreview, , "[Title_ID]=" & Me![titleName]

Paul
MS Access MVP 2007/2008

 

[troyr2]

Thanks, What would the differance be if it was a Text Field?

 

[pbaldy]

A text field would have to be surrounded by single quotes:

DoCmd.OpenReport "Comic_List", acViewPreview, , "[Title_ID]='" & Me![titleName] & "'"

A date field would need # instead of '.

Paul
MS Access MVP 2007/2008

 

[troyr2]

Thanks!, the single quotes always throw me a loop!