[Resolvido]Código em VBA

Boa noite galera!!!
queria pedir ajuda sobre este codigo abaixo
se vcs poderia corrigir ou acrescentar.
ele deveria verificar todos os registro da tabela jogos
o que ele está fazendo; ele percorre a tabelajogos so que não passa do primeiro registro

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("TEMPRESULTADOSJOGOS") 'Abre tbl_Parcelas

Set db1 = CurrentDb()
Set dyntempven = db1.OpenRecordset("SELECT * FROM RESULTADODOSJOGOS WHERE CONCURSO = " & Me!CONCURSO & "")

Set db2 = CurrentDb()
Set rs = db2.OpenRecordset("SELECT * FROM JOGOS")

For I = 1 To 50
rs.MoveFirst

For X = 1 To 20
BOLADAVEZ = dyntempven("DEZ" & X)
NUMJOGOS = rs("NUM" & I)
'Me.BOLA = BOLADAVEZ
'NUMJOGO = rs("NUM" & I)

If (NUMJOGOS = BOLADAVEZ) Then
rs1.AddNew
rs1!JOGO = rs!JOGO
rs1!CONCURSO = Me.CONCURSO
rs1!NUM = dyntempven("DEZ" & X)
rs1.Update
End If

Next X
rs.MoveNext

Next I
dyntempven.MoveNext


MsgBox ("Operação realizada com sucesso!!!"), vbCritical, NomeDoPrograma


dyntempven.Close
Set dyntempven = Nothing

rs1.Close
Set rs1 = Nothing
rs.Close
Set rs = Nothing

Ola Antonildo

Não há a necessidade de instanciar 2 variáveis para um mesmo banco de dados. vc pode utilizar a mesma para abrir os recordset's desejados.

E a instrução "rs.Movefirst" estava dentro do FOR...NEXT, ou seja, ele sempre vai entrar no 1o. registro. Esta instrução deve estar fora do FOR..NEXT.

Segue código com as devidas correções:

Código:



    Set Db = CurrentDb()
   
    Set rs1 = Db.OpenRecordset("TEMPRESULTADOSJOGOS") 'Abre tbl_Parcelas
    Set dyntempven = Db.OpenRecordset("SELECT * FROM RESULTADODOSJOGOS WHERE CONCURSO = " & Me!CONCURSO & "")
    Set rs = Db.OpenRecordset("SELECT * FROM JOGOS")

    rs.MoveFirst
   
    For I = 1 To 50
        For X = 1 To 20
            BOLADAVEZ = dyntempven("DEZ" & X)
            NUMJOGOS = rs("NUM" & I)
            'Me.BOLA = BOLADAVEZ
            'NUMJOGO = rs("NUM" & I)
            If (NUMJOGOS = BOLADAVEZ) Then
                rs1.AddNew
                rs1!JOGO = rs!JOGO
                rs1!CONCURSO = Me.CONCURSO
                rs1!NUM = dyntempven("DEZ" & X)
                rs1.Update
            End If
        Next X
        rs.MoveNext
    Next I
    dyntempven.MoveNext
   
    MsgBox ("Operação realizada com sucesso!!!"), vbCritical, NomeDoPrograma
   
   
    dyntempven.Close
    Set dyntempven = Nothing
   
    rs1.Close
    Set rs1 = Nothing
    rs.Close
    Set rs = Nothing




Espero ter ajduado.

boa sorte.

[]'s

Bom dia!
Olá Alexandre
muto obrigado pela atenção

estou querendo enviar um exemplo para vc ver mais não estou conseguindo enviar para vc ver pois estar dando erro
so esta verificando e adicionando dos registros.
so poderia e dar uma dica sobre anexar o banco?

veja como ficou o codigo agora!!!
Set db = CurrentDb()

Set rs1 = db.OpenRecordset("TEMPRESULTADOSJOGOS") 'Abre tbl_Parcelas
Set dyntempven = db.OpenRecordset("SELECT * FROM RESULTADODOSJOGOS")
Set rs = db.OpenRecordset("SELECT * FROM JOGOS")

With rs
.MoveLast
ContMax = .RecordCount
.MoveFirst

For I = 1 To ContMax
For X = 1 To 20
BOLADAVEZ = dyntempven("DEZ" & X)
JOGOS = rs("NUM" & I)
'Me.BOLA = BOLADAVEZ
'NUMJOGO = rs("NUM" & I)
If (JOGOS = BOLADAVEZ) Then
rs1.AddNew
rs1!JOGO = rs!JOGO
rs1!CONCURSO = Me.CONCURSO
rs1!NUM = dyntempven("DEZ" & X)
rs1.Update
End If
Next X
rs.MoveNext
Next I
dyntempven.MoveNext

MsgBox ("Operação realizada com sucesso!!!"), vbCritical, NomeDoPrograma

End With

dyntempven.Close
Set dyntempven = Nothing

rs1.Close
Set rs1 = Nothing
rs.Close
Set rs = Nothing

não estou conseguindo enviar o exemplo para vc ver melhor. me envie um email?

sim...manda no email: alex.tfim@gmail.com

abs

Boa noite galera!!!
pra quem interessar o codigo abaixo pesquisa registros em uma tabela e compara com registro de outra tabela
e adiciona as iguas em outra tabela.bom estudo

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("TEMPRESULTADOSJOGOS") 'Abre tbl_Parcelas
Set rs = db.OpenRecordset("SELECT * FROM RESULTADODOSJOGOS")
Set rs2 = db.OpenRecordset("SELECT * FROM JOGOS")

'Percorre os registros, armazenando os nomes"
'na variável strProd
With rs2

If Not .EOF Then
.MoveFirst
Do Until .EOF

For X = 1 To 20

For I = 1 To 50

BOLADAVEZ = rs("DEZ" & X)
NUMJOGO = rs2("NUM" & I)
JOGOS = rs2!JOGO

If (NUMJOGO = BOLADAVEZ) Then
rs1.AddNew
rs1!JOGO = JOGOS
rs1!CONCURSO = Me.CONCURSO
rs1!NUM = BOLADAVEZ
rs1.Update
End If

Next I

Next X
rs2.MoveNext

Loop
Else
MsgBox ("Informações faltando!!!"), vbCritical, NomeDoPrograma
Exit Sub
End If

MsgBox ("Operação realizada com sucesso!!!"), vbCritical, NomeDoPrograma

rs.Close
Set rs = Nothing
rs2.Close
Set rs2 = Nothing
rs1.Close
Set rs1 = Nothing
End With