[Programmation]msgbox de confirmation

**ancel17** · 23/04/2007, 17h39

Bonjour, ou plutôt bonsoir...

je me demandais si il était possible de ne pas demander de confirmation lors de l'éxécution de requêtes action ?

En effet, sur un Clic, j'execute successivement une requete Delete et une requete Insert, ce qui affiche successivement 4 msgbox de confirmation (confirmation de l'execution de la requête action delete, confirmation de la suppression des enregistrement, confirmation de l'execution de la requête action insert, confirmation de l'insertion des enregistrement) ce qui pourrait à la longue agacer l'utilisateur...

Merci de vos réponses !

**marot_r** · 23/04/2007, 17h43

Oui, c'est possible et il y a une FAQ là dessus (elle montre comment neutraliser les messages) mais je préfére la solution suivante :

Code :

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

1
2
 
CurrentDB.Querydefs("maQuery").execute

Cela fait exactement la même chose sans nécessité de modifier le setting de la BD.

A+

**helas** · 23/04/2007, 17h47

menu Outils\Options\Modifier/Rechercher
Décocher les 3 options du groupe Confirmer

ou par code au démarrage de l'application

Code :

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

1
2
3
4
 
 Application.SetOption "Modification des enregistrements", False
 Application.SetOption "Confirmer Suppressions de documents", False
 Application.SetOption "Confirmer Requêtes action", False

**marot_r** · 23/04/2007, 17h51

Attention, si tu applique la méthode de Helas, cela va supprimer TOUS les messages d'alerte que tu fasse tes manip par requète ou en direct sur les tables.

A+

**ancel17** · 23/04/2007, 17h51

Merci pour ton aide !

mes requetes sont executées à partir d'une macro ! comment dois-je insérer ta ligne de code dans le mien ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Commande111_Click()
On Error GoTo Err_Commande111_Click
 
    Dim stDocName As String
 
    stDocName = "M_synthèse2"
    DoCmd.RunMacro stDocName
 
Exit_Commande111_Click:
    Exit Sub
 
Err_Commande111_Click:
    MsgBox Err.Description
    Resume Exit_Commande111_Click
 
End Sub

Peut-être faut-il traduire ce que fait la macro en vb ?

**marot_r** · 23/04/2007, 17h54

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Commande111_Click()
On Error GoTo Err_Commande111_Click

    Dim stDocName As String

    stDocName = "M_synthèse2"
   CurrentDB.Querydefs(stDocName ).execute
        
Exit_Commande111_Click:
    Exit Sub

Err_Commande111_Click:
    MsgBox Err.Description
    Resume Exit_Commande111_Click
    
End Sub

A+