====== Compte rendu **Mission n°3**======

===== Formulaire d'ajout d'un entraineur =====
==== Aspect graphique ====
{{:ppe2.1:equipe3:formajout.jpg?300|}}

Formulaire réalisé selon la charte graphique.

==== Aspect programmation ====
=== Bouton "Fermer": ===
<code>
Private Sub Cmd_Fermer_Click()
DoCmd.Close
End Sub
</code>

=== Bouton "Ajouter": ===
<code>
Private Sub Cmd_Ajouter_Click()
Dim bdKata As Database
Dim rsEntrai, rsmax As Recordset
Set bdKata = CurrentDb()
Set rsEntrai = bdKata.OpenRecordset("ENTRAINEUR", DB_OPEN_DYNASET)
Set rsmax = bdKata.OpenRecordset("select max(NUM_ENTRAINEUR)as entmax from ENTRAINEUR", DB_OPEN_DYNASET)
</code>
Déclaration des variables et création de la requête.

<code>
If IsNull(Txt_Nom) Then
    MsgBox "Saisir un nom", vbExclamation, "Gestion Entraineur"
    Txt_Nom.SetFocus
    Exit Sub
End If
If Len(Txt_Nom) < 2 Then
    MsgBox "Il faut au moins 2 caractères", vbExclamation, "Gestion Entraineur"
    Txt_Nom.SetFocus
    Exit Sub
End If
If IsNull(Txt_Prenom) Then
    MsgBox "Saisir un prénom", vbExclamation, "Gestion Entraineur"
    Txt_Prenom.SetFocus
    Exit Sub
End If
If Len(Txt_Prenom) < 2 Then
    MsgBox "Il faut au moins 2 caractères", vbExclamation, "Gestion Entraineur"
    Txt_Prenom.SetFocus
    Exit Sub
End If
If IsNull(lst_Club) Then
    MsgBox "Choisir un club", vbExclamation, "Gestion Entraineur"
    lst_Club.SetFocus
    Exit Sub
End If
</code>
Tests de validité des données entrées dans le formulaire.

<code>
rsEntrai.AddNew
rsEntrai!NOM_ENTRAINEUR = Txt_Nom
rsEntrai!PRENOM_ENTRAINEUR = Txt_Prenom
rsEntrai!NUM_CLUB = lst_Club
rsEntrai!NUM_ENTRAINEUR = rsmax!entmax + 1
rsEntrai.Update
MsgBox ("Entraineur ajouté avec succès.")

Txt_Nom = "": Txt_Prenom = "": lst_Club = "":


End Sub
</code>
Remplissage de la base avec les données du formulaire et remise à zéro des champs du formulaires.



===== Formulaire de modification/suppression d'un entraineur =====
==== Aspect graphique ====
{{:ppe2.1:equipe3:sans_titre1.png?300|}}
Formulaire réalisé selon la charte graphique.

==== Aspect programmation ====
=== Bouton "Modifier": ===
<code>
Private Sub Cmd_Modifier_Click()
Dim bdKata As Database
Dim rsEntrai As Recordset
Dim rqt As String
rqt = "select * from ENTRAINEUR where NUM_ENTRAINEUR =" & lst_Entraineur
Set bdKata = CurrentDb()
Set rsEntrai = bdKata.OpenRecordset(rqt, DB_OPEN_DYNASET)
</code>
Déclaration des variables et création de la requête.

<code>
If IsNull(Txt_Nom) Then
    MsgBox "Saisir un nom", vbExclamation, "Gestion Entraineur"
    Txt_Nom.SetFocus
    Exit Sub
End If
If Len(Txt_Nom) < 2 Then
    MsgBox "Il faut au moins 2 caractères", vbExclamation, "Gestion Entraineur"
    Txt_Nom.SetFocus
    Exit Sub
End If
If IsNull(Txt_Prenom) Then
    MsgBox "Saisir un prénom", vbExclamation, "Gestion Entraineur"
    Txt_Prenom.SetFocus
    Exit Sub
End If
If Len(Txt_Prenom) < 2 Then
    MsgBox "Il faut au moins 2 caractères", vbExclamation, "Gestion Entraineur"
    Txt_Prenom.SetFocus
    Exit Sub
End If
If IsNull(lst_Club) Then
    MsgBox "Choisir un club", vbExclamation, "Gestion Entraineur"
    lst_Club.SetFocus
    Exit Sub
End If
</code>
Tests de validité des données entrées dans le formulaire.

<code>
rsEntrai.Edit
rsEntrai!NOM_ENTRAINEUR = Txt_Nom
rsEntrai!PRENOM_ENTRAINEUR = Txt_Prenom
rsEntrai!NUM_CLUB = lst_Club
rsEntrai.Update
MsgBox ("L'entraineur a été modifié avec succès.")

Txt_Nom = "": Txt_Prenom = "": lst_Club = "": lst_Entraineur = "":

End Sub
</code>
Modification des données dans la base de donnée et remise à zéro des champs du formulaire.

=== Bouton "Supprimer": ===
<code>
Private Sub Cmd_Supprimer_Click()
Dim bdKata As Database
Dim rsEntrai As Recordset
Dim rsJuge As Recordset
Dim rsNote As Recordset
Dim rqt As String
Dim rqt1 As String
Dim rqt2 As String
Set bdKata = CurrentDb()
</code>
Déclaration des variables.

<code>
rqt1 = "select NUM_ENTRAINEUR from JUGE where NUM_ENTRAINEUR =" & lst_Entraineur
Set rsJuge = bdKata.OpenRecordset(rqt1, DB_OPEN_DYNASET)
If Not rsJuge.EOF() Then
    MsgBox ("L'enregistrement ne peut pas être supprimé car il est en lien avec un juge dans la table JUGE"), vbExclamation, "JUGE"
    lst_Entraineur.SetFocus
    Exit Sub
End If

rqt2 = "select NUM_ENTRAINEUR from [NOTE] where NUM_ENTRAINEUR =" & lst_Entraineur
Set rsNote = bdKata.OpenRecordset(rqt2, DB_OPEN_DYNASET)
If Not rsNote.EOF() Then
    MsgBox ("L'enregistrement ne peut pas être supprimé car il est en lien avec une note dans la table NOTE"), vbExclamation, "NOTE"
    lst_Entraineur.SetFocus
    Exit Sub
End If
</code>
Tests d'autorisation de suppression par rapport aux autres tables.

<code>
rqt = "select * from ENTRAINEUR where NUM_ENTRAINEUR =" & lst_Entraineur
Set rsEntrai = bdKata.OpenRecordset(rqt, DB_OPEN_DYNASET)
rsEntrai.Delete
MsgBox ("L'entraineur à été supprimé avec succès.")

Txt_Nom = "": Txt_Prenom = "": lst_Club = "":

End Sub
</code>
Suppression et remise à zéro des champs du formulaire.


===== Formulaire de création d'un jury =====


==== Aspect graphique ====

=== Aspect de la charte graphique ===


{{:ppe2.1:equipe3:aidejury.png?300|}}



=== Aspect du formulaire de création du jury ===


{{:ppe2.1:equipe3:ajouterjury.png?300|}}



=== Aspect du formulaire de modification du jury ===



{{:ppe2.1:equipe3:modifjury.png?300|}}





==== Aspect programmation ====

=== Aspect du code du formulaire de création du jury ===

=== Bouton ajouter===

Voici le code qui permet, lorsque l'on clique sur le bouton ajouter, de créer un nouveau jury.

<code>
Dim bdKara As Database
Dim rsKara As Recordset
Set bdKara = CurrentDb()
Set rsKara = bdKara.OpenRecordset("JUGE", DB_OPEN_DYNASET)

If IsNull(lst_entraineur) Then
    MsgBox "Saisir un nom", vbExclamation, "Gestion Entraineur"
    lst_entraineur.SetFocus
    Exit Sub
End If

If IsNull(lst_compétition) Then
    MsgBox "Saisir une compétition", vbExclamation, "Gestion Compétition"
    lst_compétition.SetFocus
    Exit Sub
End If

Dim cMembre As DAO.Recordset
Dim sql
sql = "select NUM_COMPETITION, NUM_ENTRAINEUR, NUM_JURY from JUGE where NUM_COMPETITION=" & lst_compétition & " AND NUM_ENTRAINEUR=" & lst_entraineur
Set cMembre = CurrentDb().OpenRecordset(sql)

If cMembre.EOF() = False Then
    MsgBox "L'entraineur fait déjà partie de cette compétition", vbCritical, "Gestion Membre"
    lst_compétition.SetFocus
    Exit Sub
End If

rsKara.AddNew
rsKara!NUM_COMPETITION = lst_compétition
rsKara!NUM_ENTRAINEUR = lst_entraineur
rsKara!NUM_JURY = txt_numérojury
rsKara.Update
MsgBox ("Jury créé avec succès !")
End Sub
</code>

=== Bouton fermer===

Ce bouton permet de fermer le formulaire, en voici le code:

<code>
Private Sub Cmd_Fermer_Click()
DoCmd.Close
End Sub
</code>


=== liste des compétitions===


Ce code permet, lorsque l'on choisit un numéro de compétition, d'afficher les entraîneurs affectés à celle-ci.

<code>
Private Sub lst_entraineur_Change()
Dim bdKara As Database
Dim rsMax As Recordset
Dim req As String
Set bdKara = CurrentDb()
req = "SELECT Max(JUGE.NUM_JURY) AS jurymax FROM JUGE WHERE NUM_COMPETITION= " & lst_compétition
MsgBox (req)
Set rsMax = bdKara.OpenRecordset(req, DB_OPEN_DYNASET)
txt_numérojury = rsMax!jurymax + 1
End Sub
</code>

=== Aspect du code formulaire de modification du jury ===

=== liste des arbitres et bouton supprimer===

Ce code permet la suppression d'un membre du jury, en sélectionnant l'arbitre dans la liste, cela permet d'afficher les informations le concernant.

<code>
Private Sub listeJury_Click()
Dim bdKara As Database
Dim rsKara As Recordset
Dim requete As String
'0:num_competitin 1:date 2:jury 3:num entraineur 4:nom ent
rowc = listeJury.ListIndex + 1
'num_comp = listeJury.Column(0, rowc)

textEntraineur = listeJury.Column(4, rowc) 'va chercher les données directement dans la liste
texteNumComp = listeJury.Column(0, rowc)
texteNumJury = listeJury.Column(2, rowc)
End Sub
</code>


Le code suivant permet de supprimer l'arbitre sélectionné en cliquant sur le bouton "supprimer".

<code>
Private Sub cmdSupprimer_Click()
Dim dbKara As Database
Dim rsJury As Recordset
Dim requete1 As String

Set dbKara = CurrentDb()
'rowc = listeJury.ListIndex + 1
NUM_ENTRAINEUR = listeJury.Column(3, rowc)
requete1 = "select * from juge where num_competition=" & texteNumComp & " and num_entraineur=" & NUM_ENTRAINEUR
Set rsJury = dbKara.OpenRecordset(requete1, DB_OPEN_DYNASET)
rsJury.Delete

MsgBox ("Juge supprimé avec succès !")

'supprime les champs
textEntraineur = "": texteNumJury = "":
texteNumComp = "": listeJury = "":

listeJury.Requery

End Sub
</code>