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 cmbCompetitionChange() 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.NUMLICENCE FROM INSCRIPTION WHERE INSCRIPTION.NUMCOMPETITION =” & cmb_Competition

Set rskarate = bdkarate.OpenRecordset(requete, DBOPENDYNASET)

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

Set rskarate1 = bdkarate.OpenRecordset(requete1, DBOPENDYNASET) noteglobale = rskarate1!NOTEGLOBALE requete2 = “UPDATE INSCRIPTION SET NOTEGLOBALE = ” & noteglobale & “ WHERE NUMLICENCE='” & numlicence & “' AND NUMCOMPETITION =” & 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.