Discussion :

[Ronn]

Bonjour,
dans ma base de données, j'ai plusieurs plusieurs tables liées du type (Produits, Contrôle de produits, Commande de produits ...). Dans certains formulaires, il y a des boutons de suppression d'enregistrements du type :
-------------------------------------------
Private Sub Suppr_Click()
On Error GoTo Err_Suppr_Click
DoCmd.OpenQuery "SupprProd_RQ", acViewNormal, acEdit
MsgBox ("La fiche produit a bien été supprimée.")
DoCmd.Close

Exit_Suppr_Click:
Exit Sub

Err_Suppr_Click:
MsgBox ("La suppression n'est pas possible car une commande ou un contrôle correspond.")

End Sub
-------------------------------
En cas d'enregistrement connexe (commande ou contrôle lié à un produit), il y a ainsi impossibilité d'éliminer un enregistrement en amont.
Mon problème est que je souhaiterai supprimer (ou désactiver ?) le message qui apparait systématiquement :

"Impossible d'effacer 1 enregistrement(s) de la requete Suppression à la suite de violation de cle .........."

Y'a t'il une solution svp. Merci

[LedZeppII]

Bonjour,

DoCmd.SetWarnigs devrait faire l'affaire

Code vb :

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

1
2
3
4
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "SupprProd_RQ", acViewNormal, acEdit
DoCmd.SetWarnings True

A+