créer une relation en vba/sql

Bonjour,

je souhaite créer une relation avec intégrité référentielle entre deux tables dans ma base Access:
entre le champ "Numéro Client" de la table "sheet1" et le champ "Numéro CL" de la table liée "dates_contact"

Pour cela, j'utilise du code VBA et du SQL dans un module:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub LierTable()   Dim db As Database Set db = CurrentDb   db.Execute "ALTER TABLE dates_contact ADD CONSTRAINT abc FOREIGN KEY (""Numéro CL"") REFERENCES sheet1 (""numéro client"");"   db.Close Set db = Nothing   End Sub

---

Mais j'ai un message d'erreur au lancement du module
"erreur d'exécution 3409" "Définition du champ "Numéro CL" non valide dans la définition de l'index ou de la relation.

Pouvez-vous m'aider?

Je précise que mes deux champs sont de type numérique entier long.
"Numéro client" est indexé sans doublons
"Numéro CL" est indexé avec doublons.

Je vous remercie d'avance pour vos réponses.

change le code ci après

Code:

---

1 2	db.Execute "ALTER TABLE dates_contact ADD CONSTRAINT abc FOREIGN KEY (""Numéro CL"") REFERENCES sheet1 (""numéro client"");"

---

par

Code:

---

1 2	db.Execute "ALTER TABLE dates_contact ADD CONSTRAINT abc FOREIGN KEY (""[Numéro CL]"") REFERENCES sheet1 (""[numéro client]"");"

---

De primes abord, les espaces sont à proscrire, c'est littérature ou informatique

J'ai toujours le même message d'erreur avec les [...] cette fois.

Bonjour,

Je n'ai pas l'impression que toutes les conditions suivantes soient respectées :

Extrait de l'aide d'Access

Citation:

---

Si vous n'arrivez pas à appliquer l'intégrité référentielle, retenez que les conditions suivantes sont obligatoires pour y aboutir :

• Le champ commun de la table primaire doit être une clé primaire ou posséder un index unique.
• Les champs communs ont le même type de données, à l'exception du champ NuméroAuto que vous pouvez lier à un champ numérique dont le paramétrage de la propriété TailleChamp est Entier long.
• Les deux tables existent dans la même base de données Access. Vous ne pouvez pas appliquer l'intégrité référentielle sur des tables attachées.
  Cependant, si le format des tables source est Access, vous pouvez ouvrir la base de données, où ces tables sont stockées, et y appliquer l'intégrité référentielle.

---

A+

J'ai trouvé la solution les noms de champs doivent être entre parenthèses et crochets, mais pas guillemets.

Code:

---

1 2 3 4 5 6

Dim db As ADODB.Connection Dim strsql As String Set db = CurrentProject.Connection strsql = "ALTER TABLE dates_contact ADD CONSTRAINT sheet1dates_contact FOREIGN KEY ([Numéro CL]) REFERENCES sheet1 ([numéro client]) ON UPDATE CASCADE;" db.Execute strsql End Sub

---

De plus, pour activer la mise à jour en cascade des champs, j'utilise une connection ActiveX Data Objects (en DAO, ça ne marche pas) et rajoute ON UPDATECASCADE.