Discussion :

[adrien.gendre]

Bonjour en fait je voudrais sélectionner que certains champs de ma table en la parcourant ligne par ligne (dans une boucle Do While i <> j) car c'est une table temporaire je n'ai pas de repère car je l'efface et la recréé plusieurs fois.
J'ai essayé avec une méthode DAO je vous montre dites moi si je suis sur la bonne voie s'il vous plait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim MaTable As DAO.Recordset
Set MaTable = CurrentDb.OpenRecordset("WT_Temp_Productivite_FR4",dbOpenDynaset)
MaTable.MoveFirst
With Matable
        .Edit
        .Fields("Numseq") = SeqNumber
        .Fields("Produit") = TempProdProduit
        .Fields etc ...
        .Update
        .Requery
End With
MaTable.MoveNext

Voilà sa serait le code que je voudrais mettre dans une boucle enfin je sais qu'il ne marche pas il me met une erreur sur "MaTable.MoveFirst" et me dit aucun enregistrement en cours"
Merci de m'aider
Cordialement
Adrien

[jean-paul lepetit]

Salut,
j'utilises une autre syntaxe

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
 
Dim Mabase as Database
Dim MaTable As DAO.Recordset
Set MaBase=CurrentDb
Set MaTable = MaBase.OpenRecordset("WT_Temp_Productivite_FR4",dbOpenDynaset)
MaTable.MoveFirst
With Matable
        .Edit
        .Fields("Numseq") = SeqNumber
        .Fields("Produit") = TempProdProduit
        .Fields etc ...
        .Update
        .Requery
End With
MaTable.MoveNext

[adrien.gendre]

Je te remercie pour l'attention que tu apporte à mon problème, J'ai effectué les modification que tu m'a signalé j'ai toujours la même erreur, j'ai enlevé Matable.MoveFirst sinon il n'avancerait jamais à chaque boucle, et il me met l'erreur sur le .Edit : Erreur d'exécution '3021': Aucun enregistrement en cours.
Adrien

[adrien.gendre]

Si il y en a qui cherchent en fait j'ai trouvé après pas mal de recherche et d'essais lol. En fait a chaque clic sur le bouton je supprime ma table complète je rajoute dans mon champs qui ne doit pas être modifié les données et ensuite je modifie jusqu'a la fin de la table chaque entrée.