MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    comparar resultados da quina

    avatar
    cesarelias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 26/04/2014

    comparar resultados da quina Empty comparar resultados da quina

    Mensagem  cesarelias 12/10/2015, 21:28

    Amigos,

    pesquisando aqui no fórum, achei um código postado em 22/04/2013 com duvida do tonisan2013 e muito bem respondido hary sohn.
    eu consegui adaptar para o que desejo (jogos da quina). porem, o que eu necessito é pegar as informações e lançar em uma nova tabela ou simplesmente gerar uma consulta.
    neste código ele compara cada jogo da tabjogosnovos_jogados com todos os jogos da tabjogos. a cada jogo vai aparecendo pra mim quais os números que acertei e depois diz quantos foram acertados. eu gostaria, ao invés de mostrar na msgbox, copiar o resultado para uma nova tabela ou consulta, para poder analisar como foi minhas apostas. neste modelo, ficaria muito tempo até conseguir ver todos os resultados. tenho 61 resultados para confrontar com 3.900 jogos atuais da quina.

    agradeço a atenção.
    cesar elias


    TabjogosNovos_Jogados
    Tabjogos


    Private Sub Comando1_Click()
    Dim RsResult        As DAO.Recordset
    Dim RsJogo          As DAO.Recordset
    Dim StrSQL          As String
    Dim StrSQL1         As String
    Dim X               As Integer
    Dim Y               As Integer
    Dim nCount            As Integer
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    On Error GoTo TrataErro
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
       StrSQL = "SELECT * FROM TabjogosNovos_Jogados;"
       StrSQL1 = "SELECT * FROM Tabjogos;"
       
       Set RsResult = CurrentDb.OpenRecordset(StrSQL, 4)
       RsResult.MoveLast: RsResult.MoveFirst
       
       Set RsJogo = CurrentDb.OpenRecordset(StrSQL1, 4)
       RsJogo.MoveLast: RsJogo.MoveFirst
       
       nCount = 0
    Continuar:
    Do While Not RsJogo.EOF
       For X = 1 To RsResult.Fields.Count - 1
           For Y = 1 To 5
               If RsJogo(X) = RsResult(Y) Then
                   MsgBox "O Número da Aposta para o Jogo: " & RsJogo(0) & " (" & RsJogo(X) & ")" _
                   & vbNewLine & "confere com  o resultado do Concurso " & RsResult(0) & " (" & RsResult(Y) & ")", vbInformation, "CONFERE"
                   nCount = nCount + 1
               End If
           Next Y
       Next X
    MsgBox "No Jogo " & RsJogo(0) & " Foram acertados " & nCount & " número para o concurso " & RsResult(0) & ""
    nCount = 0
    RsJogo.MoveNext
    Loop
    RsJogo.MoveFirst
    RsResult.MoveNext
    GoTo Continuar
    Exit Sub
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'Tratamento de Erros
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Exit_TrataErro:
       DoCmd.Hourglass False
       DoCmd.Echo True
    Exit Sub
    TrataErro:
       Select Case Err.Number
     Case 3021
         Exit Sub
     Case Else
         DoCmd.Hourglass False
         DoCmd.Echo True
           MsgBox "Erro " & Err.Description & " Número " & Err.Number & ""
     End Select
    End Sub

      Data/hora atual: 28/3/2024, 09:49