Discussion :

[samloba]

Salut à tous

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

Code :

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

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 :

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

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

[madefemere]

Bonjour,

Essaies plutôt la commande :

Code :

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

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 ?

[samloba]

@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