Bom dia
Eu tentei procurar no fórum, porém não encontrei nada neste sentido.
Eu copiei esse código de um exemplo que fizeram para mim, que ele testa se o objeto existe, e mostra a mensagem caso não exista. Contudo ele está dando erro nesta parte já: set testObj = dvr.Item(Parent.Item(“Grupo1”).Item(“spNome”).Value)
O que estou fazendo de errado? Ou qual a forma correta de verifricar se o objeto existe no E3?
'Local do driver
set dvr = Application.GetObject(Parent.Item("Grupo1").Item("spDrive").Value)
set dvrr = Application.GetObject("Dados")
'Verifica se existe o bloco de comunicação
'procura o bloco para saber se realmente apagou
set testObj = dvr.Item(Parent.Item("Grupo1").Item("spNome").Value)
set testObjj = dvrr.Item(Parent.Item("Grupo1").Item("spNome").Value)
'se ocorreu um erro, o objeto foi apagado
If Err.Number <> 1 then
'Apaga o bloco
.....
'Anula o “On Error Resume Next”.
on error goto 0
Else
Msgbox("O bloco de comunicação " & Parent.Item("Grupo1").Item("spNome").Value & " não existe, por este motivo, será criado!")
End if
Agradeço desde já.