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]
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..
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
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
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.
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