[Resolvido]Não gera consulta em tabela ligada

Boas a todos
Tenho um projeto de um bd onde utilizei uma pequena bd que gera etiquetas a qual descarreguei aqui mesmo no forum, acontece que ao gerar as etiquetas como seguinte código:

Private Sub Gerar_Click()
On Error Resume Next
Dim Cont As Integer

If Me.Produto.ListIndex = -1 Then Exit Sub
If IsNull(Me.Qnt) Then Exit Sub
'Cria referencia ao Corrente DB
Set DB = CurrentDb
'Abre a tabela
Set Tabela = DB.OpenRecordset("Etiquetas", dbOpenTable)

Cont = 0

Do While Me.Qnt <> Cont
Cont = Cont + 1
Tabela.AddNew
Tabela![CódigoProduto] = Produto
Tabela![Contador] = 1
Tabela.Update
Loop

Tabela.Close
Set DB = Nothing
Produto.SetFocus
Me.Refresh

End Sub

se a tabela "Etiquetas" estiver na própria base de dados tudo bem, funciona, se a a tabela "Etiquetas" estiver ligada o DB.OpenRecordset não funciona.

Alguém me sabe explicar porquê!

José

Para tabelas ligadas ou vinculadas use:

Dim Db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.path & "\NomeDoBackEnd.accdb")
Set rs = Db.OpenRecordset("Etiquetas", dbOpenDynaset)


[]'s

Noob

Na verdade as tabelas ligadas são de uma bd em sql, como fazer nesse caso!? Mesmo assim testei o que me indicou e não funcionou!

Bom, então a conversa é diferente.

Dê uma olhada no site Usando Access do nosso colega Avelino.
olhe em:


Acessando dados da Web com o Access

Bom estudo!


Noob

Estive a fazer alguma pesquisa e ficou resolvido da seguinte forma:

Private Sub Comando70_Click()

If IsNull(Me.Produto) Then Exit Sub
If IsNull(Me.Qnt) Then Exit Sub

Dim db As dao.Recordset, Cont As Integer

Set db = CurrentDb.OpenRecordset("SELECT * FROM Etiquetas", dbOpenDynaset, dbSeeChanges)
Cont = 0

Do While Me.Qnt <> Cont
Cont = Cont + 1
db.AddNew
db![CódigoEncomenda] = Produto
db![Tam] = Tam
db![CodBarras] = CodBarras
db![Contador] = 1
db.Update
Loop

db.Close
Set db = Nothing
Qnt.SetFocus
Me.Refresh
End Sub