Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Bien que n'ayant pas trop compris l'intérêt, on peux faire le traitement de plusieurs manières. En voici une, en utilisant les propriétés et méthodes DAO.
Charger au préalable la référence Microsoft DAO 3.x Objact Library
Sub zz() Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset Set rst1 = CurrentDb.OpenRecordset("tclient") If rst1.BOF And rst1.EOF Then GoTo Sortie Set rst2 = CurrentDb.OpenRecordset("Produit_Client") rst1.MoveFirst While Not rst1.EOF rst2.AddNew rst2(0) = rst1(0) ' le code client rst2(1) = "vase" rst2.Update rst1.MoveNext Wend rst2.Close Set rst2 = Nothing Sortie: rst1.Close Set rst1 = Nothing End Sub
Bonjour,
Pourriez-vous me fournir le code VBA pour access pour faire ceci
table client ----------- code client nom du client prenom adresse
table produit client ------------------- code client produit (mettre vase pour tous les clients)
pour chaque client creer un enregistrement dans la table produit client avec comme nom de produit "vase"
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Bien que n'ayant pas trop compris l'intérêt, on peux faire le traitement
de plusieurs manières. En voici une, en utilisant les propriétés et
méthodes DAO.
Charger au préalable la référence Microsoft DAO 3.x Objact Library
Sub zz()
Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("tclient")
If rst1.BOF And rst1.EOF Then GoTo Sortie
Set rst2 = CurrentDb.OpenRecordset("Produit_Client")
rst1.MoveFirst
While Not rst1.EOF
rst2.AddNew
rst2(0) = rst1(0) ' le code client
rst2(1) = "vase"
rst2.Update
rst1.MoveNext
Wend
rst2.Close
Set rst2 = Nothing
Sortie:
rst1.Close
Set rst1 = Nothing
End Sub
Bonjour,
Pourriez-vous me fournir le code VBA pour access pour faire ceci
table client
-----------
code client
nom du client
prenom
adresse
table produit client
-------------------
code client
produit (mettre vase pour tous les clients)
pour chaque client creer un enregistrement dans la table produit client avec
comme nom de produit "vase"
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bien que n'ayant pas trop compris l'intérêt, on peux faire le traitement de plusieurs manières. En voici une, en utilisant les propriétés et méthodes DAO.
Charger au préalable la référence Microsoft DAO 3.x Objact Library
Sub zz() Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset Set rst1 = CurrentDb.OpenRecordset("tclient") If rst1.BOF And rst1.EOF Then GoTo Sortie Set rst2 = CurrentDb.OpenRecordset("Produit_Client") rst1.MoveFirst While Not rst1.EOF rst2.AddNew rst2(0) = rst1(0) ' le code client rst2(1) = "vase" rst2.Update rst1.MoveNext Wend rst2.Close Set rst2 = Nothing Sortie: rst1.Close Set rst1 = Nothing End Sub
Bonjour,
Pourriez-vous me fournir le code VBA pour access pour faire ceci
table client ----------- code client nom du client prenom adresse
table produit client ------------------- code client produit (mettre vase pour tous les clients)
pour chaque client creer un enregistrement dans la table produit client avec comme nom de produit "vase"
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
