none
Excel - Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida RRS feed

  • Pergunta

  • Boa tarde pessoas,

    Estou recebendo esse erro 91 e não consigo fazer ideia do que estou fazendo errado. Basicamente criei dois módulos de classe um "registro" e "DsModeloProdutoMedico" (que ainda está praticamente vazia, não fiz ainda).

    Sempre que chega na linha "DS_MODELO_PRODUTO_MEDICO = lista" ele me retorna esse erro.

    Alguma ideia? O que isso significa?

    Pedaço do código:

                                                                                                                                                                                                                                                                                                                                                 
    Sub Test()

    Dim regAnv As registro
    Set regAnv = New registro

        regAnv.listaModelosRegistro = "valor teste"
        
    End Sub

    Option Explicit

    Private DS_MODELO_PRODUTO_MEDICO As DsModeloProdutoMedico

    Property Let listaModelosRegistro(listaModelosRegistro As String)
                Dim nula As Boolean
                Dim lista As DsModeloProdutoMedico

                If Len(listaModelosRegistro) <> 0 Then
                    nula = False
                Else
                    nula = True
                End If

               'A lista informada é vazia?
                If nula Then

                        Err.Raise LISTA_MODELOS_REGISTRO_INVALIDO
                        Debug.Print "Error " & Err.Number
                        erroEncontrado (Err.Number)
                Else
                        'Caso a lista não seja nula, começa o tratamento neste ponto
                        Set lista = New DsModeloProdutoMedico


                        DS_MODELO_PRODUTO_MEDICO = lista 'Aqui acontece o erro


                End If

    End Property

    Alguém me ajuda?

    Obrigado




    sexta-feira, 18 de julho de 2014 20:00