Discussion :

[Oliver_WF]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jojo5650]

change le code ci après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oliver_WF]

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

[LedZeppII]

Bonjour,

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

Extrait de l'aide d'Access

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+

[Oliver_WF]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.