• 0
Sign in to follow this  
kempo_ghost

Erro 3021 Como Resolver?

Question

Bom dia

alguém me poderia ajudar com este código, ele chega ao fim do ultimo registo da tabela e não continua sad.gif

Private Sub cmddistritos_Click()

Dim num As Integer

Dim registoscp As Integer

Dim palavra As String

bdgestadvogados.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd\gestadvogados.mdb"

tcodigospostais.Open "SELECT * FROM [codigospostais] ORDER BY [id]", bdgestadvogados, adOpenDynamic, adLockOptimistic

tdistritos.Open "SELECT * FROM [distritos] ORDER BY [Nome]", bdgestadvogados, adOpenDynamic, adLockOptimistic

frmActualizacao.MousePointer = vbHourglass

num = 10

While num < 50

Label1.Caption = num

While Not tdistritos.EOF

With tdistritos

.Requery

.Find "[id] like '" & num & "'"

palavra = tdistritos!nome

.Update

'While Not tcodigospostais.EOF

With tcodigospostais

While Not tcodigospostais.EOF

.Requery

.Find "[Distrito] like '" & num & "'"

.Fields(1) = palavra

.Update

lblactual.Caption = .Fields(0).Value

Wend

End With

'Wend

tcodigospostais.MoveFirst

End With

tdistritos.MoveNext

Wend

num = num + 1

Wend

End Sub

Se alguém me pudesse ajudar agradecia.

O erro que da é 3021.

Obrigado

Luis Ricardo

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

e eu sei qual é o erro 3021?

ajuda se você passar a descricao do erro e mostrar qual a linha q da o erro.

senao não da pra ter certeza. mas acho q em vez de:

With tcodigospostais
While Not tcodigospostais.EOF
.Requery
.Find "[Distrito] like '" & num & "'"
.Fields(1) = palavra
.Update
lblactual.Caption = .Fields(0).Value
Wend
End With
você devia fazer:
With tcodigospostais
.Requery
.Find "[Distrito] like '" & num & "'"
If Not tcodigospostais.EOF
.Fields(1) = palavra
.Update
lblactual.Caption = .Fields(0).Value
End If
End With

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this