Table des matières

Compte rendu de la mission 7

Yoann Herbet et Mathieu Tournadre

Objectifs de la mission : Réalisation des tâches suivantes : T2.5, T2.9

T2.5 Saisie des notes par un entraineur

Formulaire de modification de note

Ce formulaire permet de modifier et supprimer la note d'un participant. Il a été construit selon la charte graphique qui a été décidé pour l'intégralité des missions.

Nous avons fait en sorte que lorsque l'on sélectionne une donnée dans un champ cela affecte les données suivantes de manière a ce que l'on ai une cohérence dans les données.Comme par exemple ci-dessous:

Lorsque que l'on a sélectionné la date cela nous a mis le nom des entraineurs et des compétiteurs qui ont participé ce jour là.

Voici un exemple de message d'erreur que nous avons utilisé:

'gestion d'erreur
If IsNull(lst_nom_entraineur) Then
MsgBox (" Choisir un entraineur ")
lst_nom_entraineur.SetFocus
Exit Sub
End If

Grâce au message:

Ce message d'erreur apparait lorsque l'on essaye de modifié la note d'un compétiteur sans avoir choisit son entraineur,de même que les autres messages d'erreurs si leurs conditions ne sont pas remplit. Si toutes les conditions sont remplient et que la modification un message apparait,pour cela on a utilisé le code suivant:

MsgBox ("Note modifiée avec succès")

Voici le message:

des messages d'erreur ont aussi été utilisé pour prévenir l'utilisateur avant de continuer.Ce sont les même messages que précédemment:

'gestion d'erreur
If IsNull(lst_nom_entraineur) Then
MsgBox (" Choisir un entraineur ")
lst_nom_entraineur.SetFocus
Exit Sub
End If

Voici le message:

Ce message apparait lorsque l'on essaye de supprimer une note sans que toutes les conditions soient remplit. Lorsque toutes les conditions requises sont remplit un message grâce au code suivant:

MsgBox ("Enregistrement supprimé")

Le message:

DoCmd.Close
Formulaire de saisie des notes

Ce formulaire permet de saisir une note pour un compétiteur. Comme précédemment nous avons utilisé la gestion d'erreur pour avertir l'utilisateur grâce a des codes comme ci-dessous:

If IsNull(lst_date_competition) Then
MsgBox (" Choisir une date ")
lst_date_competition.SetFocus
Exit Sub
End If

Cela nous permet de savoir si une personne a déjà une note grâce a un message. Quand l'on rentre une note a une personne n'en ayant pas nous avons un message comme quoi la note a été ajouté avec succès. Quand l'on a finit un bouton fermé no permet de fermer le formulaire grâce au code suivant:

DoCmd.Close

T2.9 Édition d’un bilan global sur une saison pour un compétiteur donné

Nous avons créer un état permettant de voir pour un candidat donné un récapitulatif de sa saison avec la liste des compétitions auxquelles à participé le compétiteur en indiquant pour chacune sa date,le lieu et la note obtenu.

Fichiers:

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