Access 97 Print 1 Report

to get the results you want, you need to select out the records for just the specified year. I would suggest making a query that selects only the records in a specified year (it can be a parameter query if you want to choose the year at the time ofprinting the receipt form.

You can make a button on the main form that opens the receipt form with the query selecting the current year as its source. The receipt form will then show only the records for the selected year.

If you are opening a report from the form via command button then you pass the filter:

Assuming you already have a report created based on the same record selection as the form:

DoCmd.OpenReport stDocName, acPreview, , "MemberNum='" & Me.MemberNum & "'"

Where stDocName is the name of the report and MemberNum is the name of the field that holds the Members unique ID.

Create your "receipt" report.

On your payment form (which is where I assume you want to print from), you could include code with an OnClick property as part of, for example, the place where the member's number is listed. (I'm assuming you display multiple members on the form, otherwise you could just put a print button on your form.)

When the user clicks on the member number control (I'll call it txtMember), do something like this:

' get member number (assumes it is a number)

Dim lngMemNbr as Long
lngMemNbr = me.txtMember

' get current year (could also get from form to print any year's receipt...just associate this code with the year display on the form instead of the member number)
' assumes payment year is stored in a field called PayYear

Dim lngYear as Long
lngYear = Year(Date)
DoCmd.OpenReport "rptReceipt",acViewPreview,,"[MemNbr} = " & lngMemNbr & " And [PayYear] = " & lngYear)

' note that if the member number is a string (text), you must surround thevariable containing the member number with single quotes ['], just as date values must be surrounded with # signs