Prüfung ob Server erreichbar.

This commit is contained in:
2023-03-16 20:44:32 +01:00
parent aec0f2a4b7
commit 9da4779b7e

View File

@@ -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