Discussion :

[eultartuffe]

Bonjour tout le monde!
Bah j'ai à peu près tout dit. En fait j'ai un formulaire et je ne peux pa supprimer des enregistrements car il y a l'intégrité référentielle. Et donc quand je veux supprimer un enregistrement, le message d'erreur apparaît (et c'est normal) mais j'aimerais savoir si au lieu d'avoir un message comme ça (accompagné d'un plantage en plus!) on pourrait pas informer l'utilisateur par un Msgbox lui informant que cet enregistrement est requis dans une autre table.
Je vous remercie d'avances
Bonne après midi

[eultartuffe]

en fait quand je veux supprimer l'enregistrement dans ma table, il y a le message d'erreur "impossible de supprimer ou de modifier l'enregistrement car la table 'Assemblage' comprend des enregistrements connexes (erreur d'éxécution 3200" + plantage
J'aimerais juste savoir si on peut juste afficher un message perso à la place

[zephyr59]

Salut,

En effectuant un test de présence dans la table connexe, tu peux être en mesure de savoir s'il faut exécuter la requete de suppression ou emettre une message d'avertissement.

[jmfmarques]

Ou gérer les erreurs !

[eultartuffe]

Daccord merci beaucoup!
Mais comment effectuer un test de présence dans la table connexe (en ouvrant un autre RecordSet?)
Merci

J'ai regardé dans la FAQ et j'ai trouvé ça:

select case err.number
case 3200
msgbox....

Mais justement pour tester le numéro d'erreur d'Access, il faut que l'erreur se produise et donc je l'aurai toujours automatiquement avec un plantage? :

Code :

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

1
2
3
4
Rs.Delete
          Select Case Error(errornumber)
                    Case 3200
                    MsgBox "erreur"

Ici l'erreur se produit au Delete et me renvoie donc direct le message d'erreur d'Access...Quelqu'un pourrait m'expliquer?
Merci

[AlainTech]

Code :

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

On Error Resume Next

Juste avant ton Rs.Delete