Prüfen ob Abfrage Daten enthält VBA Access?
Hallo zusammen,
ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.
Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.
Teil der Ereignisprozedur "Beim Klicken" für den Button:
Private Sub Befehl96_Click()
Dim stDocName As String Dim fileName, fldrPath, filePath As String Dim answer As Integer Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String 'E-Mail Dim intPort As Integer Dim cdoMsg As CDO.Message
Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoSendUsingPort = 2 stDocName = "Artikeländerungsprotokoll_ARTGruppe" DoCmd.OpenQuery stDocName, acNormal, acEdit fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren" fldrPath = "K:\ARTIKEL\SQL_Protokolle" filePath = fldrPath & "\" & fileName & ".pdf
If Dir(filePath) <> "" Then
answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
"Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
If answer = vbNo Then Exit Sub
End If
DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath
Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.
Ich bin ein Anfänger im programmieren und tue mir schwer...
Kann mir bitte jemand helfen?
1 Antwort
Irgendwo müssen die Daten aus deinem Query doch noch innerhalb Access vorhanden sein. Dies Bereich auf Inhalt prüfen.
Oder
Ein leeres PDF, welches entstanden ist hat eine kleinere (untere) Dateigröße,
wie eine mit Inhalt.
Das Versende-Kriterium könnte also der Dateigröße 'nach' dem Erstellen abgeleitet werden.