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

2 participantes

    Gerar Rodada para campeonato.

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


    Respeito às regras : Respeito às Regras 100%

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

    Gerar Rodada para campeonato. Empty Gerar Rodada para campeonato.

    Mensagem  Cláudio Machado 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 : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 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.
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 22/03/2011

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

    Mensagem  fabioavila 1/4/2022, 03:21

    Ola Claudio

    Estou com dificuldades para criar uma rotina parecida com sua só consigo gerar com 4 times, poderia disponibilizar seu exemplo ?

    Att

      Data/hora atual: 25/9/2022, 14:48