Print only Forms specified by user

[yes sir]

Hello,

I am trying to add a button to a form that will enable a user to type the data they want in a text box and display only those records with the matching data in the specific field. Then by pushing a command button, only these records with the specific data typed in the text box will be printed.

The article below is exactly what I want, but instead of printing reports I want to print forms.

http://blogs.techrepublic.com.com/msoffice/?p=747

Here is the code provided in the article that I need to transform to match my database:
Dim ReportName
ReportName = "Employees1"
DoCmd.OpenReport _
ReportName:=ReportName, _ view:=acViewPreview, _ WhereCondition:="[Hire Date] Between #" & _ Me.StartDate & "# AND #" & _ Me.EndDate & "#"
The simple parts that I know (or I think I do) is that I need to change where it says Report to Form (ex. ReportName to FormName, OpenReport to OpenForm). Another difference between this code and the code that I need, is that this code is looking for a range, whereas all I need is just the records that match the one text box. For example, if the user types in Arizona in the text box, only the records with Arizona in the specific field will be shown.

Any help would be awesome. Thanks

[pbaldy]

For starters, I think you'll be a lot happier in the long run creating a report to print. You have a lot more control over how a report prints than a form, and no developer I know of prints forms. Here's the format for a single value (OpenReport works the same in that regard as OpenForm):

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

[yes sir]

For starters, I think you'll be a lot happier in the long run creating a report to print. You have a lot more control over how a report prints than a form, and no developer I know of prints forms. Here's the format for a single value (OpenReport works the same in that regard as OpenForm):

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

I probably should throw it over to a report, I can't remember why I decided to use a form. I have some sub-info too, but I can substitute a subreport in for that.

Thanks for the link!

[pbaldy]

Happy to help. It sounds like a subreport would be part of the solution, which is not uncommon.

[yes sir]

Obviously I am doing something wrong, but I am not quite sure.

Here is what I have done. I have a report that is a scouting form, basically its a page used for scouts when they go watch a basketball game, something to take notes on. Since the scout will be attending a game and scouting nearly 20 players a game, there is a need to be able to print all of the guys of a certain team with one click of a button (compared to going through each player's form and hitting print report).

So I have a form setup with a Combo box, the combo box is named Team, so the combo box contains a long list of every University and College. To the right of the combo box is the Command button with the code you provided to me. Based on what is selected in the combo box and then with the push of a button, the Scouting Report should open up with just the players attending that school.

However, when I click the button nothing happens.

Here is what I am using: (Scouting Forms is the name of the Report)
DoCmd.OpenReport "Scouting Forms", , , "School = " & Me.Team

The link between the Player and School is actually based on an ID#. For instance, if you go to the table for the Players, the column school will be a number, not text.

[pbaldy]

With that code, nothing will "open up". You haven't specified the mode, in which case the default is to print straight to the default printer (is anything printing?). I believe it's the argument right after the report name, but you can check in VBA help for OpenReport and make sure.

[yes sir]

With that code, nothing will "open up". You haven't specified the mode, in which case the default is to print straight to the default printer (is anything printing?). I believe it's the argument right after the report name, but you can check in VBA help for OpenReport and make sure.

D'oh! I forgot to add the print command to it too. I'll check on that VBA help and get back with you. Thanks

[yes sir]

I changed the view to acViewNormal.

I'm getting Runtime Error 438. Object doesn't support this property or method.

Another thing. Basically, my main goal here is that I'm filtering the players by their college. Of course, that is what the combo box is for on the Form with the Command Button. Now for the report that I want to open, which is filtered based on the college selected in the combo box, I have to have the College (aka School) as part of the Record Source, correct? What I have done temporarily is added a field to the Report which shows the player's school.

[pbaldy]

You're wanting it to print straight out to the printer? I'd expect

DoCmd.OpenReport "Scouting Forms", acViewPreview, , "School = " & Me.Team

but it would help to see your current code. The field named "School" would have to be in the report's source, yes.

[yes sir]

Below is a picture of the Macro. I was using VBA, but I thought maybe I could do the same here.




Here is a snapshot of the Form with the command. The combo box has the label of Team. Whenever I click on the button now I get a box coming up that says Enter Parameter Value: Me.Team. These can be found near the bottom of the picture.

[pbaldy]

I don't use macros, but certainly the "Me" would cause a problem there. "Me" is only valid in VBA code. In the macro you'd have to use the full form reference:

Forms!FormName.ControlName

[yes sir]

I don't use macros, but certainly the "Me" would cause a problem there. "Me" is only valid in VBA code. In the macro you'd have to use the full form reference:

Forms!FormName.ControlName

Alright, I have it set to where it is printing reports, but it is printing all of the reports.


I changed back over to VBA and this is the code I am using: (and I'm getting the run time error again)

Private Sub Team_Click()
DoCmd.OpenReport "Scouting Forms", acViewPreview, "School = " & Me.Team
End Sub

[pbaldy]

You're missing a comma between acViewPreview and "School...". That puts it in the FilterName argument instead of the WhereCondition argument, which is looking for something different.

[yes sir]

Added the comma, same Run Time Error Message. The main connection between player and school is that the School's ID# is what goes in the Player's College column in the table for the Players. In my combo box for 'Team,' I have the ID for the colleges in the record source. Would the code be different if the data is a number compared to text? I think I'm in over my head here.



Private Sub Team_Click()
DoCmd.OpenReport "Scouting Forms", acViewPreview, , "School = " & Me.Team
End Sub

[pbaldy]

That's the correct syntax for a numeric value. Is "Team" the name of the combo? Can you post the db?