none
Duvida VBA - Principiante RRS feed

  • Pergunta

  • Boa tarde

    Estou aprendendo agora a trabalhar com VBA, então estou com uma dúvida bem básica.

    Eu criei um modulo de classe e uma função dentro dela que está fazendo um select no banco de dados.

    Segue o código da função abaixo:

    Public Function FindAll() As Recordset
            Set FindAll = CurrentDb.OpenRecordset("Select vcName, vcPhoneNumber, vcCpf, vcAddress, idState, vcGender From tblClient")
        End Function
    

    Estou chamando está função dentro do evento de um botão do meu formulário, e está sendo inserido em um subformulário,
    segue esta linha de código abaixo.

    Me.sbfClients.Form.Recordset = clsClientClass.FindAll()
    

    Ao rodar a minha aplicação e clicar neste botão, recebo o seguinte erro:

    A variável do objeto ou a variavel do bloco 'With' não foi definida.

    Alguem sabe alguma solução para este problema?

     

    Obrigado.


    Tiago Sampaio Correa, .Net Developer.
    sexta-feira, 3 de fevereiro de 2012 17:48

Respostas

  • Tens de declarar e inicializar um objecto da class antes de chamares os seus métodos.

     

    Será tipo:   Dim  C as New clsClientClass

    E só depois:  Me.sbfClients.Form.Recordset = C.FindAll()

    sexta-feira, 3 de fevereiro de 2012 21:06