[Resolvido] Compile Error

[Tonhaum 0]

Tenho um Probleminha...

Compile Error:

User-defined type not defined

 

Esse erro esta selecionando:

 

BancoDeDados As Database

 

Do meu codigo que é:

Option Explicit
Dim BancoDeDados As Database
Dim TBBebidas As Recordset

Private Sub Form_Load()
Set BancoDeDados = OpenDatabase(App.Path & "\Receitas.mdb")
Set TBBebidas = BancoDeDados.OpenRecordset("Bebidas", dbOpenTable)

TBBebidas.Index = "IndNome"

cmdGravar.Enabled = False
Frame1.Enabled = False

If TBBebidas.EOF = False Then
AtualizaFormulário
End If
End Sub

Não sei o que está errado ai, porque eu tenho outro arquivo usando um codigo igual(com .mdb e tabelas diferentes) e funcionando normalmente.

Alguem me ajuda ai.

Não sei o que fazer.

=S

..............................................

RESPONDIDO, VLW AEW!!

[Paulo Mendes 0]

Bom Dia.

 

Provavelmente o que deve estar faltando é uma referência ao DAO 3.6. Dê uma checada para ver se está tudo referenciado certinho. O Ideal para não se ter esse problema é sembre declarar suas variáveis de tipo referenciando o caminho da biblioteca, para ficar mais explicito e fácil de enxergar o componente que está usando, por exemplo:

 

Dim Banco as DAO.Database

Dim Table as DAO.Recordset

 

Se não funcionar por favor, retorna ai.

 

Paulo Mendes.

[Tonhaum 0]

Deu certo vlw!

Só que eu não usei o DAO 3.6, eu tava fuçando nas configuração lá e abilitei o DAO 3.51 e deu certinho.

Agora ja ta "funfando".

^^

[Paulo Mendes 0]

Beleza.

 

Se funcionou assim tá legal, mas recomendo que instale a versão nova do DAO se realmente for fazer acesso a um banco de dados Access...acho que no SP5 já vem o DAO 3.6

 

Qualquer coisa é só perguntar.

 

Saudações e até mais.