Office: (Office 2016) Problem beim Etikettendruck

In einem Formular wählt man einen Kunden aus, beim Klicken auf Druck wird eine Temp Tabelle erstellt. Abhängig von der Auswahl wird die Adresse im gewählten Feld im Report eingetragen.
Wenn die Adresse zu lang ist , Prüfung habe ich im Report im Detailbereich , soll der Report gar nicht angezeigt werden.
Daran scheitere ich bis jetzt.

Private Sub cmd_Print_Click()
10230 On Error GoTo cmd_Print_Click_Error
Dim iMark As Integer, i As Integer
Dim rs As DAO.Recordset



10240 On Error GoTo cmd_Print_Click_Error
'Temp Tabelle leeren
10250 CurrentDb.Execute "DELETE tblZahnaerzte_Temp.* FROM tblZahnaerzte_Temp;"

'Prüfen ob min. ein Datensatz ausgewählt wurde
10260 iMark = fcDomWert("Name", "Zahnärzte2", "[Print]=-1", ltDCount)

'Wenn kein Datensatz ausgewält wurde ist hier Schluss
10270 If iMark = 0 Then
10280 MsgBox " Keine Daten ausgewählt " & vbCrLf & "Bitte zuerst einen Datensatz per Doppelklick auswählen" & vbCrLf & "und dann links oben das angezeigte Etikett markieren! ", vbInformation + vbOKOnly, " Etikettendruck "
10290 Exit Sub
10300 End If

'Ist Startpostion=1 dann wird der normale Etikettenbericht angezeigt
10310 If Me.cbo_Start = 1 Then
10320 DoCmd.OpenReport "rptEtiketten", acViewPreview
DoCmd.Maximize

10330
10340 Else
'Anzahl der Dummy Datensätze erzeugen für Startpostion
10350 Set rs = CurrentDb.OpenRecordset("tblZahnaerzte_Temp")
10360 For i = 1 To Me.cbo_Start - 1
10370 rs.AddNew
10380 rs!Print = -1
10390 rs.Update
10400 Next i
10410 rs.Close
10420 DoCmd.OpenReport "rptEtiketten", acViewPreview
10430 DoCmd.Maximize
10440 End If
10450 CurrentDb.Execute "UPDATE Zahnärzte2 SET Zahnärzte2.Print = 0;"

10460 On Error GoTo 0
10470 Exit Sub

cmd_Print_Click_Error:

10480 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmd_Print_Click of VBA Dokument Form_frmEtikett"

10490 On Error GoTo 0
10500 Exit Sub

Code im Detailbereich des Berichtes
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

Dim MaxLaenge As Integer

If Nz(Me!txtName, 0) = 0 Then
Me!txtPraxis.Visible = False
Else
Me!txtPraxis.Visible = True
End If
MaxLaenge = 19 ' Hier die maximale Länge festlegen

If Len(Me.txtName.Value) > MaxLaenge Then
MsgBox "Der Text im Feld '" & Me.txtName & "' ist zu lang. " & vbCrLf & "Bitte schliessen sie den öffnenden Bericht" & vbCrLf & " und verwenden sie den Etikettendruck mit Word.", vbCritical, "Textlänge prüfen"

ElseIf Len(Me.Text5.Value) > MaxLaenge Then
MsgBox "Der Text im Feld '" & Me.Text5 & "' ist zu lang. " & vbCrLf & "Bitte schliessen sie den öffnenden Bericht" & vbCrLf & " und verwenden sie den Etikettendruck mit Word.", vbCritical, "Textlänge prüfen"

ElseIf Len(Me.Text6.Value) > MaxLaenge Then
MsgBox "Der Text im Feld '" & Me!Text6 & "' ist zu lang. " & vbCrLf & "Bitte schliessen sie den öffnenden Bericht " & vbCrLf & "und verwenden sie den Etikettendruck mit Word.", vbCritical, "Textlänge prüfen"
End If

End Sub
Die Datenbank wurde nicht von mir erstellt.
Danke

 

Hallo Moci,

das ergibt so keinen Sinn. Diese Prüfungen sollten alle durchgeführt werden, bevor überhaupt eine Temp-Tabelle aufbereitet wird. Erst wenn alle Bedingungen erfüllt sind, wird der Bericht für den Ausdruck geöffnet. Irgendwelche Tricksereien im Detail-Format-Ereignis können damit komplett entfallen.

Bei der Gelegenheit solltest du das Ganze so anpassen, daß erst gar keine Temp-Tabelle verwendet werden muß, weil das unweigerlich zu einem Aufblähen der Datenbank führt.

Knobbi38

 

Danke für die Antwort,
die Temp Tabelle dient dazu den ausgewählten Datensatz an der ausgewählten Stelle im Etikettenbericht zu platzieren da immer nur 1 Etikett gedruckt wird. Das Etikettenpapier hat Din A4 mit 10 Etiketten.
Wo und wie müsste ich die Längenprüfung unterbringen um sie nach Auswahl des Kunden durchzuführen.

 

Es gibt doch sicherlich eine Abfrage, welche als Datenquelle für den Bericht dient. Mit DCount() und den einzelnen Bedingungen jeweils Oder verknüpft als Kriterium könnte vorab geprüft werden, wie viele Datensätze mit diesen Bedingungen von der Abfrage zurückgegeben werden. Ist das Ergebnis größer als 0, wird direkt der Word-Ausdruck verwendet. So wird dem Anwender die Entscheidung gleich mit abgenommen.

Wofür die Temp-Tabelle gedacht ist, ist schon klar, nur kann man das auch mit einer Abfrage erledigen. Dafür wird keine Temp-Tabelle benötigt.