[Resolvido]Loop não funciona em tabela ligada

gwunipessoal 21/9/2016, 19:17

gwunipessoal: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 20
Registrado : 20/03/2013

Mensagem nº1

[Resolvido]Loop não funciona em tabela ligada

Mensagem gwunipessoal 21/9/2016, 19:17

Olá a todos
Estou com um problema numa consulta que gera etiquetas, o problema é que quando dividi a base de dados ela deixou de funcionar, se colocar a tabela na bd (Front-Office) novamente já funciona. Deve ser um coisa simples mas não estou a chegar lá.
Esse é o codigo que tenho no botão:

Private Sub Comando70_Click()
On Error Resume Next
Dim Cont As Integer
If IsNull(Me.Produto) 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ódigoEncomenda] = Produto
TABELA![Tam] = Tam
TABELA![CodBarras] = CodBarras
TABELA![Contador] = 1
TABELA.Update
Loop

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

FabioPaes 21/9/2016, 19:34

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº2

Re: [Resolvido]Loop não funciona em tabela ligada

Mensagem FabioPaes 21/9/2016, 19:34

Tente mudando essa linha:
Set TABELA = db.OpenRecordset("Etiquetas", dbOpenTable)

para:

Set TABELA = db.OpenRecordset("Etiquetas")

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

gwunipessoal 21/9/2016, 19:58

gwunipessoal

gwunipessoal: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 20
Registrado : 20/03/2013

Mensagem nº3

Re: [Resolvido]Loop não funciona em tabela ligada

Mensagem gwunipessoal 21/9/2016, 19:58

Fábio Funcionou perfeitamente.

resolvido está!

Obrigado

**Alexandre Neves** 22/9/2016, 20:37

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº4

Re: [Resolvido]Loop não funciona em tabela ligada

Mensagem Alexandre Neves 22/9/2016, 20:37

[Resolvido]Loop não funciona em tabela ligada MaximoAccess%20ResolvidoPorMarcar

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo