Nous allons créer un formulaire vierge pour la gestion des suppressions. Nous établissons sa structure tout en respectant la charte graphique mise en place par l'équipe au début du projet.

Ci-dessus on peut voir que le formulaire contient deux listes déroulantes qui vont permettre la sélection de la compétition (la date), puis la sélection d'un participant ce qui remplira le dernier champs automatiquement.

Donc le numéro de licence correspondant au nom de la liste déroulante est mis dans le champs N°Licence.

Nous aller créer un formulaire vierge pour la mise à jour des notes globales d'une compétition sélectionnée dans la liste déroulante. La charte graphique doit toujours être respectée.

Private Sub cmb_Competition_Change() Dim bdkarate As Database Dim rskarate, rskarate1 As Recordset Dim requete, requete2 As String Dim numlicence As String Dim requete1 As String Dim noteglobale As Double Set bdkarate = CurrentDb()

requete = “SELECT INSCRIPTION.NUM_LICENCE FROM INSCRIPTION WHERE INSCRIPTION.NUM_COMPETITION =” & cmb_Competition

Set rskarate = bdkarate.OpenRecordset(requete, DB_OPEN_DYNASET)

rskarate.MoveFirst While rskarate.EOF = False numlicence = rskarate!NUM_LICENCE requete1 = “SELECT (SUM(NOTE)-MAX(NOTE)-MIN(NOTE)) AS NOTE_GLOBALE FROM [NOTE] WHERE NUM_LICENCE='” & numlicence & “' AND NUM_COMPETITION =” & cmb_Competition

Set rskarate1 = bdkarate.OpenRecordset(requete1, DB_OPEN_DYNASET) noteglobale = rskarate1!NOTE_GLOBALE requete2 = “UPDATE INSCRIPTION SET NOTE_GLOBALE = ” & noteglobale & “ WHERE NUM_LICENCE='” & numlicence & “' AND NUM_COMPETITION =” & cmb_Competition DoCmd.RunSQL (requete2) rskarate.MoveNext Wend

End Sub

Le programme ne fonctionne qu'avec des nombres entiers. Cette fonction récupère les notes de chaque participant , calule les notes globales et les enregistre dans la table inscription.