MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Código em VBA

    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 13/03/2014

    [Resolvido]Código em VBA Empty [Resolvido]Código em VBA

    Mensagem  Antonildo em Qui 07 Nov 2019, 4:37 pm

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 843
    Registrado : 13/12/2016

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Alexandre Fim em Sex 08 Nov 2019, 8:22 am

    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 13/03/2014

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Antonildo em Sex 08 Nov 2019, 10:07 am

    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
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 13/03/2014

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Antonildo em Sex 08 Nov 2019, 11:18 am

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 843
    Registrado : 13/12/2016

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Alexandre Fim em Sex 08 Nov 2019, 12:46 pm

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

    abs


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Antonildo
    Antonildo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 13/03/2014

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Antonildo Ontem à(s) 5:07 pm

    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



    Conteúdo patrocinado

    [Resolvido]Código em VBA Empty Re: [Resolvido]Código em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 12 Nov 2019, 9:36 am