Consulta de tabela nao funciona quando divido banco de dados.

Boa tarde

fiz um BD para minha empresa e preciso marcar quais orçamentos foram e fechados e quais estão em aberto. A solução que pensei era de realizar uma consulta na tabela de PEDIDOS e verificar se o cod_venda estava lá, caso estivesse o formulário apareceria com outra cor e vários botões desativados, caso não estivesse abriria normalmente.

Funcionou normalmente, porem quando dividi o banco de dados ele não funciona mais. Da erro de tempo de execução 3219

se alguém puder me ajudar a consertar isso ou me indicar uma outra solução, seria muito bom, obrigado....


segue a linha de comando:

Código:

Private Sub Form_Load()

Dim mdb As Database
Dim tbl As Recordset

'Abre o Banco de Dados Corrente
Set mdb = CurrentDb
'Abre a Tabela
Set tbl = mdb.OpenRecordset("PEDIDOS", dbOpenTable)

'Inform o Indice a ser usado
tbl.Index = "PRIMARYKEY"

tbl.Seek "=", COD_VENDA

'Teste, não achou
If tbl.NoMatch Then
MsgBox "BEM VINDO, TENHA UM BOM TRABALHO! NÃO ESQUEÇA DE LIGAR PARA O CLIENTE!!!"
Else

Me.FRM_VENDAS_SUB.Enabled = False
Me.TXTCLIENTE.Enabled = False
Me.TXTDATA.Enabled = False
Me.TXTIPI.Enabled = False
Me.Texto39.Enabled = False
Me.Texto41.Enabled = False
Me.Texto43.Enabled = False
Me.BTNGERARK3.Enabled = False
Me.BTNGERAR.Enabled = False
Me.BTNPEDIDO.Enabled = False
Me.BTNALTERAR.Enabled = False
Me.BTNANTERIOR.Enabled = True
Me.BTNEXCLUIR.Enabled = False
Me.BTNNOVO.Enabled = True
Me.BTNPRIMEIRO.Enabled = True
Me.BTNPROXIMO.Enabled = True
Me.BTNULTIMO.Enabled = True
Me.BTNSALVAR.Enabled = False
Me.BTNESTORNAR.Enabled = True
Me.RTORCAMENTO.Visible = False
Me.RTFECHADO.Visible = True
End If
End Sub

Bom dia
experimente
em vez de: Set tbl = mdb.OpenRecordset("PEDIDOS", dbOpenTable)
use: Set tbl = mdb.OpenRecordset("SELECT * FROM PEDIDOS")

ok, neste caso como faço a busca.

pois dessa forma o SEEK nao pode ser usado.

Obrigado

Boa tarde

tentei de outra forma mas consigo consultar apenas o primeiro item da tabela. Pois carrego esse código também nos botões de navegação.

Private Sub Form_Load()

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

'Get the database and Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("PEDIDOS")

'Search for the first matching record


'Check the result
If rst![COD_VENDA] = Me.TXTCOD_VENDA Then

Me.FRM_VENDAS_SUB.Enabled = False
Me.TXTCLIENTE.Enabled = False
Me.TXTDATA.Enabled = False
Me.TXTIPI.Enabled = False
Me.Texto39.Enabled = False
Me.Texto41.Enabled = False
Me.Texto43.Enabled = False
Me.BTNGERARK3.Enabled = False
Me.BTNGERAR.Enabled = False
Me.BTNPEDIDO.Enabled = False
Me.BTNALTERAR.Enabled = False
Me.BTNANTERIOR.Enabled = True
Me.BTNEXCLUIR.Enabled = False
Me.BTNNOVO.Enabled = True
Me.BTNPRIMEIRO.Enabled = True
Me.BTNPROXIMO.Enabled = True
Me.BTNULTIMO.Enabled = True
Me.BTNSALVAR.Enabled = False
Me.BTNESTORNAR.Enabled = True
Me.RTORCAMENTO.Visible = False
Me.RTFECHADO.Visible = True

Else
MsgBox "BEM VINDO, TENHA UM BOM TRABALHO! NAO ESQUEÇA DE LIGAR PARA O CLIENTE!!!"


End If



End Sub

Bom dia,
Utilize o método FindFirst

Valeu mesmo

muito obrigado!!!

funcionou perfeitamente.

Faltou o resolvido