Discussion :

[VBBBA]

Bonjour à tous,
J'ai un soucis dans un code VBA que je ne comprends pas du tout

J'appelle une requête Access via une macro. Mais elle n’exécute pas la requête.

Quand je lance la requête manuelle, elle s’exécute.

Je ne vois pas comment régler ce problème??

Merci d'avance pour votre aide!

[PipoWIL]

Bonjour,
Vous pouvez essayer 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
24
25
26
27
28
29
30
31
Function executer_une_Query()
Dim strMaFacture As String
Dim strSQL As String
 
'ceci execute la query mais demande à l'utilsateur de confirmer en interrompant la procédure et avec un message à l'écran
DoCmd.OpenQuery "Query5"
 
 
DoCmd.SetWarnings False
'ceci execute la query et ne demande pas à l'utilsateur de confirmer parce que les SetWarnings suppriment le message à l'écran
DoCmd.OpenQuery "Query5"
DoCmd.SetWarnings True
 
'ceci exécute la query et ne demande pas à l'utilsateur de confirmer
CurrentDb.Execute "query5"
 
'on peut exécuter un statement SQL
CurrentDb.Execute "INSERT INTO [maTableDeFactures] ( Fact, Fact_D )SELECT '123' AS F, Now() AS F_D"
 
'ce genre de chose permet de modifier la query SQL dans le code VBA :
strMaFacture = "F123"
strSQL = "INSERT INTO [maTableDeFactures] ( Fact, Fact_D )SELECT '" & strMaFacture & "' AS F, Now() AS F_D"
CurrentDb.Execute strSQL
 
 
'Veuillez noter que toutes ces queries sont des queries d'action qui modifient les données dans la table.
'pour exécuter une simple query 'SELECT' qui affiche simplement une sélections de lignes à l'écran, il faut préciser comme ceci :
DoCmd.OpenQuery "Query7", acViewNormal
 
 
End Function

[VBBBA]

Merci pour le retour.

Dans mon code, j'utilise le DoCmd.SetWarnings False et True..

Mais je ne vois pas en quoi cette commande '( ou sans ) bloquerait l'exécution de mon code..??

[PipoWIL]

bonjour,
Apres le Docmd et le nom de la query, avez-vous essayé une des options proposées par VBA ?

Code :

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

docmd.OpenQuery "MaQuery",acViewNormal

[VBBBA]

non, j'appelle mes requêtes de cette façon:

Code :

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

DoCmd.OpenQuery "Nom de ma requête"

Pour être plus précis, j'ai un module où j'ai une dizaine de requêtes de Mise à jour que j'appelle de cette façon.

A la fin de mon code, je vois certaines requêtes qui ont été exécutés et d'autres non...

Pour celles qui n'ont pas tourné, quand je les fais exécuter manuellement, elle tournent comme il faut.. Du coup je ne comprends pas la raison...

Merci encore pour vos réponses