Etikettendruck mit individueller, wiederkehrender Zusatzbezeichnung

[JOG]

Hallo

Ich habe eine Problemstellung, wo ich keine Idee habe, wie sie zu lösen ist. Also, ich drucke gemäss einer Abfrage Etiketten aus. Ein VBA-Code erzeugt mir, dass von jeder Etikette je 5 Stück ( von einer Chargen-Nr.) erzeugt werden sollen. Nun möchte ich zusätzlich, dass jede Etikette innerhalb der Etiekettenreihe à 5 Stück eine Zusatzbezeichung erhält. Z.B. 1. Etikette der Charge x mit Zusatzbezeichnung "Muster Anfang", 2. Etikette der Charge x mit Zusatzbezeichung "Muster Mitte", 3. Etikette der Charge X mit Zusatzbezeichnung "Muster Ende" usw. bis die 5. Etikette der Charge x erzeugt  wird, dann gehts zur nächsten Etikette/Charge Y, und diese 5 erhalten wiederum dieselben Zusatzbezeichungen usw.

Hat jemand eine Idee, wie ich das angehen kann?
Dies meine Auswahlabfrage als Grundlage für den Etikettenbericht: siehe Beilage

Danke und Gruss JOG

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

spontan würde ich sagen:

Neue Tabelle mit den Zusatzbezeichnungen. In der Abfrage diese Tabelle ohne(!) Verknüpfung hinzufügen und nach Chargennr gruppieren.

Ob das mit dem (mir unbekannten) akt. verwendeten VBA-Code richtig  zusammenspielt, kann ich jetzt nicht beurteilen..

[JOG]

Hallo

Also mein VBA-Code für das erzeugen der 5 gleichen Etiketten je Datensatz sieht so aus:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
    Dim AnzahlEtiketten As Integer
    AnzahlEtiketten = 5
    If AnzahlEtiketten = 0 Then
    ' Wenn Wert 0 ist, dann gar nichts drucken
        Me.NextRecord = True
        Me.MoveLayout = False
        Me.PrintSection = False
      Else
      ' Druckvorgang für diesen Datensatz wiederholen,
      ' wenn AnzahlEtiketten noch nicht erreicht ist
        If PrintCount < AnzahlEtiketten Then
            Me.NextRecord = False
        End If
    End If
End Sub

Wie meinst du das, mit einer Zusatztabelle einbinden in die Abfrage? Ich möchte ja, dass je Datensatz aus der Abfrage 5 fast identische Etiketten erzeugt werden und die halt eben 5 unterschiedliche Zusatzbezeichnung erhalten. Kannst du mir da noch etwas weiter auf die Sprünge helfen?

Danke.

Gruss vom Bodensee.
JOG

[DF6GL]

Hallo,

Einbinden einer Zusatz-Tabelle:   Rechtsklick, im Tabellenfenster die zusatz-Tabelle auswählen und hinzufügen...


Anhand des Code würde ich aber eher folgendermassen vorgehen:

Zusatztabelle "tblZusatz" erstellen:

ZID  (PK, Zahl, Long)
Z_Text (Text)

ZID   Z_Text
1      Muster Anfang
3      Muster Mitte
5      Muster Ende

Code [Auswählen] Erweitern



Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
   Dim AnzahlEtiketten As Long, I As Long
   AnzahlEtiketten = 5
   
   If AnzahlEtiketten = 0 Then
   ' Wenn Wert 0 ist, dann gar nichts drucken
       Me.NextRecord = True
       Me.MoveLayout = False
       Me.PrintSection = False
       
     Else
     ' Druckvorgang für diesen Datensatz wiederholen,
     ' wenn AnzahlEtiketten noch nicht erreicht ist
     
       If PrintCount < AnzahlEtiketten Then
           Me.NextRecord = False
       End If
       
       
       For I = 1 To AnzahlEtiketten
       Me!txtZusatz = DLookup("Z_Text", "tblZusatz", "ZID=" & PrintCount Mod (AnzahlEtiketten + 1))
       Next
     
       
   End If
End Sub


"txtZusatz"  ist ein ungebundenes Textfeld im Detailbereich des Berichtes.

[JOG]

Hallo

Ja, damit hats geklappt und ich bringe meine 5 Zusatzbezeichnung hin. Tip top und vielen Dank.

Nun probier ich die Zusatzbezeichnungen noch unterschiedlich zu formatieren und hoff, dass ichs bald hinkriege... 

Gruss vom Bodensee

JOG