Início
Cláudio Machado 13/5/2019, 18:28Boa 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.
Agradeço Antecipadamente.
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.
para agradecer a dica que solucionou seu problema.
