Discussion :

[morpheus002]

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 ^^

[patdaum]

Bonjour,

As-tu essayés de faire du pas à pas ds ton code, pour t'assurer que tu passes bien ds la boucle qui te permet d'enregistrer ?

[morpheus002]

J'ai fait du pas à pas, j'obtenais un certain nombre d'enregristrements dans mon Recordset, mais je viens de trouver le problème :

Code :

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

1
2
 
Set oRst = oDb.OpenRecordset("SELECT " + Chr(39) + Champ + Chr(39) + " FROM [MaTable]", dbOpenDynaset)

Il y a une erreur dans cette partie :

Code :

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

1
2
 
" + Chr(39) + Champ + Chr(39) + "

La solution a été de mettre :

Code :

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

1
2
 
Set oRst = oDb.OpenRecordset("SELECT * FROM [MaTable]", dbOpenDynaset)

Et tout marche bien pour la suite