Discussion :

[kimai]

Bonjour les amis,
Je suis débutante en macro mais j'essaie la chose suivante.

J'ai créee 4 requêtes sur access qui fonctionnent bien.
J'ai ensuite créee une macro pour agréger ces requêtes

Je voudrais tout basculer sur du VBA afin de réduire le processus (créer une requête puis affecter à une macro) et éviter de surcharger ma base access.

J'ai donc ouvert le code généré et je trouve ceci:

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
23
Option Compare Database
 
'------------------------------------------------------------
' M_Delete_Weeks_Delete_Weeks
'
'------------------------------------------------------------
Function M_Delete_Weeks_Delete_Weeks()
On Error GoTo M_Delete_Weeks_Delete_Weeks_Err
 
    DoCmd.OpenQuery "Query1", acViewNormal, acEdit
    DoCmd.OpenQuery "Query2", acViewNormal, acEdit
    DoCmd.OpenQuery "Query3", acViewNormal, acEdit
    DoCmd.OpenQuery "Query4", acViewNormal, acEdit
 
 
M_Delete_Weeks_Delete_Weeks_Exit:
    Exit Function
 
M_Delete_Weeks_Delete_Weeks_Err:
    MsgBox Error$
    Resume M_Delete_Weeks_Delete_Weeks_Exit
 
End Function

J'aimerai faire la chose suivante:

1- Ajouter une ligne de code pour désactiver toutes les "avertissements" qu'Access fait apparaître lors de l'éxuction d'une requête.
(Je n'ai pas trouvé l'action "Avertissement" dans l'éditeur de macro assisté)

2-Enchaîner les requêtes mais au lieu de demander d'activer la requête, je voudrai si possible renseigner le code SQL associé (afin de ne plus être obligée de garder ces requêtes sur access)
Est-ce possible?

3- Les 4 requêtes reposent sur un même critère (une date) que je demande de renseigner à leur ouverture.
Plutôt que de le renseigner 4 fois j'aimerai bien le rentrer au début et qu'il soit utilisé pour toutes les requêtes.

Pour info je vous mets à quoi ressemble le code SQL d'une des requêtes, sachant que les autres requêtes sont exactement identique si ce n'est qu'elles le font sur des tables différentes.

Code :

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

1
2
3
DELETE [Table1].*, [Table1].WEEK
FROM [Table1]
WHERE ((([Table1].WEEK) Between [1st week of the quarter: aaaa/ww] And "max"));

Si une bonne âme a une solution

Merci, Julie

PS: précision, je suis sur une version d'access en anglais

[Jean-Philippe André]

salut,

la repond a toutes ces questions
http://access.developpez.com/faq/?page=SQL#Warning
repond aux questions 1 et 2


http://access.developpez.com/faq/?pa...DefTypParamReq
et
http://access.developpez.com/faq/?page=SQL#ReqParamVar
pour la 3

la piste pour effectuer une approche plus globale serait les tables de parametres

[kimai]

Merci jpcheck pour ta réponse.
Je vais investiguer tout ceci.

Ju

[sylvain.thibault]

Bonjour,
quelques éléments de réponse :

- Pour désactiver les messages d'avertissement, utilises la syntaxe suivante pour désactiver :

Code :

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

DoCmd.SetWarnings False

et la suivante pour réactiver les messages d'alerte Access.

Code :

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

DoCmd.SetWarnings True

A utiliser avec parcimonie car tous les messages Access sont désactivés.

- Si tu souhaites exécuter du SQL en VB, utilises la syntaxe suivante

Code :

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

DoCmd.RunSQL "<ton code SQL>"

- Pour obtenir une boite de dialogue, utilises la fonction InputBox comme ci-dessous :

Code :

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

1
2
 
date_demandee = InputBox("Renseigner la date (jj/mm/aaaa"", "titre de la boite de dialogue")

Utilises ensuite cette variable dans ton code SQL :

Code :

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

1
2
3
DoCmd.RunSQL "DELETE [Table1].*, [Table1].WEEK
FROM [Table1]
WHERE ((([Table1].WEEK) Between " & date_demandee & " And "max"));"

Bonne chance

[kimai]

Oh Merci Sylvain ça m'aide beaucoup j'étais pas partie comme ça du tout.

Juste une toute petite question, est-il possible de créer une liste déroulante dans l'Input box?
Je ne sais pas trop comment ça s'appelle mais comme je dois sélectionner entre une 10aine de date, je me dis qu'il serait plus opportun de faire apparaître une liste déroulante.

En cherchant j'ai cru comprendre qu'il fallait utiliser la ComboBox
Est-ce que les valeurs (parmi lesquelles choisir) doivent être sur une table access ou je peux les indiquer directement dans ma macro?

[kimai]

Re moi,
J'ai commencé à "coder" en attendant de voir pour la liste déroulante (si on peut appeller ça du code lol)

Voici ce que j'ai, mais par contre ça ne marche pas trop, comme je le disais je suis novice, il doit avoir des erreurs de syntaxes en chaîne

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
23
24
25
26
Private Sub DeleteParameter()
DoCmd.SetWarnings False
 
date_demandee = InputBox("StartingWeek (jj/mm/aaaa)", "Starting Week")
 
End Sub
 
Sub Deletion()
 
DoCmd.RunSQL "DELETE [Table1].*, [Table1].WEEK"
From [Table1] WHERE ((([Table1].WEEK) Between " & date_demandee & " And "max"));"
 
"DELETE [Table2].*, [Table2].WEEK
From [Table2]
WHERE ((([Table2].WEEK) Between " & date_demandee & " And "max"));"
 
"DELETE [Table3].*, [Table3].CORP_Week
From [Table3]
WHERE ((([Table3].CORP_Week) Between " & date_demandee & " And "max"));"
 
"DELETE [Table4].*, [Table4].CORP_Week
From [Table4]
WHERE ((([Table4].CORP_Week) Between " & date_demandee & " And "max"));"
 
DoCmd.SetWarnings True
End Sub

Je crois que je n'ai pas trop réussi à enchaîner les commandes SQL non plus