[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Problèmes liés aux codes du site - Problèmes liés aux codes du site


clos par 3Stone le 30/01/2013 : 22:56  Sujet n° 657  CODE VBA pour création d'une relation sans intégrité referentielle entre 2 tables

le 17/01/2013 : 10:51
par samy

Anonyme

visiteur

bonjour;j'ai un problème avec la création d'une relation sans intégrité référentielle entre deux tables ,j'ai essayé avec ce code mais ça ne marche pas:Sub relier()DoCmd.RunSQL "SELECT champ1 FROM table1 INNER JOIN table2 ON table1.[champ1]=table2.[champ2];"End Subil génère une erreur : Erreur d'exécution '3135':Erreur de syntaxe dans l'opération JOIN. si vous pouvez m'aider avec un code vba claire je serai très reconnaissante.
 sujet clos  Haut
Réponse n° 1
--------
le 17/01/2013 : 12:30
par samy

Anonyme

visiteur
finalement j'ai trouvé la solution avec ce code pour ceux qui leurs intéresse:

Sub lier_table2table1()Dim oDb As DAO.DatabaseDim oRlt As DAO.relationDim oFld As DAO.FieldSet oDb = CurrentDb'Crée la relationSet oRlt = oDb.CreateRelation("Rlt_table1table2", "table2", _  "table1", dbRelationDontEnforce)'Crée le champSet oFld = oRlt.CreateField("champ2")'Définit le nom de la clé externeoFld.ForeignName = "champ1"'Ajoute le champoRlt.Fields.Append oFld'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ajoute la relationoDb.Relations.Append oRlt'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ferme la base de données
oDb.Close
Set oDb = NothingEnd Sub
et comme ça on aura les deux tables liés sans intégrité référentielle.
  clos par 3Stone le 30/01/2013 : 22:56  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut