[Resolvido]Rotina de criar tabela jornadas de jogos de futebol

Boa noite
Preciso de ajuda para este exemplo
http://dl.dropbox.com/u/8169944/Campeonato.zip

Boa noite, Assis

Utilize este código:
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM Equipas;"
Set Rst1 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Do While Not Rst1.EOF
Rst2.MoveFirst
Do While Not Rst2.EOF
If Rst1(0) <> Rst2(0) Then CurrentDb.Execute "INSERT INTO Jornadas(Visitado,Visitante) VALUES ('" & Rst(0) & "','" & Rst2(0) & "');"
Rst2.MoveNext
Loop
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
Cumprimentos,

Boa noite Alexandre
Utilizei a função no botão e para no vermelho

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM Equipas;"
Set Rst1 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Do While Not Rst1.EOF
Rst2.MoveFirst
Do While Not Rst2.EOF
If Rst1(0) <> Rst2(0) Then CurrentDb.Execute "INSERT INTO Jornadas(Visitado,Visitante) VALUES ('" & Rst(0) & "','" & Rst2(0) & "');"
Rst2.MoveNext
Loop
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing

Utilize:

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM Jornadas;"
Set Rst1 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT Equipa FROM Equipas;")
Do While Not Rst1.EOF
Rst2.MoveFirst
Do While Not Rst2.EOF
If Rst1(0) <> Rst2(0) Then CurrentDb.Execute "INSERT INTO Jornadas(Visitado,Visitante) VALUES ('" & Rst1(0) & "','" & Rst2(0) & "');"
Rst2.MoveNext
Loop
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
MsgBox "Função executada."
Cumprimentos,

Bom dia Alexandre

Obrigado pela função.

Boa Tarde Alexandre

Desculpe incomodar, estava a tentar esta alteração mas não consigo.
Queria acrescentar aonde está a vermelho, a Época a que se refere o sorteio . Exemplo 2011-2012

Private Sub Comando29_Click()

If MsgBox("Confirmar Sorteio ? ", vbYesNo + vbQuestion, "Gestão de Futebol") = vbYes Then

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, Rst3 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM Partidas;"
Set Rst1 = CurrentDb.OpenRecordset("SELECT Equipe FROM Equipes;")
Set Rst2 = CurrentDb.OpenRecordset("SELECT Equipe FROM Equipes;")
Set Rst3 = Este valor estará num campo chamado "Epoca" num Form com o nome "Menu"
Do While Not Rst1.EOF
Rst2.MoveFirst
Do While Not Rst2.EOF
If Rst1(0) <> Rst2(0) Then CurrentDb.Execute "INSERT INTO Partidas(Mandante,Visitante,Epoca) VALUES ('" & Rst1(0) & "','" & Rst2(0) & "','" & Rst3(0) & "');"
Rst2.MoveNext
Loop
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
MsgBox " Sorteio Terminado ", vbExclamation, "Gestão de Futebol"
Me.Requery
Call Form_Load
Else
DoCmd.CancelEvent

Exit Sub
End If

Boa tarde, Assis

Será assim

If MsgBox("Confirmar Sorteio ? ", vbYesNo + vbQuestion, "Gestão de Futebol") = vbYes Then

Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset

CurrentDb.Execute "DELETE * FROM Partidas;"
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(Mandante,Visitante,Epoca) VALUES ('" & Rst1(0) & "','" & Rst2(0) & "','" & Forms("Menu")!Epoca & "');"
Rst2.MoveNext
Loop
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
MsgBox " Sorteio Terminado ", vbExclamation, "Gestão de Futebol"
Me.Requery
Call Form_Load
Else
DoCmd.CancelEvent

Exit Sub
End If
Cumprimentos,

Obrigado Alexandre
Perfeito e bom fim de semana

Boa tarde Alexandre
A gente só lembra de certas coisas depois de passar por elas.
A função começa a apagar a tabela partida ?
CurrentDb.Execute "DELETE * FROM Partidas;"

É que neste momento na tabela "Partidas" tenho todos os jogos registados já com a época 2010-2011.
Não será possivel fazer novo sorteio (Voltar a correr a Rotina) e a tabela "Partidas" manter todos os dados de 2010-2011, e adicionar um novo sorteio para a próxima época 2011-2012, com as mesmas equipas, ou outras.
Obrigado

Novamente, Assis

Então, está com dificuldade?
Substitua por
CurrentDb.Execute "DELETE * FROM Partidas WHERE Epoca='" & Forms("Menu")!Epoca & "';"
Cumprimentos,

Alexandre

Não é dificuldades: A rotina faz os registos dos jogos perfeito para a época 2010-2011

Eu queria era continuar a ter os registos de 2010-2011 na tabela "Partidas" e poder adicionar com a rotina do Alexandre os registos para a proxima época 2011-2012
Será possivel ?
Obrigado

Boa tarde.
Assis, estou utilizando este seu código para gerar as partidas, funciona perfeitamente.
Gostaria de saber como faço para que ao gerar as partidas, ele informe também o número da Rodada?
Obrigado