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.
