Discussion :

[JamesPel]

Bonjour,

Je désire exécuter un code spécial lorsque dans mon code VBA j'exécute l'instruction suivante :

Code :

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

1
2
3
4
 
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM " & str_table, -1
DoCmd.SetWarnings True

et qu'il survient une erreur d'intégrité référentielle et que, si je n'avais pas le SetWarnings, je recevrais un message en conséquence.

J'ai tenté avec

Code :

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

on error goto gere_erreur

mais il ne semble pas que ce type de message soit traité par "on error".

Y a-t-il possibilité d'intercepter le message pour forcer l'exécution d'un code à la place de celui-ci.

Merci.

[Jean-Philippe André]

Salut,

pour que cela se passe comme tu l'entends, il te faudrait changer les relations de ta BD, en mettant des liens en Cascade, mais cela signifie que tous les enregistrements situés en aval de celui que tu supprimes le seront également, donc c'est plutôt dangereux comme approche

Donc 2 approches selon moi :
- supprimer dans un premier temps les enregistrements liés puis supprimer dans la table principale
- modifier les relations entre les tables

[JamesPel]

Bonjour,

Tout d'abord merci de votre réponse.

Effectivement c'est probablement la meilleure façon mais comment, en VBA, connaître quelle table est la principale et laquelle est la liée ?&

Merci.

[Jean-Philippe André]

Salut,

en faisant une petite recherche rapide, on tombe sur une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 'Récupération des relations dans une table temporaire
        sqlString = "Create table temp (relationName varchar(30),tableName varchar(30),relForeignTable varchar(30),relAttributes varchar (30))"
        DoCmd.RunSQL sqlString
        For Each rel In CurrentDb.Relations
              sqlString = "Insert into temp values ('" & rel.Name & "', '" & rel.Table & "', '" & _
                                            rel.ForeignTable & "','" & rel.Attributes & "')"
            DoCmd.SetWarnings (False)
                DoCmd.RunSQL sqlString
            DoCmd.SetWarnings (True)
 
'            CurrentDb.Relations.Delete rel.Name
        Next rel

proposée ici :https://www.developpez.net/forums/d2...relations-vba/

[JamesPel]

Bonjour Jean-Philippe André,

J'ai exécuté le code et j'obtiens bien une table tmp contenant les relations, si je comprend bien tableName correspond à la table du côté 1 et relForeignTable correspond au côté plusieurs, est-ce bien cela ?

Merci.

[JamesPel]

Bonjour à tous,

Étant donné les difficultés rencontrées, j'ai abandonné cette façon de faire.

Merci.