Discussion :

[kizou]

Bonsoir,

J'ai créé une table access contenant deux champs. le premier est déjà rempli. le second doit être rempli en exécutant une fonction sur le premier. je vais
utiliser les recordset. voilà une partie de la sub que j'ai écrite

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
Sub FillTableRef(t As DAO.TableDef)
 
Dim rst As DAO.Recordset
Dim Ref As String
Dim query As String
 
query = "SELECT U FROM " & t.name
'on va exécuter une fonction sur le premier champ pour avoir ce qu'on veut mettre dans le 2e
Set rst = db.OpenRecordset(query, dbOpenForwardOnly, dbReadOnly)
 
        While Not rst.EOF
            Ref = get_Ref(rst.Fields(0))
            CurrentDb.Execute "INSERT INTO [" & t.name & "] (RefIndex) VALUES ('" & Ref & "')"
            rst.MoveNext
        Wend
End Sub

Ma fonction marche cependant, les champs sont insérés en décalé par rapport à la 1ère colonne alors que j'aimerais que ce soit en face.

Comment faire pour avoir le champ2 en face du champ 1?

Merci d'avance

[helas]

Plutot un UPDATE qu'un INSERT

[Invité]

Bonjour

Si tu fais un Update n'oublie pas d'inclure une clause Where dans ta requête SQL pour le faire sur le bon enregistrement, sinon c'est l'ensemble qui sera mis à jour (à tester sur une copie, car pas de retour en arrière possible).

Philippe

[ilank]

Bonjour à tous,
kizou, tu disposes d'un recordset il n'est pas nécessaire de passer en plus par une requête ( mise à jour ou insertion) il suffit d'utiliser les méthodes Edit et update du recordset.

ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim rst As DAO.Recordset
 
'on va exécuter une fonction sur le premier champ pour avoir ce qu'on veut mettre dans le 2e
Set rst = db.OpenRecordset("SELECT U, RefIndex FROM " & t.name)
        While Not rst.EOF
            rst.edit
             rst!RefIndex= get_Ref(rst!U)
            rst.Update
            rst.MoveNext
        Wend
End Sub

ou peut-être

Code :

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

CurrentDb.Execute "UPDATE [" & t.name & "] SET RefIndex=Get_Ref(U);"

[kizou]

merci beaucoup la méthode update a bien marché.