Bonjour,

je cherche à réduire mon code VBA en passant des champs dans un tableau de string pour ensuite le manipuler dans une boucle qui appelera chaque champs à la suite

Code : 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
25
Dim FieldName(0 To 3) As String
FieldName(0) = "fesfsf"
FieldName(1) = "sethdt"
FieldName(2) = "sthuu"
FieldName(3) = "tbbrth"
 
Set oDb = CurrentDb
 
For i = 1 To 3
    Champ = FieldName(i)
    Set oRst = oDb.OpenRecordset("SELECT " + Chr(39) + Champ + Chr(39) + " FROM [tblChgRefCial]", dbOpenDynaset)
    If (oRst.RecordCount <> 0) Then
        oRst.MoveLast
        While Not (oRst.BOF)
            While ((Left(oRst.Fields(Chr(39) + Champ + Chr(39)).Value, 1) = 0) And (Left(oRst.Fields(Champ).Value, 2) <> "0,"))
                stValeur = Right(oRst.Fields(Champ).Value, (Len(oRst.Fields(Champ).Value) - 1))
                oRst.Edit
                oRst.Fields(Champ).Value = stValeur
                oRst.Update
            Wend
            oRst.MovePrevious
        Wend
    End If
    oRst.Close
Next i
Pourquoi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
oRst.Fields(Champ).Value
ne me retourne rien ?
Merci bcp ^^