[VBA] Ajout manuel d'enregistrement Recordset

Question

Bonjour,

Je programme en VBA dans une base Access et je souhaiterais savoir s'il est possible sur un DAO.Recordset d'ajouter un enregistrement manuellement. J'avais pensé faire une sorte de :


Dim Abase As DAO.Database
Dim rec, rec2 As DAO.Recordset

sql = "blabla"

Set Abase = CurrentDb
Set rec = Abase.OpenRecordset(sql)

sql = "blabla2
Set rec2 = Abase.OpenRecordset(sql)

rec.addItem(rec2)



Mais le addItem n'existe pas.
Est-il possible de le réaliser autrement ?

Merci,

Raph

tompols · Answer

Bonjour,
pourquoi ne pas simplement utiliser l'opérateur UNION ?
Dim Abase As DAO.Database
Dim rec As DAO.Recordset

sql = "blabla UNION blabla2"

Set Abase = CurrentDb
Set rec = Abase.OpenRecordset(sql)

Raph04 · Answer

Ha c'est en effet une des fonctionnalité de SQL que je ne connais pas.
Mais j'ai l'impression que cela peut régler mon problème

Merci en tout cas, je ferais un retour du resultat obtenu. :-D

Raph04 · Answer

Ha par contre, est t'il possible de faire un UNION avec un DISTINCT qui porte à la fois sur blabla et blabla2

Je m'explique par un exemple :

J'ai deux tables avec des personnes dedans, sachant que les personnes peuvent apparaitre dans les 2, mais que je ne les veux qu'une seule fois.
Dans le style :

sql = "SELECT DISTINCT ([nom], [prenom] FROM [clients] UNION [nom],[prenom] FROM [listeMailing])"


Dans ce cas par exemple, la liste de mailing contient à la fois des client (mais pas tous) et des non client et je veux tout les nom, prenoms.

Merci,

Raph

[VBA] Ajout manuel d'enregistrement Recordset

3 réponses

Votre réponse

Discussions similaires

Newsletters