CONEXAO BANCO ACCESS
Amigos,
Boa tarde!
Estou fazendo conexão com banco de dados access, porém a mensagem de erro que ocorre é:
Run Timer error [ô]13[ô]:
Type mismatch
Minhas linhas de código estão da seguinte forma:
Private Sub Form_Load()
Global senha, semana, mtipopes As String
Global minhadata As Date
Global banco As Database
Global tpessoas As Recordset
[ô] PREPARA PARA PEGAR DATA DO SISTEMA
minhadata = Weekday(Date)
Call diasemana
[ô] frmLogin.Show 1
[ô] CRIA AMBIENTE DE BANCO DE DADOS
Set banco = OpenDatabase(App.Path + [Ô]\DBDADOS.MDB[Ô], False, False)
Set tpessoas = banco.OpenRecordset([Ô]pessoas[Ô])
End Sub
Boa tarde!
Estou fazendo conexão com banco de dados access, porém a mensagem de erro que ocorre é:
Run Timer error [ô]13[ô]:
Type mismatch
Minhas linhas de código estão da seguinte forma:
Private Sub Form_Load()
Global senha, semana, mtipopes As String
Global minhadata As Date
Global banco As Database
Global tpessoas As Recordset
[ô] PREPARA PARA PEGAR DATA DO SISTEMA
minhadata = Weekday(Date)
Call diasemana
[ô] frmLogin.Show 1
[ô] CRIA AMBIENTE DE BANCO DE DADOS
Set banco = OpenDatabase(App.Path + [Ô]\DBDADOS.MDB[Ô], False, False)
Set tpessoas = banco.OpenRecordset([Ô]pessoas[Ô])
End Sub
você fez referência a microsoft DAO 3.51 e project/references
Fiz a referência DAO 3.6
em que linha dá este erro?
Está nesta linha: Set tpessoas = banco.OpenRecordset([Ô]pessoas[Ô])
Cybermac esse é um tÃpico erro de conversão, já peguei muito isso nos meus projetos, o que pode estar acontecendo é que existe algum tipo de dado que ele não esteja conseguindo converter, algo que não posso estar nulo na tabela e ele esta por exemplo, pq nesse caso ele esta tentando acessar um registro inválido, talvez seja até mesmo o primeiro registro
Da uma olhada se não é isso
Da uma olhada se não é isso
Infelizmente ainda não deu certo.
Ao executar o projeto com o F5, o a mensagem de Tipo incompatÃvel aparece na linha on estou criando o ambiente para a tabela pessoas, neste caso:
Set tpessoas = banco.OpenRecordset([Ô]pessoas[Ô]) .
Vlw pessoal e obrigado pela ajuda.
Ao executar o projeto com o F5, o a mensagem de Tipo incompatÃvel aparece na linha on estou criando o ambiente para a tabela pessoas, neste caso:
Set tpessoas = banco.OpenRecordset([Ô]pessoas[Ô]) .
Vlw pessoal e obrigado pela ajuda.
Adiciona seu projeto, ai o pessoal vai verificar.
Apenas o necessário.
Fiz um teste aqui é não apresentou erro, porém tive que tirar as declarações do Load.
Eu declaro desta forma.
Global Banco As DAO.Database
Global tpessoas As DAO.Recordset
Isto num modulo.
Apenas o necessário.
Fiz um teste aqui é não apresentou erro, porém tive que tirar as declarações do Load.
Eu declaro desta forma.
Global Banco As DAO.Database
Global tpessoas As DAO.Recordset
Isto num modulo.
CYBERMAC coloca o seu banco aqui para testar, pq eu usei a mesma referencia que vc usou, só criei em um módulo as variáveis globais e deixei no load do form a abertura do banco e da tabela, e funcionou certinho e usei um banco antigo que eu tenho em access
Ficou assim no Módulo
Option Explicit
Global Banco As Database
Global tpessoas As Recordset
Ficou assim no form
Private Sub Form_Load()
[ô] CRIA AMBIENTE DE BANCO DE DADOS
Set Banco = OpenDatabase([Ô]C:\Programas\Mercado Marisa\Mercado.MDB[Ô], False, False)
Set tpessoas = Banco.OpenRecordset([Ô]cliente[Ô])
End Sub
Ficou assim no Módulo
Option Explicit
Global Banco As Database
Global tpessoas As Recordset
Ficou assim no form
Private Sub Form_Load()
[ô] CRIA AMBIENTE DE BANCO DE DADOS
Set Banco = OpenDatabase([Ô]C:\Programas\Mercado Marisa\Mercado.MDB[Ô], False, False)
Set tpessoas = Banco.OpenRecordset([Ô]cliente[Ô])
End Sub
Pessoal,
Segue meu projeto.
O Form é: frmpessoas
Obrigado pela ajuda!
Segue meu projeto.
O Form é: frmpessoas
Obrigado pela ajuda!
CYBERMAC, coloca ai o comando
Set Itens = Banco.OpenRecordset([Ô]cliente[Ô], dbOpenTable) ao invés de Set tpessoas = Banco.OpenRecordset([Ô]cliente[Ô])
Isso declara o que vc qr fazer com a tabela, faltou isso no seu comando DBOPENTABLE
Consegui reproduzir a mensagem que deu ai para vc e resolvi com o comando que te passei
Fiz isso aqui e deu certinho
Set Itens = Banco.OpenRecordset([Ô]cliente[Ô], dbOpenTable) ao invés de Set tpessoas = Banco.OpenRecordset([Ô]cliente[Ô])
Isso declara o que vc qr fazer com a tabela, faltou isso no seu comando DBOPENTABLE
Consegui reproduzir a mensagem que deu ai para vc e resolvi com o comando que te passei
Fiz isso aqui e deu certinho
Tópico encerrado , respostas não são mais permitidas