Prüfung ob Server erreichbar.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user