Jag har en server applikation (OPC) snurrande på en annan dator. Problemet är att kommunikationen med denna dator är lite dålig. Jag skulle vilja kolla av min status med jämna mellanrum och se om kontakten fortfarande finns. Jag får felet [Run time error 462] 'The remote server machine does not exist or is unavailible'.
Jag har försökt med <code>IsError</code> funktionen enligt nedan men det fungerar inte, jag får upp fellmeddelandet ändå.
Finns det någon (det vet jag att det finns) som har något smart förslag?

//UJ

<code>
Private Sub timNormaldrift_Timer()

'-Kolla om OPC servern fungerar, om inte kör if-satsen

If IsError(AnOPCServer.ServerState) Then
Set AnOPCServer = Nothing
Call RestartOPC
Exit Sub
End If

Label1.Caption = "Status OK"
Exit Sub
End Sub
</code>

Vad är AnOPCServer.ServerState för någon sorts variabel?<br><br>

Du skulle ju kunna testa med
<code>
Private Sub timNormaldrift_Timer()
Dim Dummy As Variant
'-Kolla om OPC servern fungerar, om inte kör if-satsen
On Error Resume Next
Dummy = AnOPCServer.ServerState
If Err Then
Err.Clear
Set AnOPCServer = Nothing
Call RestartOPC
Else
Label1.Caption = "Status OK"
End If
On Error Goto 0
End Sub
</code>

Fast jag tror inte att det fungerar. Felet verkar genereras i OPC-kontrollen (eller -klassen?).<br><br>

/Niklas Jansson