Não consigo acessar meu projeto

[T@ty 0]

Bom dia Pesoal ,

 

Após colocar a seguinte instrução no form load não consigo acessar meu projeto pois aparece erro solicita Debug.

 

'declara objetos de acesso a banco de dados

Dim BaseDeDados As Database

Dim Clientes As Recordset

'abre banco de dados na área de rabalho default

Set BaseDeDados = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\Vídeo.Mdb")

'abre tabela

Set Clientes = BaseDeDados.OpenRecordset("Clientes", dbOpenTable)

Clientes.Index = "Código"

Set Fitas = BaseDeDados.OpenRecordset("Fitas", dbOpenTable)

Fitas.Index = "CódFita"

 

'preenche caixa de combinação

While Not Clientes.EOF

cboCódigo.AddItem Format(Clientes("Código"), "0000")

Clientes.MoveNext

Wend

 

While Not Fitas.EOF

If Not Fitas("Emprestadas") Then

cboCódFita.AddItem Format(Fitas("CódFitas"), "0000")

End If

Fitas.MoveNext

Wend

 

Já agradeço pela atenção

[Raphael_Suporte 0]

você está informando certo a pasta \video.mdb, acho que o caminho não está correto, falta informação

[T@ty 0]

Olá.....

Valeu pela ajuda mas descobri que o problema está no nome dos campos que deve está com divergência do formulário com a tabela. pois o Debug mostra problemas nas linha abaixo

 

'abre tabela

Set Clientes = BaseDeDados.OpenRecordset("Clientes", dbOpenTable)

Clientes.Index = "Código"

Set Fitas = BaseDeDados.OpenRecordset("Fitas", dbOpenTable)

Fitas.Index = "CódFita

no momento o problema está no linha em negrito.

[LCS 0]

esta faltando uma " no fim da linha

 

esse campo fitas é um textbox ou um combobox?