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


    [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 : 3836
    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, 18: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 : 7249
    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, 19: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 : 3836
    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, 19: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 : 7249
    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, 04: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 : 3836
    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, 07: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 : 3836
    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, 09: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 : 7249
    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, 11: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 : 3836
    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, 11: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 : 3836
    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: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 : 7249
    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: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 : 3836
    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, 16: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
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1481
    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, 15: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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/5/2019, 16:43