[Resolvido]Verificação de Acertos Jogo de Loteria de loteria

Ola a todos do forum, obrigado pelo espaco oferecido a iniciantes em acces
ja tive uma duvida vim aqui e consegui resolver atraves de exemplos que baixei aqui estudei muito e adaptei ao meu formulario....
enfim ... e se ja tiver algum topico referente ao assunto me perdoem mas nao encontrei

Eu quero gerar uma tabela lotofacil. onde tenha os resultados
e um formulario ....
onde eu digite meu jogo e ele confira os resultados ( do concurso que eu digitar ou opcao de todos consursos)e me retorne quantas vezes esse jogo premiou 11 12 13 14 e 15 vzs...

porem como é para um bolao da empresa .... queria que poder digitar quantos jogos quiser no campo de pesquisa ...
por exemplo
consultar dez jogos ou mais de uma so vez na tabela resultados da lotofacil...

olha se algum souber como eu comeco ou que devo estudar pra iniciar isso ...

eu agradeco muito o perfeito trabalho dos foristas...

um forte abraco

Eu creio que devas ter uma tabela com os campos do resultado... se 6 numeros, 6 campos...

e um procedimento via VBA para comparação campo a campo do resultado com o digitado em uma caixa texto...


De exemplos de um prognostivo e de alguns jogos..

Cumprimentos.

Obrigado pela atencao e disponibilidade de tempo a me responder... quem sabe nao sai alguma coisa com esses bolao neh... rs
bem nao sei onde vcs postam pra baixarem mais facil os exemplos mas postei aqui o
http://www.4shared.com/file/NQJnxhWa/loteria.html


ta bem explicadinho agradeco a toda ajuda .....

Para se tornar mais facil a ajuda, tópico movido para a sala Projetos em Desenvolvimento.

Bem amigão... veja se já pode se virar com este pequeno procedimento.

1 - Crie um botão e nele coloque este código.. Clique e observe

Private Sub Comando25_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 Resultadolotofacil;"
    StrSQL1 = "SELECT * FROM Jogosparaconferir;"
    
    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 15
            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 " & Count & " 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

Cumprimentos.

nossaa obrigado pelo codigo postado ....
eu ja copiei o codigo hj a noite quando chegar em casa eu ja testo ...
valeu mesmo hein... quando concluir tudo ai eu posto o projeto ternimado ....
abracos

Bons Estudos.

bommm dia piloto ... e a todos do forum
bem eu ja ate poderia mudar o nome do topico ... pq eu nao sabia nen por onde comecar, mas agora com essa função que vc mandou, eu ja tenho uma direção ..
eu testei e vou comecar distrinchar a internet para entender linha a linha doque o codigo vba faz.
assim tentar adptar para funcionar ao projeto...
mas vou postando aqui e se tiver mais alguma ajuda ou explicação, exemplos qualquer coisa ... opaa e so mandar que fico felizz

sucesso e progresso

Este código faz a comparação dos jogos na tabela para cada resultado, O exemplo tem 3 jogos... ele compara os mesmos com o primeiro concurso, passando ao proximo.

Com uma boa observação poderá usá-lo para preencher caixas texto, listbox em lista de valores etc.

\Bom Estudo.

Private Sub Comando25_Click()
'Declaração de Variáveis
Dim RsResult        As DAO.Recordset 'Variável para o recordset
Dim RsJogo          As DAO.Recordset 'Variável para o recordset
Dim StrSQL          As String        'Variável do tipo texto para s SQL
Dim StrSQL1         As String        'Variável do tipo texto para s SQL
Dim X               As Integer       'Variável do tipo Inteiro
Dim Y               As Integer       'Variável do tipo Inteiro
Dim nCount          As Integer       'Variável do tipo Inteiro
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Ao ocorrer erro vai para a instrução TrataErro
On Error GoTo TrataErro
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'Carrego a variável com a SQL da tabela Resultadolotofacil
    StrSQL = "SELECT * FROM Resultadolotofacil;"
    'Carrego a variável com a SQL da tabela Jogosparaconferir
    StrSQL1 = "SELECT * FROM Jogosparaconferir;"
    'Seto o recordset para comportar os dados da SQL
    Set RsResult = CurrentDb.OpenRecordset(StrSQL, 4)
    'Movo o recordset para o último registro, depois para o primeiro
    RsResult.MoveLast: RsResult.MoveFirst
    
    'Seto o recordset para comportar os dados da SQL
     Set RsJogo = CurrentDb.OpenRecordset(StrSQL1, 4)
    'Movo o recordset para o último registro, depois para o primeiro    
    RsJogo.MoveLast: RsJogo.MoveFirst
    'Carrego a variável que fará a contagem com o valor 0
    nCount = 0
'Instrução para que ai final do código volte a esta linha
Continuar:
'Faço um loop pelo Recordset com os dados da tabela Jogosparaconferir
Do While Not RsJogo.EOF 'Se o registro ainda não chegou ao fim (EOF - End of File)
    'Carrego X de 1 até o número de campos da tabela (retirando 1 que é o primeiro registro Código da tabela)
    For X = 1 To RsResult.Fields.Count - 1
        'Carrego y com o número de campos referente as apostas
        For Y = 1 To 15
        'Aqui eu inicio 15 loop's sendo que a cada loop o valor de y será incrementado em 1 então o primeiro campo
        'do recordset contendo os jogos será comparado com campo a campo do resultado
        'Ex. A cada loop compara o primeiro campo da tabela jogo consecuitivamente com os campos do resultado (campo a campo)
        'Em sendo iguais emite mensagem do resultado da comparação
            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"
                'Incremento o contador para ao final exibir a quantidade de acertos do jogo relativo ao concurso
                nCount = nCount + 1
            End If
        'Movo y para o próximo valor para ir para o proximo campo do resultado
        Next Y
    'Movo x para o próximo valor para ir para o proximo campo do jogo reinciando a comparaçao com os campos do resultado
    Next X
'Emite mensagem para o jogo em comparação com cada resultado
MsgBox "No Jogo " & RsJogo(0) & " Foram acertados " & Count & " número para o concurso " & RsResult(0) & ""
'Zero o contador para que se proceda a comparação do próximo jogo
nCount = 0
'Movo para o proximo jogo
RsJogo.MoveNext
'Executo o loop
Loop
'Movo para o primeiro registro do jogo novamente para comparar com o proximo concurso
RsJogo.MoveFirst
'Movo para o proximo registro do concurso
RsResult.MoveNext
'Vai para a linha continuar: no código para assim comparar o proximo jogo com os concursos
GoTo Continuar
Exit Sub

Espero que as pequenas explicações possam lhe ajudar a entender melhor o código

piloto e a todos do forum . obrigado pelo tempo dedicado a ajudar iniciantes...
eu ja tentei de varias formas (erradas pq nao deu certo ainda. rs) jogor a quantidade de acertos no campo de texto 11 acertos. que alterei agora apenas para acertos
esse programa e um desafio busquei exemplos no forum de conultas unificadas, filtros de analise combinatorias, buscas integradas, mas ainda nao consegui atingir meu objetivo
eu achei no forum uma biblia do acces que foi postada pelo amigo JPaulo que por sinal parece ser a melhor.... eu vou ler ela pra ver se tem alguma ajuda....
mas se puder mandar algum exemplo pra que eu tentte incluir alguma coisa .... nossa e de otimo tamanho ....







"quem não é visto não é lembrado"
Sucesso e progresso

Para que tanta busca se este código que postei faz exatamente o que voce quer?

Cumprimentos.

nao nao ;.;;; o codigo ta otimo e so alguns detalhes

quando aperto no botao para chamar a funcao .... ele abre uma caixa de dialogo para mostrar numero a numero se acertou ou nao e no final ele sempre retorna o resultado 10 acertos mesmo que tenha acertado mais ou menos,

o campo onde ddigito os concursos que quero que ele faca a pesquisa nao esta funcionado .... ainda que eu peca para ele fazer um deterninada busca ....
tipo do concurso 1 ao 2 .... apenas .... ele vai fazer a busca em todos concursos ...... e nao no que eu digitei para buscar

ele pede confirmacao em ok em cada numero conferido ..... eu queria que me mostrasse apenas quantos acertou e queria que mostrase na caixa de texto

minhas pesquisas e sobre isso .....

as vezes eu posso ter entendido errado o codigo tb

De detalhes que como quer que se proceda...

Responda a estas perguntas..

O Jogo 1 Teve quantos acertos No Concurso1, Concurso2 e concurso3
O Jogo 2 Teve quantos acertos No Concurso1, Concurso2 e concurso3
O Jogo 3 Teve quantos acertos No Concurso1, Concurso2 e concurso3

Cumprimentos.

por exemplo:
o jogo 1 teve no concurso 1 teve 10 no concurso 2 10 acertos e no concurso 3 15 acertos
jogo 2 concurso 1 / 9 acertos concurso 2 10 acertos concurso 3 13 acertos
jogo 3 concurso 1 15 acertos concurso 2 7 acertos concurso 3 10 acertos ;;;;

nao sei se respondi sua pergunta.


---------------------------
oque eu preciso
Vamos supor que eu tenha
10 resultados
e 3 ou mais jogos
e sabemos por nos mesmo que no jogo 1 ,,,, acertou 3 vzes 11 numeros 3 vezes 12 numeros e 4 vezes 13 numeros....

quando fazer a busca na funcao .....
queria que ele pesquisa jogo a jogo e me retornasse dos resultados a quantidade de vezes que ele premiou com 11 12 13 14 15 em todos resultados .......



sera se eu expliquei bem?:
vou tentar fazer no formulario o exemplo

http://www.4shared.com/office/vv3GLqDu/Planilha_para_piloto.html

ola piloto ..... acabei de postar no 4shared uma planilha em excel com algumas macros habilitadas
na aba sorteios estao os concursos na aba jogos estao os jogos que digito e na aba painel esta a macro que confere ..... e so pra vc entender oq eu preciso.....
extamente isso .... o codigo que vc postal esta quase assim ....

De acordo com suas respostas, corrigirei o código para exibir como me respondeu...

Apos isso é so utilizar as respostas exibidas na msgBox para preencher uma caixa texto.

Logo mais verei isso.

Cumprimentos.

Modificado o código... Selecione um concurso na caixa de combinação e ao clicar no botão confere todos os jogos de acordo com o concurso selecionado

' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 27/04/2013
' Comentários   :
'---------------------------------------------------------------------------------------
Private Sub Comando25_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 Resultadolotofacil WHERE concurso = " & Me.CboConcurso.Column(0) & ";"
    StrSQL1 = "SELECT * FROM Jogosparaconferir;"
    
    Set RsResult = CurrentDb.OpenRecordset(StrSQL, 4)
    RsResult.MoveLast: RsResult.MoveFirst
    
    Set RsJogo = CurrentDb.OpenRecordset(StrSQL1, 4)
    RsJogo.MoveLast: RsJogo.MoveFirst
    X = 1
    nCount = 0
Do While Not RsJogo.EOF
Continuar:
        For Y = 1 To 15
            If RsJogo(Y) = RsResult(X) Then
                MsgBox "O Número da Aposta para o Jogo: " & RsJogo(0) & " (" & RsJogo(Y) & ")" _
                & vbNewLine & "confere com  o resultado do Concurso " & RsResult(0) & " (" & RsResult(X) & ")", vbInformation, "CONFERE"
                nCount = nCount + 1
                If X = 15 Then GoTo Continuar1
                X = X + 1
                GoTo Continuar
            End If
        Next Y
        If X < 15 Then X = X + 1: GoTo Continuar
Continuar1:
MsgBox "No Jogo " & RsJogo(0) & " Foram acertados " & nCount & " número para o concurso " & RsResult(0) & ""
nCount = 0
X = 1
RsJogo.MoveNext
Loop
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'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

bommm dia piloto e a todos do forum
em primeiro lugar um grande agradecimento a paciencia e ajuda que o moderador piloto dedicou ao meu projeto
muito obrigado ficou perfeito agora so vou adaptar o visual e ja faz perfeitamente oq eu quero ...
nao sei nen como retribuir , mas fico grato pela ajuda prestada ... nao sei como encerrar o topico ... mas ja foi solucionada minha duvida ... obrigado e forte abraco

Agradeceriamos se ao terminar o projeto postasse um exemplo do mesmo.

Faltou clicar no Joinha da mensagem que o auxiliou.


O Fórum agradece o Retorno.

Boas amigão... tens já um pequeno exemplo do baita para nos brindar?

Cumprimentos.

Ola amigo ...

bem eu ralei pra chegar a esse resultado não consegui fazer da forma exata que eu queria em acces ....
acabei que tenho ele em programação delphi ...  não sei se posso postar um programa aqui n fórum feito em delphi pros amigos .... 
se nao for permitido e só falar que eu excluo no mesmo instante nao quero descumprir nenhuma regra ...


o link ta aqui
http://www.4shared.com/rar/eCqAXl8f/loteria.html



******************* explicando o programa **********************
1 - Carrega um Arquivo a Analisar ( por exemplo, seu arquivo com 1000 jogos )
2 - Carrega outro Arquivo contra o qual quer analisar  ( por exemplo, o Arquivo com 899 resultados ).
3-  Clicando no Botão Fazer analise ele faz exatamente a conferencia mostrando quantos acertos cada jogo fez em cada concurso ... desde 1 acerto ate 20 ou mais  ... serve pra qualquer loteria  .... ele confere bem ate   400 mil jogos ... passando disso ja da erro .... mas acho que é o suficiente .. rsss

 
a) Os arquivos a analisar precisam estar no formato .TXT  

Uma parte muito importante para ajudar é a classificação (para achar os "melhores" conjuntos):
 
O Botão Preparar Pesos por Acertos permite que você coloque "pesos" em cada nível de acerto. Internamente, quando ele terminar a conferência, ele aplica esses pesos e mostra na tela, os conjuntos e suas informações de acerto por ordem de classificação.
Fica a seu critério definir os pesos.
 
*****************************************************
Se interessar alguém .. a minha ideia e achar a melhor combinação na Lotofácil que já premiou 11 pontos ... analisar quantas vezes não não sai aquela combinação e jogar multiplicado por 3 cada concurso ...
começa com 1 no próximo vai com 3 depois 9 ..  e assim vai ate onde puder e não for quebrar ... quando acertar o retorno e garantida em dobro ... bem é isso ...
espero não ter descumprido nenhuma regra .. afinal este é o melhor fórum que já vi referente a  acces e gosto muito ...

qualquer duvida estou a disposição ....

thankss

O Fórum agradece o retorno.