Link to home
Create AccountLog in
Avatar of bwestly
bwestlyFlag for Canada

asked on

Query returns more than one hyperlink report to print. How can I print all the ones it finds?

I have one or more pdf documents linked to a form, but my code will only print one of the documents, not all.  What do I need in order to print all the documents the query finds on this command button?  

Private Sub prtndt_Click()
On Error GoTo Err_prtndt_Click

Dim qd As Long

qd = DCount("*", "qryLinkedDocuments", "det_id=" & Me!ID)
If qd > 0 Then
  
 strfile = DLookup("ImagePath", "qrylinkeddocuments", "det_id=" & Me!ID)
 ShellExecute Me.hwnd, "open", strfile, Chr$(0), strPath, 3
 
Else

MsgBox "There are no NDTs to print.", vbOKOnly

End If

Exit_prtndt_Click:
    Exit Sub

Err_prtndt_Click:
    MsgBox Err.Description
      Resume Exit_prtndt_Click
    
End Sub

Open in new window

ASKER CERTIFIED SOLUTION
Avatar of Surone1
Surone1
Flag of Suriname image

Link to home
membership
Create an account to see this answer
Signing up is free. No credit card required.
Create Account
set rs = currentdb.openrecordset('select * from qrylinkeddocuments where det_id= " & Me!ID)
set rs = currentdb.openrecordset("select * from qrylinkeddocuments where det_id= " & Me!ID)
Avatar of bwestly

ASKER

Sorry, Surone1

I didn't get any emails about your answer.  Don't know where they went.  I will check this out tomorrow and let you know if it works.  

Thanks.
Avatar of bwestly

ASKER

Thank you for the great information.  I'm so sorry it took so long to get back into the problem.  I can print multiple PDFs with no problem now.