Modulo VBA - Erro 424

Boa Tarde

Atualmente estou utilizando o Access 2016 e estou utilizando um VBA que sempre funcionou em versões anteriores do Access,
porem quando estou utilizando na versão 2016 aparece o "erro 424".

Set db2 = CurrentDb()
Set rst2 = db.OpenRecordset("Sorteio", dbOpenSnapshot)

Lembrando que todas variaveis foram declaradas e estou abrindo a tabela somente para leitura.

Waldir boa tarde,

Seja bem-vindo ao fórum!

Por gentileza, poste aqui o seu banco de dados (somente objetos envolvidos no problema) para análise e solução.

Veja no link abaixo como postar:

https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com


Att,

FIM

Não seria este o problema

Set db2 = CurrentDb()
Set rst2 = db.OpenRecordset("Sorteio", dbOpenSnapshot)

Bem observado Mestre DamascenoJr.
Acho que é isso mesmo...

[]'s

Boa tarde

Damaceno, Não entendi a sua postagem, não consegui ver a diferença entre o que eu escrevi e o que você escreveu.

Não viu o 2 no final da primeira variável referenciada mas na variável seguinte onde ela é usada o dois não existir?

Obs: apontei o problema, não escrevi a solução.

Waldir?
O Damasceno ainda marcou em vermelho pra vc ver.

Vc tem a variável "db2" e a "db", mas vc instanciou a "db2" como CurrentDB, porém, vc está tentando criar um recordset com a vairável "db", que não está declarada e nem instanciada.

É isso!