Discussion :

[diffi]

Je suis débutant et je sollicite votre aide pour avoir le code me permettant de résoudre le problème:

En effet, j'ai crée une table TablElèves sous Access contenant les champs suivants:
n°ord; nom; prénoms; note1; note2; note3; coefnote1; coefnote2; coefnote3; total; Moyenne; Appréciation; Rang.

J'ai ensuite fait la connexion via DataEnvironment1 à VB6. Je suis bloqué sur le code du Rang.:
-je veux utiliser un tableau pour afficher au fur et à mesure les différentes moyennes afin d'utiliser le code ci-dessous mais je ne sais pas le faire.

-Éclairez moi pas à pas afin que je perçoive clairement ce phénomène de tableau (Création, Remplissage et affichage d'un tableau) en VB6.

Voici ce que j'ai pu trouver mais qui ne marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function Rang(n As Integer) As Integer
Dim pos As Integer, nb As Integer
Dim Moyenne() As Single
nb = 1
For pos = 0 To UBound(Moyenne, 1)
If Moyenne(pos) > Moyenne(n) Then nb = nb + 1
Next pos
Rang = nb
End Function

Merci énormément d'avance pour ce temps précieux que Vous m'accordez. Cela fait près de 6 mois que je cherche à résoudre ce problème.

NB: Je serai très heureux si le rang pouvait être précédé de "er" pour 1er et "ème" pour 2ème ainsi que les cas d'exquo "er ex" et "ème ex".

[User]

Salut,

Tu es sur un forum Access et non VB:

Apparemment il faut passer ton tableau en argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function Rang(n As Integer, Moyenne() As Single) As Integer
Dim pos As Integer, nb As Integer
nb = 1
For pos = 0 To UBound(Moyenne)
If Moyenne(pos) > Moyenne(n) Then nb = nb + 1
Next pos
Rang = nb
End Function

A+