Old application - coding

[coldan]

I have had to return to an app I wrote some years ago which produces reports from tables for a government form.

Each page is available on a separate button to allow visual checking by the user and then printing.

Previously I coded each page separately but now think I should have used a parameter into a subroutine as I would in FoxPro.

This is one routine from the many

<code>

Private Sub cmdClaim6_Click()

On Error GoTo ErrorFound
Me.Visible = False
original call now in page size wrapper on next line
'DoCmd.OpenReport "rptClaim_1_6", acViewPreview, , "[ID] = " & Me.txtID
Call afReportSetSize(9, , "rptClaim_1_6", "[tblMembers].[ID] = " & Me.txtID) ' Open with A4

Call margins
Exit Sub

ErrorFound:
MsgBox Err.Description
Exit Sub

End Sub

</code>

Thanks for any help.

 

[genomon]

What exactly is the problem?

Cogito eggo sum – I think, therefore I am a waffle.