Personnalisez la fonction par morceaux/trouvez le Nième score, les amis dans le besoin peuvent s'y référer. Copiez le code comme suit :
Fonction splitx (strs1 comme chaîne, strs2 comme chaîne, n comme entier)
'Fonction de segmentation personnalisée splitx([string], séparateur, nième segment)
Dim groupST() comme chaîne
groupeST = Split (strs1, strs2)
Si UBound(groupST) < n - 1 Alors
splitx=0
Autre
splitx = groupeST(n - 1)
Fin si
Fonction de fin
'/-----------------------------------------------
Fonction minx (KSMC sous forme de chaîne, lb sous forme de chaîne, kmi sous forme de chaîne, n sous forme de chaîne)
'Nième place score minx([nom de l'examen],[catégorie],[sujet],n)
Dim con comme objet
Dim RS comme objet
Dim stsql comme chaîne
Dim kmf sous forme de chaîne
kmf = Milieu(kmi, 1, 1) & groupe
Définir con = Application.CurrentProject.Connection
Définir RS = CreateObject (ADODB.Recordset)
STRSQL = SELECT top 1 & kmi & comme score standard FROM liste de scores
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) Et ((catégorie) = ' & lb & ' et nom de l'examen =' & KSMC & '))
STRSQL = STRSQL + COMMANDE PAR & kmi
RS.Open STRSQL, avec, 3, 3
Si RS.EOF Alors
minx = 0
Autre
minx = RS (score standard)
Fin si
RS.Fermer
Définir RS = Rien
Définir con=Rien
Fonction de fin