Discussion :

[Bernard67]

Bonjour le forum,

Serait il possible d'avoir le code a rentrer dans un module pour activer 2 requetes suppressions à la fermeture de la base (sans avoir la fenetre de confirmation des suppressions) ?
Il s'agit des requetes :
-ViderTBLDonneur
-ViderTBLBaseCentrale.

Merci pour l'aide.
Cdt

[Heureux-oli]

Salut,

Tu peux obtenir ce que tu veux en laissant un simple formulaire ouvert dans ta DB est sur l'évènement de fermeture, tu lances tes deux requêtes.

Pour éviter les messages, c'est assez simple

Code :

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

1
2
3
4
5
6
7
DoCmd.SetWarnings = False
 
...
...
...
 
DoComd.SetWarnings = True

http://access.developpez.com/faq/?page=SQL#Warning

http://access.developpez.com/faq/?page=SQL#ExecSQLvba

[Bernard67]

Merci Heureux-oli pour l'aide.
Par contre lorsque je change de mode d'affichage du Form, les requetes sont lancees automatiquement
Y a t il une autre solution ?
Merci

[Heureux-oli]

Qu'entends-tu par changement du mode d'affichage du formulaire ?

[Bernard67]

C'est passer du mode creation en mode formulaire et vice-versa

[Heureux-oli]

C'est normal, ça correspond à une fermeture.
Tu peux éditer le code sans passer en mode création dans le VBE.

[Bernard67]

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
18
19
20
21
22
Private Sub Form_Close()
 
'DoCmd.SetWarnings = False
'Private Sub Vder_Tbl_Base_Donneur_Mensuelle_Click()
On Error GoTo Err_Vder_Tbl_Base_Donneur_Mensuelle_Click
 
    Dim stDocName As String
 
    stDocName = "BD_Rq-Vder_Tbl_Base_Donneur_Mensuelle"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_Vder_Tbl_Base_Donneur_Mensuelle_Cli:
    Exit Sub
 
Err_Vder_Tbl_Base_Donneur_Mensuelle_Click:
    MsgBox Err.Description
    Resume Exit_Vder_Tbl_Base_Donneur_Mensuelle_Cli
 'DoCmd.SetWarnings = True
'End Sub
 
 
End Sub

Comment relies tu les 2 requetes dans le codes ?

[Heureux-oli]

Salut,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Close()
 
DoCmd.RunSQL "MonSQL1"
DoCmd.RunSQL "MonSQL2"
 
 
 
End Sub

[Bernard67]

Merci et bon WE
Cdt