Erro ao gravar um historico por evento na linha do WriteRecord()

Sub PICKIN_RANGE_R1_Evento1()
Application.Trace"Disparou o evento RA"
If (Value=>1) then
Application.Trace"entrou no IF RA"
Application.GetObject(“HIST_R1”).WriteRecord()
End if
End Sub

Olá @eanjos,

Altere as aspas(" ") na linha do WriteRecord. Ao copiar e colar este script, é possível notar que as aspas deste trecho é diferente das demais das linhas anteriores:

image

Com as aspas alteradas:

image

Att,
Lucas Angelo