Discussion :

[dalmasma]

Bonjour,


j'aimerais parcourir les champs d'un recordset en commençant au 4e champ, j'ai trouvé ce code pour parcourir les champs mais je ne vois pas comment commencer au 4e champ:

Code :

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

1
2
3
4
Dim champ as DAO.Field
For Each champ in Rs.Fields
.....
Next

Je pensais à utiliser

Code :

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

1
2
3
for i = 4 to blahblah
Rs.fields(i)
next

mais à la place de blahblah il me faudrait le nombre de champ avec qqch du genre : Rs.FieldCount

Merci d'avance

[Maxi-môme]

Salut,

tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
Rs.Move(4)
 
while not Rs.eof
  'traitement
  Rs.MoveNext
wend
 
Rs.Close

[dalmasma]

Ca ce n'est pas à utiliser quand on veut parcourir le recordset enregsitrement par enregistrement ? Parce que je crois que si et ce n'est pas ce qu'il me faut, je suis sur UN enregistrement et je parcours les champs (c'est comme parcourir horizontalement alors que ce que tu me proposes c'est pour le parcours vertical (je crois))

[Maxi-môme]

Ah ok décidement, j'ai un peu de mal ce matin...quel est le but de ton code ? A quoi ressemble ton recordset ?

[dalmasma]

lol faut pas faire la fête la veille

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
26
27
28
29
30
31
32
Private Sub CopyFluidData2Table()
 
Dim i As Integer
Dim SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb
Dim rs As DAO.Recordset
Dim rsProp As DAO.Recordset
 
SQL = "SELECT * FROM Fluids WHERE [Fluids].[IDFluid] = " & Me.IDFluid
 
Set rs = DB.OpenRecordset(SQL, dbOpenDynaset)
 
Set rsProp = CurrentDb.OpenRecordset("FluidProperties")
 
Dim MonChamp As Field ' Soit je passe par le for each
For Each MonChamp In Recordset.Fields
     .....
Next
 
 
        for i = 3 to rs. 'nombre de champ ' soit je fais la boucle sur i
        With rsProp
            .AddNew
            rsProp!IDProperty = DLookup("[IDProperty]", "PropertiesList", "(Property = " & rs.Fields(i).Name & ")")
            rsProp!IDFluid = rs.Fields("IDFluid").Value
            rsProp!PropValue = rs.Fields("nom du champ à trouver").Value
            .Update
        Next 
 
 
End Sub

[Maxi-môme]

En fait tu fais un recordset pour selectionner certaines lignes de ta table Fluids et tu veux ajouter certaines valeurs et updater c'est bien ça ? Si oui tu boucles sur les lignes de ton recordset comme dit precedemment et tu fais ton traitement.

[dalmasma]

En fait je reprends le taf d'un gars mais la structure de la base est perfectible... là je veux pas recrééer de table alors je copie ce qu'il a fait dans une table pour le mettre ailleurs:

Je crée un premier formulaire à partir de la table Fluids, il ne contient qu'un enregistrement (mais une vingtaine de champ) : c'est mon recordset source

Ensuite je crée un 2e recordset (le destinataire) qui lui est la copie d'une table entière et auquel je vais ajouter plusieurs enregistrements (en gros je vais transformer l'enregistrement plein de champs du premier recordset en plusieurs enregistrements (autant que de champs moins les 3 premiers champs)

[Maxi-môme]

ok, tout ça me parait un peu confus mais bon, essaye avec ça :

Code :

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

for i = 3 to rs.Fields.count

[dalmasma]

Aucune erreur mais aucun ajout dans la table :s

[dalmasma]

J'ai rajouté une condition If au cas où le champ soit vide:

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
26
27
28
29
30
31
32
33
Private Sub CopyFluidData2Table()
 
Dim i As Integer
Dim SQL As String
Dim DB As DAO.Database
Set DB = CurrentDb
Dim rs As DAO.Recordset
Dim rsProp As DAO.Recordset
 
SQL = "SELECT * FROM Fluids WHERE [Fluids].[IDFluid] = " & Me.IDFluid
 
Set rs = DB.OpenRecordset(SQL, dbOpenDynaset)
 
Set rsProp = CurrentDb.OpenRecordset("FluidProperties")
 
'Dim MonChamp As Field
'For Each MonChamp In Recordset.Fields
 
For i = 3 To rs.Fields.Count
With rsProp
        If rs.Fields(i).Value Then GoTo Nxt
          .AddNew
          rsProp!IDProperty = DLookup("[IDProperty]", "PropertiesList", "(Property = " & rs.Fields(i).Name & ")")
          rsProp!IDFluid = rs.Fields("IDFluid").Value
          rsProp!PropValue = rs.Fields(i).Value
         .Update
Nxt:
Next
Wend
 
'Next
 
End Sub