====== Compte-rendu équipe 8: ======
* HAURAT Maxence
* GRANDET Jérémy
===== Objet de la mission: =====
Notre mission est la numéro 7 qui à pour objectif de créer des formulaires de création, modification et de suppression de notes ainsi que d'un état donnant le bilan global d'un compétiteur sur une saison.
===== Création des formulaires: =====
==== Partie graphique: ====
{{:ppe2.1:equipe8:form-modifajout.jpg?200|}}{{:ppe2.1:equipe8:form-modifmodif.jpg?200|}}\\
Les formulaires sont crées directement sur ACCESS.\\
Ils contiennent des champs de texte et des listes permetant de saisir ou de choisir les informations.\\
Chaque champ et bouton ont un nom qui permet de l'utiliser dans le code VBA qui sera vu ensuite.
==== Partie programme: ====
=== Gestion des erreurs de saisie: ===
Cette série de commandes permet de contrôler si un champ est vide:
If IsNull(txt_NumEntraineur) Then
MsgBox "Choisir un entraineur", vbExclamation, "Gestion Note"
txt_NumEntraineur.SetFocus
Exit Sub
End If
Celle-ci permet de vérifier si un enregistrement est déja présent dans la table (à mettre après avoir sélectionné un enregistrement):
If rsNote.EOF() = False Then
MsgBox "Cette personne a déja une note", vbCritical, "Gestion Note"
Exit Sub
End If
=== Modification de la base de données: ===
Penser à sélectionner la base de données et la table pour chacune de ces commandes ainsi que l'enregistrement pour la modification et la supperssion\\
Ajout d'un enregistrement:
rsNote.Addnew
rsNote!NUM_COMPETITION = txt_Numcomp
rsNote!NUM_LICENCE = txt_NumMembre
rsNote!NUM_ENTRAINEUR = txt_NumEntraineur
rsNote!NOTE = txt_Note
rsNote.Update
Modification d'un enregistrement (dans cet exemple on ne modifie qu'un champ):
rsNote.Edit
rsNote!NOTE = txt_Note
rsNote.Update
Suppression d'un enregistrement:
rsNote.Delete
===== Documentation utilisateur: =====
La documentation utilisateur est disponible via le lien suivant: [[Documentation utilisateur]]
===== Fichiers: =====
Base de données (avec formulaire et état) → {{Karate.mission.7.mdb.zip|cliquer ici}}