Ich gebe mit folgendem Code einen Bericht aus, für einen definierten Lieferanten aus der Tabelle "tblHGPDS":
Private Sub Befehl3955_Click()
On Error GoTo Befehl3955_Click_Err
DoCmd.OpenReport "rptHG_PDS_QTY", acViewPreview, "", "[tblHGPDS].[Supplier]=[Forms]![frmHG_PDS]![Supplier]", acNormal
If Dir("I:\GG\Firma01\Abt_Import\Saison 2014\Orders\" & [Supplier] & "\", vbDirectory) = "" Then
MkDir ("I:\GG\Firma01\Abt_Import\Saison 2014\Orders\" & [Supplier] & "\")
Else
End If
If Dir("I:\GG\Firma01\Abt_Import\Saison 2014\Orders\" & [Supplier] & "\PDS\", vbDirectory) = "" Then
MkDir ("I:\GG\Firma01\Abt_Import\Saison 2014\Orders\" & [Supplier] & "\PDS\")
Else
End If
If Dir("I:\GG\Firma01\Abt_Import\Saison 2014\OrdersQC\" & [Supplier] & "\", vbDirectory) = "" Then
MkDir ("I:\GG\Firma01\Abt_Import\Saison 2014\OrdersQC\" & [Supplier] & "\")
Else
End If
If Dir("I:\GG\Firma01\Abt_Import\Saison 2014\OrdersQC\" & [Supplier] & "\PDS\", vbDirectory) = "" Then
MkDir ("I:\GG\Firma01\Abt_Import\Saison 2014\OrdersQC\" & [Supplier] & "\PDS\")
Else
End If
DoCmd.OutputTo acOutputReport, "rptHG_PDS_QTY", "PDFFormat(*.pdf)", "I:\GG\Firma01\Abt_Import\Saison 2014\Orders\" & [Supplier] & "\PDS\" & Year(Now()) & Format(Month(Now()), "00") & Format(Day(Now()), "00") & "_" & [Supplier] & "_Order_2014_Items_PDS.pdf", True, "", , acExportQualityPrint
DoCmd.OutputTo acOutputReport, "rptHG_PDS_QTY", "PDFFormat(*.pdf)", "I:\GG\Firma01\Abt_Import\Saison 2014\OrdersQC\" & [Supplier] & "\PDS\" & Year(Now()) & Format(Month(Now()), "00") & Format(Day(Now()), "00") & "_" & [Supplier] & "_Order_2014_Items_PDS.pdf", True, "", , acExportQualityPrint
DoCmd.Close acReport, "rptHG_PDS_QTY"
Befehl3955_Click_Exit:
Exit Sub
Befehl3955_Click_Err:
MsgBox Error$
Resume Befehl3955_Click_Exit
End Sub
Wie müsste ich den Code umformen, damit dieser Vorgang jeweils 1 mal für jeden "SUPPLIER" ausgegeben wird, den es in tblHGPDS zu finden gibt ?
Es wäre toll wenn mir jemand den Code dafür geben könnte, da ich noch ziemlich am Anfang stehe, was den Ausbau meiner VB Künste angeht.
Grüße
Andreas
|