Print current record to a report

[drawc]

Private Sub Command30_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim strDocName As String


Dim strWhere As String
strDocName = "Civil Process"
strWhere = "[FormID]=" & Me!FormID
DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.RunCommand acCmdPrint
End Sub

I can get this code to print only one record but then the button will always print this record. It will not change and print the current record.
FormID is an autonumber to give each record it own id.

Can anyone help out a "Work in Progress" learner?

[alansidman]

This works for me.

Private Sub Command28_Click()
On Error GoTo Err_Command28_Click

    Dim stDocName As String

    stDocName = "Submission"
    'DoCmd.OpenReport stDocName, acNormal, , "[ID] = Forms!frmClients!ID"
    DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=Forms!frmClients!ID"

Exit_Command28_Click:
    Exit Sub

Err_Command28_Click:
    MsgBox Err.Description
    Resume Exit_Command28_Click
    
End Sub

Looks like the only real difference are the location of the quotes on the DoCmd line and I specify the form name versus using the me. function. If you want to use the me.form function, try adding a me.requery at the beginning to make sure that Access updates and clears old information.

[drawc]

http://allenbrowne.com/casu-15.html
__________________