options access ignorées

Salut à tous

J'ai une base de données que j'ouvre depuis une application vb6

Code:

---

1 2 3 4 5 6 7

strDB = "C:\maBase.accdb" Set appAccess = CreateObject("Access.Application") With appAccess .Visible = -1 .OpenCurrentDatabase strDB, -1, "MonPwd" End With

---

La base s'ouvre mais le hic c'est que Access n'affiche plus les message d'alerte lors de la suppression d'un objet
ou de l'exécution des requêtes actions bien que les options soient cochées. Je dois les décocher et les recocher
manuellement.
J'ai essayé ce code pour simuler ce que je fais manuellement: les options sont cochées/decochées
mais Access reste muet lorsque je supprime une table (gare à un mauvais geste vers la touche "suppr"!)

Code:

---

1 2 3 4 5 6 7 8 9 10

with application .SetOption "Confirm Action Queries", 0 'Requetes Actions .SetOption "Confirm Document Deletions", 0 'Suppression d'enregistrement .SetOption "Confirm Record Changes", 0 'Modification d'enregistrement   .SetOption "Confirm Action Queries", -1 'Requetes Actions .SetOption "Confirm Document Deletions", -1 'Suppression d'enregistrement .SetOption "Confirm Record Changes", -1 'Modification d'enregistrement end with

---

Merci d'avance pour votre aide

Bonjour,

Essaies plutôt la commande :

Code:

---

Docmd.SetWarnings True

---

pour activer les messages d'avertissements d'ACCESS.
Maintenant, je pense que quelque part ans ton code tu as du mettre à FALSE et cela ne revient pas à TRUE.

Cordialement,

Observations : Normalement on inhibe ces messages du progiciel de toutes les façons et on crée des messages personnalisés pour que l'utilisateur comprenne ce qui se passe ?!? Non ?

@madefemere
merci pour ta promptitude
J'ai essayé ta solution mais c'est le statut quo
Le problème ne survient que lorsque j'ouvre la base avec Opencurrentdatabase
Pour les alertes, c'est surtout pour moi pour ne pas supprimer un objet par mégarde
Merci encore