[Resolvido]Erro em tempo de execução 3219

Boa noite !

Amigos

Após dividir um bd , tive um problema relacionado ao erro "3219", a tabela passou a ser

vinculada e não consigo fazer mais nada no formiulário.

Será que alguém pode dar uma luz, estou mandando uma parte do bd , é só a ri com a tecla shift
e seguir as intruções no formulário etiqueta.

Muito obrigado por enquanto.

Segue o link abaixo

https://www.dropbox.com/s/54uaz5ddvrmlyfu/duvida.rar

Você precisa vincular as tabelas, senão não funcionará.

Bom dia!


Obrigado pelo retorno, mas justamente este é o problema eu ja vinculei
as tabelas e continua dando este erro, por isso mandei parte do bd para vossa
análise que sei encontrará uma solução.

Este tópico até já foi comentado, mas o foco é outro agora!!!

Tem certeza que vinculou as tabelas? No exemplo postando não tem nenhuma tabela vinculada no frontend. Após vincular não deu nenhum erro aqui. Você foi no menu, abriu o backend e escolheu as tabelas para vincular? Ou está querendo vincular por VBA? Se for, aí teria que trocar CurrentDb pelo caminho e nome do backend. Quando se usa CurrentDb, estará passando o banco atual como base, que no caso seria o próprio frontend aonde está o formulário. Se ele não contem nenhuma tabela e nenhum vínculo com tabelas do backend, não irá funcionar.

Bom dia!

Caro, colega

Muito obrigado pela sua atenção, acho que estou então com problema. No meu computador
está instalado o access 2003 e 2013, será que é este o problema , pois no meu computador
as tabelas aparem vinculadas.

Veja a imagem em enxo.

Talvez você tenha alterado a pasta dos arquivos ou aconteceu algo que tenha quebrado os vínculos. Tente revincular clicando com o botão direito em uma das tabelas vinculadas do frontend e usando a opção de gerenciar tabelas vinculadas.

Meu amigo.

Fico muito feliz por me ajudar, você falou uma coisa interessante, como estou com dois access instalado, quando escolho o 2003
beleza ele funciona perfeito mas tem esses problemas, por exemplo tentei fazer isso que você disse de clicar com o botão direito
para gerenciador de tabelas mas não abre nada!!!!

Estou ficando louco!!!!

Bom dia!

Meu caro colega.

Pesquisei várias coisas que vão desde de funções até
o que vocês chamam de "DAO", sinceramente não
consegui chegar a uma conclusão, até que encontrei
isso:

Public Function OpenForSeek(TableName As String) As Recordset
On Error Resume Next
Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
                  (Mid(CurrentDb().TableDefs(TableName).Connect, _
                  11), False, False, "").OpenRecordset(TableName, _
                  dbOpenTable)

End Function

Foi o que me ajudou, pois assim posso trabalhar com o INDEX e SEEK em
tabelas vinculadas independente do "DAO".