Jump to content
Fórum Script Brasil
  • 0

Erro em tempo de execução 9


Question

Caros amigos,

Sou novo aqui, necessito de ajuda. Se possível!  No código abaixo que estou adaptando está dando "Erro em tempo de execução 9: Subscrito forna do intervalo" na linha GuardaValorX(IndiceX) = rs![ValorX]. Sei que tem haver com o vetor/array, já pesquisei muito aqui e fora e nada consegui. Sei que para vocês isso é um café pequeno. Este código ler uma tabela, faz alguns comparativos/testes e grava em um campo.

Alguém pode me iluminar nesta tarefa?

Private Sub Comando10_Click()

Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rsV As DAO.Recordset
Set db = CurrentDb()
Dim contaReg As Integer

Set rs = db.OpenRecordset("SELECT * FROM [ValorMoedaY]")
Set rsV = db.OpenRecordset("ValorMoedaY")


contaReg = rsV.RecordCount
'contaReg = rs.RecordCount
Dim AcumulaX As Integer
Dim DescAcumulaX As Integer
Dim GuardaValorX(24) As Integer
Dim IndiceX As Integer
Dim IndiceAntX As Integer

AcumulaX = 0
DescAcumulaX = 0
IndiceX = 0
IndiceAntX = 0

MsgBox "NÚMERO DE REGISTROS DA TABELA VALORMOEDAY: " & contaReg

Do While Not rs.EOF
  rs.Edit
      IndiceX = IndiceX + 1
      AcumulaX = AcumulaX + rs![ValorX]
      If IndiceX = 15 Then
         rs("CalculoValor") = AcumulaX / 14
      End If
      If IndiceX > 15 Then
           IndiceAntX = IndiceX - 14
           DescAcumulaX = AcumulaX - GuardaValorX(IndiceAntX)
           rs("CalculoValor") = DescAcumulaX / 14
       End If
       'MsgBox "IndiceX: " & IndiceX & "    AcumulaX: " & AcumulaX & "   IndiceAntX: " & IndiceAntX & "   DescAcumulaX: " & DescAcumulaX & "   GuardaValorX: " & GuardaValorX(IndiceAntX)

         
       GuardaValorX(IndiceX) = rs![ValorX] '<<<<<<<----------<<<<----------------------  é aqui -------<<<<------------- é aqui -------<<<<--------
     
      rs.Update
      rs.Requery
         
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
db.Close
Set db = Nothing

MsgBox "Cálculo concluído com sucesso...Tecle ENTER"

'MsgBox "TERMINADO..."

Exit Sub
trata_erro:
   
 Call MsgBox("Erro nº " & Err.Number & " - " & Err.Description)

'MsgBox "Cálculo concluído com sucesso..."
End Sub

 

Muito obrigado.

 

Abraços

 

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

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.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644531
×
×
  • Create New...