MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

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

    Mensagem  Assis em 24/5/2011, 22:59

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


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Alexandre Neves em 24/5/2011, 23:18

    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,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 24/5/2011, 23:36

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Alexandre Neves em 25/5/2011, 08:13

    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,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 25/5/2011, 11:46

    Bom dia Alexandre

    Obrigado pela função.


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 4/6/2011, 13:13

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Alexandre Neves em 4/6/2011, 15:49

    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,
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 4/6/2011, 15:58

    Obrigado Alexandre
    Perfeito e bom fim de semana


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 4/6/2011, 19:12

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7670
    Registrado : 05/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Alexandre Neves em 4/6/2011, 19:51

    Novamente, Assis

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    Registrado : 06/11/2009

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Assis em 4/6/2011, 20:15

    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


    .................................................................................
    *** Só sei que nada sei ***
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Rotina de criar tabela jornadas de jogos de futebol Empty Re: [Resolvido]Rotina de criar tabela jornadas de jogos de futebol

    Mensagem  Cláudio Machado em 13/5/2019, 19:22

    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


    .................................................................................
    " 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 [Resolvido]Rotina de criar tabela jornadas de jogos de futebol 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 7/8/2020, 12:45