utilisation de variable pour requete sql

**Grég's** · 08/07/2015, 09h22

Bonjour à tous,

Voila je développe actuellement en vba sous access. Étant débutant (depuis un an

) je rencontre quelques difficultés..
Voila j'ai une base de donnée avec un formulaire comprenant des boutons qui eux exécute un requête et remplisse eux un état. Voila le problème, sur un bouton je voudrai grâce au code demander deux variables

Code :

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

1
2
variable1 = InputBox("date de début")
variable2 = InputBox("date de fin")

. Donc l'utilisateur rentre deux variables ( ce sont des dates) ensuite je voudrais pouvoir utiliser ces variables dans ma requêtes et utiliser aussi ces dates pour remplir de champs de mon état.
Petit résumé :
- deux variables dates déclarer dans le vba du bouton
- ces deux même variables doivent être utilisé dans ma requête (get_variable1() )
- ces deux même variables doivent remplir deux champs "date debut" et "date fin" de mon état.

Je vous remercie de bien vouloir m'aider et m'enlever cette épine du pied ^^

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
Private Sub Ctl_Editions_LJ_Click()
On Error GoTo Err_Ctl_Editions_LJ_Click
 
    Dim stDocName As String
    Dim variable1 As String
    Dim variable2 As String
 
 
variable1 = InputBox("date de début")
variable2 = InputBox("date de fin")
MsgBox variable1
MsgBox variable2
 
DoCmd.OpenQuery "Extraction pour éditions des jugements LJ"
get_variable1 [Extraction pour éditions des jugements LJ]
get_variable2 [Extraction pour éditions des jugements LJ]
 
 
 
    stDocName = "Editions des LJ à traiter"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Ctl_Editions_LJ_Click:
    Exit Sub
 
Err_Ctl_Editions_LJ_Click:
    MsgBox Err.Description
    Resume Exit_Ctl_Editions_LJ_Click
 
End Sub

Merci beaucoup les amis !!!

**madefemere** · 08/07/2015, 10h37

Bonjour,

Il faudrait dans ce cas déclarer les variables comme Public (dans un module standard indépendant et non dans un module de formulaire). De ce fait, tu peux y accéder de n'importe où de ton application.
Par contre, je ne sais pas si tu pourras l'utiliser dans une requête ?

La solution idoine pour moi serait de créer 2 zones de texte dans ton formulaire pour recevoir tes dates.
Et appeler ces valeurs n'importe où (tant que le formulaire est ouvert) dans un code VBA avec :

Code :

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