view multiple reports

[Jessica]

Hello All,


I was wondering if it were possible to view two or more records that use
the same report seperatly. I have this for an event procedure for a
preview button

Private Sub Preview_Click()
0 Dim varSelectedUPC As Variant
Dim StrUPC As String

For Each varSelectedUPC In UPC.ItemsSelected
StrUPC = UPC.ItemData(varSelectedUPC)
Select Case StrUPC
Case "39000 48164"
DoCmd.OpenReport "Nestle T-Wing", acViewPreview, , "UPC = '"
& StrUPC & "'"
Case "06010 11292" To "06010 11588", "76808 52094", "76808
52138", "95059 00046" To "95059 00051"
DoCmd.OpenReport "Barilla", acViewPreview, , "UPC = '" &
StrUPC & "'"
End Select

Next varSelectedUPC
End Sub



I also have a print button and changed the acViewPreview to acViewormal
and prints out each report fine.


TIA,
Jess

 

[Jeff Boyce]

Jessica

That's an interesting way to look at it. I've always assumed that reports
use records, not the other way 'round.

You might need to pick up a third-party tool to "connect the dots" between
those... Speed Ferret (Black Moshannon) and Total Access Analyzer (FMS,
Inc.) come to mind.

Regards

Jeff Boyce
<Access MVP>

 

[GJHGHJ]

HOLA

 

[jahoobob]

Posting to get this post to move down.

???? ????? "Jessica" (e-mail address removed) ?? ?????
???????:[email protected]
Hello All,


I was wondering if it were possible to view two or more records tha
use
the same report seperatly. I have this for an event procedure for a
preview button

Private Sub Preview_Click()
0 Dim varSelectedUPC As Variant
Dim StrUPC As String

For Each varSelectedUPC In UPC.ItemsSelected
StrUPC = UPC.ItemData(varSelectedUPC)
Select Case StrUPC
Case "39000 48164"
DoCmd.OpenReport "Nestle T-Wing", acViewPreview, , "UPC
'"
& StrUPC & "'"
Case "06010 11292" To "06010 11588", "76808 52094", "76808
52138", "95059 00046" To "95059 00051"
DoCmd.OpenReport "Barilla", acViewPreview, , "UPC = '" &
StrUPC & "'"
End Select

Next varSelectedUPC
End Sub



I also have a print button and changed the acViewPreview t
acViewormal
and prints out each report fine.


TIA,
Jess