RUN TIME ERROR 91 VB6

MAYCONBJ 12/08/2013 20:35:26
#427441
Olá pessoal, sou novo nesse quesito de programação, estou fazendo um curso, ai estou fazendo um programa aki.
So que na hora de executar da Run Time Error 91 Object Variable Or With Block Variable Not Set.

Ta ai tudo o que eu fiz ate agora...


Public Dados2000 As Database
Public TBClientes As Recordset
Public TBFornecedores As Recordset
Public TBProdutos As Recordset
Public TBFuncionários As Recordset
Public BuscaFornecedor As String
Public BuscaProdutos As String
Public BuscaClientes As String

Public Sub AbreArquivo()
Set BancoDeDados = OpenDatabase(App.Path & [Ô]\Dados2000.mdb[Ô])
Set TBClientes = Dados2000.OpenRecordset([Ô]Clientes[Ô], dbOpenTable)
Set TBFornecedores = Dados2000.OpenRecordset([Ô]Fornecedores[Ô], dbOpenTable)
Set TBProdutos = Dados2000.OpenRecordset([Ô]Produtos[Ô], dbOpenTable)
Set TBFuncionarios = Dados2000.OpenRecordset([Ô]Funcionarios[Ô], dbOpenTable)
End Sub

Public Sub FechaArquivo()
TBClientes.Close
TBFuncionários.Close
TBFornecedores.Close
TBProdutos.Close
BancoDeDados.Close
End Sub

Function Cabecalho(Titulo As String)
Printer.Print
Printer.Print
Printer.FontName = [Ô]arial[Ô]
Printer.FontSize = 24
Printer.Print [Ô]Sistema Integrado de Controle de Estoque[Ô]
Printer.FontSize = 14
Printer.Print Titulo; Tab(70); Date & [Ô]-[Ô] & Time
Printer.Print String(80, [Ô]-[Ô])
End Function


Private Sub MDIForm_Load()
AbreArquivo
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
FechaArquivo
End Sub


Se alguem conseguir me ajudar agradeço muito :)

Desculpe ae caso criei o topico e não devia ou algo parecido
OMAR2011 12/08/2013 21:29:33
#427442
[txt-color=#e80000]Public Dados2000 As Database[/txt-color]
Public TBClientes As Recordset
Public TBFornecedores As Recordset
Public TBProdutos As Recordset
Public TBFuncionários As Recordset
Public BuscaFornecedor As String
Public BuscaProdutos As String
Public BuscaClientes As String

Public Sub AbreArquivo()
Set [txt-color=#e80000]BancoDeDados[/txt-color] = OpenDatabase(App.Path & [Ô]\Dados2000.mdb[Ô])
Set TBClientes = Dados2000.OpenRecordset([Ô]Clientes[Ô], dbOpenTable)
Set TBFornecedores = Dados2000.OpenRecordset([Ô]Fornecedores[Ô], dbOpenTable)
Set TBProdutos = Dados2000.OpenRecordset([Ô]Produtos[Ô], dbOpenTable)
Set TBFuncionarios = Dados2000.OpenRecordset([Ô]Funcionarios[Ô], dbOpenTable)
End Sub
Tem que ser,

Set [txt-color=#007100]Dados2000[/txt-color] = OpenDatabase(App.Path & [Ô]\Dados.mdb[Ô])
OMAR2011 12/08/2013 21:31:09
#427443
Tem que ser,

Set [txt-color=#007100]Dados2000[/txt-color] = OpenDatabase(App.Path & [Ô]\Dados2000.mdb[Ô])
LCGALVAO 14/08/2013 21:41:36
#427559
Boa noite! Tenho encontrado enormes dificuldades em obter o disco de instalação do VB6. Utilizar a opção de download em sites de Torrents infelizmente está fora de cogitação. Estou algo familiarizado na linguagem do VB6 e não pensaria em abandoná-lo para iniciar [Ô]vida nova numa outra língua[Ô]. Aos parceiros deste Fórum, eu tenho alguma esperança de obter o programa? Muito obrigado.
OMAR2011 14/08/2013 23:20:01
#427562
Vamos Lá.
Tem que ler as regras.
Você postou sua mensagem no lugar errado.
Terá você que criar o seu próprio post.
Use o emule e vai baixar o programa.
Valeu maluco.
EPISCOPAL 15/08/2013 09:16:40
#427566
Citação:

Boa noite! Tenho encontrado enormes dificuldades em obter o disco de instalação do VB6. Utilizar a opção de download em sites de Torrents infelizmente está fora de cogitação. Estou algo familiarizado na linguagem do VB6 e não pensaria em abandoná-lo para iniciar [Ô]vida nova numa outra língua[Ô]. Aos parceiros deste Fórum, eu tenho alguma esperança de obter o programa? Muito obrigado.




é melhor voce pesquisar antes de perguntar, senão alguns usuários vai te dar paulada (por causa das regras do forum) ... de uma olhada aqui

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=426411&varWorld=
MAYCONBJ 19/08/2013 19:10:54
#427806
Ae amigo valeu pela atenção, fiz o que você disse mais agora esse erro:

Run Time Error 3011

O mecanismo de banco de dados Microsoft Jet não pode encontrar o objeto [ô]Clientes[ô]. Certifique-se de que o objeto exista e de ter
digitado seu nome e caminho corretamente.

Ae como esta agora

Public Dados2000 As Database
Public TBClientes As Recordset
Public TBFornecedores As Recordset
Public TBProdutos As Recordset
Public TBFuncionários As Recordset
Public BuscaFornecedor As String
Public BuscaProdutos As String
Public BuscaClientes As String

Public Sub AbreArquivo()
Set Dados2000 = OpenDatabase(App.Path & [Ô]\Dados2000.mdb[Ô])
Set TBClientes = Dados2000.OpenRecordset([Ô]Clientes[Ô], dbOpenTable)
Set TBFornecedores = Dados2000.OpenRecordset([Ô]Fornecedores[Ô], dbOpenTable)
Set TBProdutos = Dados2000.OpenRecordset([Ô]Produtos[Ô], dbOpenTable)
Set TBFuncionarios = Dados2000.OpenRecordset([Ô]Funcionarios[Ô], dbOpenTable)
End Sub

Public Sub FechaArquivo()
TBClientes.Close
TBFuncionários.Close
TBFornecedores.Close
TBProdutos.Close
BancoDeDados.Close
End Sub

Function Cabecalho(Titulo As String)
Printer.Print
Printer.Print
Printer.FontName = [Ô]arial[Ô]
Printer.FontSize = 24
Printer.Print [Ô]Sistema Integrado de Controle de Estoque[Ô]
Printer.FontSize = 14
Printer.Print Titulo; Tab(70); Date & [Ô]-[Ô] & Time
Printer.Print String(80, [Ô]-[Ô])
End Function


Private Sub MDIForm_Load()
AbreArquivo
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
FechaArquivo
End Sub

Obrigado
OMAR2011 19/08/2013 19:59:22
#427813
Public Sub AbreArquivo()
Set Dados2000 = OpenDatabase(App.Path & [Ô]\Dados2000.mdb[Ô])
[txt-color=#e80000] Set TBClientes = Dados2000.OpenRecordset([Ô]Clientes[Ô], dbOpenTable)[/txt-color] Set TBFornecedores = Dados2000.OpenRecordset([Ô]Fornecedores[Ô], dbOpenTable)
Set TBProdutos = Dados2000.OpenRecordset([Ô]Produtos[Ô], dbOpenTable)
Set TBFuncionarios = Dados2000.OpenRecordset([Ô]Funcionarios[Ô], dbOpenTable)
End Sub

Public Sub FechaArquivo()
TBClientes.Close
TBFuncionários.Close
TBFornecedores.Close
TBProdutos.Close
[txt-color=#e80000]BancoDeDados.Close[/txt-color] [ô]Não existe.Public [txt-color=#007100]Dados2000[/txt-color] As Database
End Sub

Este erro é referente ao nome da tabela,pode esta com nome trocado ou ela não existe.
Faça seu login para responder
Voltar