Discussion :

[jlanglet]

Bonjour,

J'ai des champs de type "Zone de texte" dans un formulaire. Ils se nomment "Label_Ordre_1" à 20.

j'ai une table pouvant contenir de 1 à 20 enregistrements.

En triant cette table, je souhaiterais que le champs "Label_Ordre_1" se remplisse avec le premier enregistrement de la table, "Label_Ordre_2 avec le second...

Ci dessous mon code :

________________________________________

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  Set Remplissage_Ordre_Calibre = CurrentDb.OpenRecordset("SELECT * FROM TBase_Ordre_Calibre WHERE Sous_Ensemble = '" & LD_Sous_Ensemble.Value & "' ORDER BY Ordre_Calibre, Calibre")
 
    If Remplissage_Ordre_Calibre.BOF = False Then
        Remplissage_Ordre_Calibre.MoveLast
        Remplissage_Ordre_Calibre.MoveFirst
    End If
 
        For x = 1 To Remplissage_Ordre_Calibre.RecordCount
 
            If Not IsNull(Remplissage_Ordre_Calibre!Ordre_Calibre) Then
 
                Me.Label_Ordre_1.Value = Remplissage_Ordre_Calibre!Ordre_Calibre
                Me.LD_Ordre_1.Value = x
 
            Else
 
                Me.Label_Ordre_1.Value = Null
                Me.LD_Ordre_1.Value = Null
 
            End If
 
            Remplissage_Ordre_Calibre.MoveNext
 
        Next x

________________________________________
Je souhaiterais que "Label_Ordre_1" s'incrémente en fonction de x pour devenir Label_Ordre_2...

Merci d'avance

[User]

Bonjour,

Vous pouvez faire référence au contrôle comme ceci :

Code VBA :

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

Me("Label_Ordre_" & x).Value = Remplissage_Ordre_Calibre!Ordre_Calibre

Par contre ça me semble pas très habituel comme démarche

Cdlt,

[jlanglet]

Cela fonctionne parfaitement.

Un grand merci, j'étais la dessus depuis 1h!!!!!