From 9da4779b7e7d0f29911225404a589525acc757de Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 16 Mar 2023 20:44:32 +0100 Subject: [PATCH] =?UTF-8?q?Pr=C3=BCfung=20ob=20Server=20erreichbar.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAGAddIn/ThisAddIn.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/VERAGAddIn/ThisAddIn.vb b/VERAGAddIn/ThisAddIn.vb index 2ce294e..be25520 100644 --- a/VERAGAddIn/ThisAddIn.vb +++ b/VERAGAddIn/ThisAddIn.vb @@ -184,7 +184,7 @@ Public Class ThisAddIn For Each COMAddIn As COMAddIn In Me.Application.COMAddIns If COMAddIn.ProgId.Contains("VERAGAddIn") Then - If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then + If con.getValueTxtBySql("SELECT 1", "AVISO") <> 1 Then MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet") COMAddIn.Connect = False End If