...I did more testing and found that if I delete a call to a public function that exists in other code in a module within the same project, the error doesn't happen .
At first, I didn't post the code of this function here because it is not related to the variable, but somehow I think that the variable I highlighted is losing reference after calling this public function from another module.
Here goes the code with the call:
Dim WithEvents INDICE_LISTA_AB As Tag
Dim Read As String
Dim WithEvents Ogroup As TagGroup
Private Sub Display_AnimationStart()
On Error GoTo Err
Read = "SELECT TOP (1) [Num] FROM [DB].[dbo].[Table] order by [Num] desc"
ExSQL (Read)
If Ogroup Is Nothing Then
Set Ogroup = Application.CreateTagGroup(Me.AreaName, 1000)
Ogroup.Add "{/CB/CC/DATA::[PLC]INDICE_LISTA_AB}"
End If
Ogroup.Active = True
Set INDICE_LISTA_AB = Ogroup.Item("{/CB/CC/DATA_CCO::[PLC]INDICE_LISTA_AB}")
INDICE_LISTA_AB.Value = 0
Exit Sub
Err:
LogDiagnosticsMessage Err.Description, ftDiagSeverityError
End Sub
Private Sub Input_Change()
On Error GoTo Err
If (Not INDICE_LISTA_AB.Value = 0) Then
Button.Enabled = True
Button.ForeColor = RGB(0, 0, 0)
Else
Button.Enabled = False
Button.ForeColor = RGB(192, 192, 192)
End If
Exit Sub
Err:
LogDiagnosticsMessage Err.Description, ftDiagSeverityError
End Sub
If I eliminate either the red highlighted part or the yellow one, the error does not happen.
