Bonjour
J'va essayer d'être clair...Un formulaire principal et un sous formulaire nommé ssfformGD
Je sélectionne dans le formulaire une référence dans une boite de dialogue qui me tri le sous formulaire.
Puis je me positionne dans le sous formulaire au premier enregistrement
je teste un des champs, s'il est nul je passe à l'enregistrement suivant, si non nul je lance une sub, puis je passe au suivant, jusqu'à avoir récupéré 5 valeurs maxi, ou lu tous les enregistrements.
j'ai le code suivant pour ma première boucle,( j'aurais au total 5 boucles identiques qui appelleront 5 sub différentes):
après Call valeur 1, je lancerai une autre boucle qui appellera valeur2, jusqu'à 5
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim stH2 As Double stH2 = Nz(Form![ssformGD]![H2], 0) Do Until stH2 > 0 If Me.CurrentRecord < Me![ssformGD]![NbreEgt] Then Me.ssformGD.Form.Recordset.MoveNext Else Call Fin End If Loop Call Valeur1
sauf si je n'ai pas 5 valeurs à copier
Avez vous une idée? mon code plante royalement
merci à vous
NbreEgt est le nombre d'enregistrements du sous formulaire
Partager