Discussion :

[AndréPe]

Bonsoir,
Dans une FAQ, Maxence Hubiche donne

Code :

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

CurrentDb.Relations.Delete "NomTableUnNomTableDeux"

pour supprimer une relation entre tables.
Comment lister ,tjrs par code, les relations existant dans une base ?
J'ai en effet tenté de supprimer avec ce code des relations, mais je tombe sur l'erreur "n'existe pas" alors que les noms donnés sont bien ceux des tables concernés.
Si on peut obtenir la liste des "NomTableUnNomTableDeux" on pourra alors éviter l'erreur.
Merci de vos réponses
Amitiés

[pgz]

Bonjour.

La collection Relations peut être parcourue, et chaque item a une propriété Name qui peut être lue.

Pour illustrer un exemple de fonction qui supprime toutes les relations de la base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function fctSupprimerRelations() As Boolean
Dim db As DAO.Database, iRel As Integer
 
Set db = CurrentDb
On Error GoTo SortieEnErreur
 
iRel = db.Relations.Count
If iRel > 0 Then
    For i = iRel To 1 Step -1
        db.Relations.Delete db.Relations(i - 1).Name
        DoEvents
    Next i
End If
 
 
fctSupprimerRelations = True
 
Sortie:
    Set rel = Nothing
    Set db = Nothing
    Exit Function
 
SortieEnErreur:
    fctSupprimerRelations = False
    GoTo Sortie
 
End Function

Bon courage,

PGZ

[AndréPe]

Merci pgz,
J'ai utilisé ton code comme suit pour obtenir les noms des relations, en passant par 'Refresh' une des deux propriétés avec 'Count' qui ne perturbe rien !

Code :

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

1
2
3
4
5
 
for ...
db.Relations.Refresh
Debug.Print  db.Relations(i - 1).Name
Next

et ça fonctionne.

Amitiés à tous

[AndréPe]

Je suis allé un peu vite dans ma réponse : je suis bloqué par une erreur 3211 : table utilisée par une autre personne ou processus, alors qu'aucun code concernant cette table n'a été lancé !
un

Code :

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

DoCmd.Close acTable, NomTable

n'arrange rien.

Je ne vois pas quoi faire.
Amitiés

[pgz]

Bonsoir.

Je ne vois pas bien à quoi te sert, dans la circonstance, le .Refresh. Tu as essayé sans?

COrdialement,

PGZ

[AndréPe]

Tu as raison, le refresh ne sert à rien dans ce cas, et sa suppression ne change rien non plus au fait que la table est considérée comme utilisée, donc pas moyen de la fermer.
C'est un DoEvents que je voulais mettre , mais comme je ne modiie pas les relations, il n'a aucun effet non plus !

En fait, ce que je cherche amintenant, c'est de forcer la fermeture d'une table et ça n'a rien à voir avecla question primitive.
Je m'excuse de ce "détournement".
Amitiés à tous

[pgz]

Bonjour.

Tu es sûr de ne pas avoir un formulaire ouvert dont la source utilise au moins une table?

PGZ

[AndréPe]

Oui, il y a un form ouvert, celui de l'application, mais il n'utilise pas la table en question à l'ouverture, seulement sur action sur un bouton.
Merci de ton aide
Amitiés

[pgz]

Bonjour.

Même si le formulaire est indépendant, il contient peut-être un contrôle dépendant, comme une ComboBox, par exemple.
As-tu essayé d'exécuter la procédure formulaire fermé, pour voir?

A bientôt,

PGZ

[AndréPe]

Bonjour,
Bonne idée, mais je n'ai rien trouvé de semblable et ce matin cette erreur ne se produit plus !
Va savoir d'où elle provenait ?
Merci de vos aides
Amicalement