Ir para conteúdo
Fórum Script Brasil
  • 0

Erro 3021 Como Resolver?


kempo_ghost

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...