From a386fdd841547637e14215fbf33e81dd935b0d40 Mon Sep 17 00:00:00 2001 From: Developer01 Date: Tue, 19 May 2026 09:11:08 +0200 Subject: [PATCH] =?UTF-8?q?Fehlerbehandlung=20f=C3=BCr=20oExportFilename?= =?UTF-8?q?=20verbessert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Eine zusätzliche Bedingung wurde hinzugefügt, um den Fall zu behandeln, dass `oExportFilename` den Wert `Nothing` hat. In diesem Fall wird eine Log-Nachricht mit dem SQL-Befehl protokolliert und eine Fehlermeldung angezeigt, die den Benutzer auffordert, das Admin-Team zu informieren. Außerdem wurde die bestehende Fehlermeldung angepasst, indem `vbcrlf` durch `vbCrLf` ersetzt wurde, um den Code konsistenter zu gestalten. --- app/TaskFlow/frmValidator.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index 63c39c4..8dec9b2 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -8621,8 +8621,11 @@ Public Class frmValidator MyValidationLogger.Info($"File {oFile2Export} exported successfully!") oCount += 1 Else - MsgBox("Error encountered while extracting Export-Filename!" & vbcrlf & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) + MsgBox("Error encountered while extracting Export-Filename!" & vbCrLf & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If + Else + MyValidationLogger.Info($"#### ATTENTION: oExportFilename is Nothing - SQL: {oSQLGetFilename}") + MsgBox("Error encountered while extracting Export-Filename - Result is Nothing!" & vbCrLf & "Please inform Admin-Team!", MsgBoxStyle.Critical, ADDITIONAL_TITLE) End If Dim oFileCount As Integer = 1