MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    comparar resultados da quina

    Compartilhe

    cesarelias
    Novato
    Novato

    Respeito às Regras 100%

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

    comparar resultados da quina

    Mensagem  cesarelias em Seg 12 Out 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: Sab 03 Dez 2016, 15:39