[VBA-A] INSERT INTO en vérifiant les données avant !!

Bonjour, j'ai eut à créer une nouvelle table dans une base de données access qui est presque identique à une autre table existante mais avec quelque champs en plus et d'autre qui ont été enlevé.

Exemple

Table1 et TableNouvelle

J'ai créer par la suite une nouvelle requête qui copie les données dans la Table1 vers la TableNouvelle.

Mais je dois transférer seulement les lignes qui n'existe pas dans la TableNouvelle donc avant de faire le transfert je dois vérifier si le champs de ma clé primaire existe dans ma TableNouvelle.

Comment je fais ça !!

Merci

Rumeurs

Je sais que ça ne sera pas possible de le faire directement dans la requete alors je crois que la solution c'est de le codé en vba donc je dois parcourire la table source ligne par ligne pour vérifier son existance dans la table destination et si elle n'existe pas je fait un INREST TO mais je fais comment pour coder ça en VBA ??

Bref comment on fais pour parcourir une table en VBA ??

Merci !!

Bonsoir et bienvenue sur le Forum VB,

Citation:

---

Bref comment on fais pour parcourir une table en VBA ??

---

Exactement comme à l'aide de tout autre langage de développement...
On ne peut la parcourir qu'après l'avoir ouverte...
Une fois ouverte, on peut y faire une sélection et modifier, au besoin, les articles sélectionnés (mise à jour), supprimer des articles ou encore en ajouter...
Il faut donc commencer par apprendre à ouvrir la base et la table en cause.
Il y a à cet effet des cours (rubriques cours) et la FAQ et ses exemples sur ce forum. Leur lecture ne prétend pas remplacer celle de l'aide en ligne (à consulter donc également), mais la compléter avantageusement.
Commences par là puis reviens vers nous, avec un bout de code, si tu rencontres une difficulté de mise en oeuvre. Nous t'aiderons alors bien volontiers... :wink:

Allo jmfmarques, je m'attendais à ce genre de réponse et elle est légitime car je sais qu'il faut faire des recherches avant de poster une question :)

Mais c'est un cours mandat que j'ai à faire et je ne connais pas beaucoup VBA Access alors j'ai pris la chance de poser la question !!

Bref j'ai trouver ce code dans les recherche que j'ai modifier un peux. Le MsgBox n'a pas vraiemnt rapport mais je voulais juste savoir s'il entrait dans la boucle !! :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim rst As Recordset Dim tpm As Recordset Dim bds As Database Dim fld As Field   Set bds = CurrentDb Set rst = bds.OpenRecordset("TABLE1", dbOpenTable) Set tpm = bds.OpenRecordset("TABLE2", dbOpenTable)   For i = 0 To rst.Fields.Count - 1 If rst!I_TRCE_NO = "102101" Then MsgBox "YÉ !!" End If Next

---

Mais ça ne fonctionne pas car si je comprend bien, je dois d'abbord me connecter à la base données !! Mais en codant directement dans la base de données Access (VBA) il faut quand même se conecter à cette même base ???

Alors quel est le code exact pour me connecter, rechercher un enregistrement et faire le INSET INTO dans l'autre table ??

Encore désolé jmfmarques d'avoir poster une question sans trop chercher avant mais ça urge de mon côté et j'ai pensé que c'était la façon la plus rapide d'avoir une réponse !!

Merci

Rumeurs

Cher rumeurs,

Le bout de code que tu présentes là montre de façon évidente qu'à défaut d'écrire à ta place tout ce dont tu as besoin, tu n'avanceras pas :
Je te propose donc de dépenser le temps nécessaire à l'étude, inévitable à mon sens, du minimum indispensable pour commencer à comprendre les diverses méthodes de fonctionnement en ce qui concerne les lectures/ecritures de bases de données :
http://jacma.developpez.com/premierspasdatabase/
J'entends bien que ton "mandat" est court, mais c'est le tien, me semble-t-il, et c'est bien toi qui l'as accepté... :wink:

Citation:

---

Envoyé par jmfmarques

...J'entends bien que ton "mandat" est court, mais c'est le tien, me semble-t-il, et c'est bien toi qui l'as accepté... :wink:

---

J'ai commencé mon emploi depuis quelques semaines et il ne me donne pas le choix d'accepter ou de refuser un mandat je dois faire ce qu'il me demande et c'est tout !!!

J'ai passé quelques années sans faire deprogrammation et du VBA en Access j'en ai jamais fait alors je pensais trouver quelqu'un ici pour me donner un coup de main à starter mon mandat de la bonne manière.

J'ai fais beaucoup de VB 6 il y a de ça 5 ou 6 ans mais je voudrais juste savoir si on ce branche à une base de données Access en VBA Access de la même manière que l'on se branche en VB6. Car je trouve ça bizzard d'avoir à se brancher à une base de données quand on est dans la base de données !!!

Je vais continuer à fouiller mais si tu pourais me répondre pour cette question de connexion en VBA ça serais bien apprécié, sinon merci pareil de m'avoir répondu.

Bonne fin de journée !!

Bye

Rumeurs

Ton accès à la base où tu te trouves se fait par CurrentDb.

Citation:

---

Envoyé par Rumeurs

Code:

---

1 2 3

Set bds = CurrentDb Set rst = bds.OpenRecordset("TABLE1", dbOpenTable)

---

---

Je ne vois pas ce qui peut ne pas marcher :?

Salut,

Une autre solution serait d'indexé les champs de ta table, regarde l'aideAccess pour cela, en n'acceptant pas les doublons sur certains champs capitales, ce qui aurait pour conséquence que lorsque tu fais un insert to, les enregistrements dont les valeurs des champs indéxés sont égales ne seront pas rajouter à ta table.

Starec

Merci les boys pour votre aide, ça fonctionne et j'ai terminé mon mandat attend !!

Bonne journée !!

Rumeurs