• HAURAT Maxence
• GRANDET Jérémy

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.

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.

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

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

La documentation utilisateur est disponible via le lien suivant: Documentation utilisateur

Base de données (avec formulaire et état) → cliquer ici