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


    Gerar Rodada para campeonato.

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1537
    Registrado : 17/03/2011

    Gerar Rodada para campeonato. Empty Gerar Rodada para campeonato.

    Mensagem  Cláudio Machado em 13/5/2019, 18:28

    Boa tarde.
    Peguei este código do Tópico do Assis que é muito bom por sinal.

    Está gerando as partidas corretamente, só o que falta são as Rodadas, gostaria de gerar as Rodas de acordo com os jogos.

    Código:

    'GERAR OS JOGOS
    Set Rst1 = CurrentDb.OpenRecordset("SELECT Equipe FROM Equipes;")
    Set Rst2 = CurrentDb.OpenRecordset("SELECT Equipe FROM Equipes;")
    Do While Not Rst1.EOF
    Rst2.MoveFirst
    Do While Not Rst2.EOF
    If Rst1(0) <> Rst2(0) Then CurrentDb.Execute "INSERT INTO Partidas(TR,Mandante,Visitante,Temporada) VALUES ('" & Turno.Column(0) & "','" & Rst1(0) & "','" & Rst2(0) & "','" & Forms("GERAR_PARTIDAS")!Temporada & "');"
    Rst2.MoveNext
    Loop
    Rst1.MoveNext
    Loop
    Set Rst1 = Nothing: Set Rst2 = Nothing
    MsgBox " Sorteio das Partidas Terminada ", vbExclamation, "Gestão de Futebol"
    Me.Turno = Null
    Me.Temporada = Null
    Form.Requery
    Else
    DoCmd.CancelEvent

    Exit Sub
    End If


    Agradeço Antecipadamente.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Gerar Rodada para campeonato. 90dssg para agradecer a dica que solucionou seu problema.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1537
    Registrado : 17/03/2011

    Gerar Rodada para campeonato. Empty Re: Gerar Rodada para campeonato.

    Mensagem  Cláudio Machado em 15/5/2019, 17:20

    Boa tarde.
    Alguém?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Gerar Rodada para campeonato. 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 21/9/2019, 16:50