[AC-2010] Ouverture Etat + Filtre

[hx.jonathan]

Salut,

Je démarre à peine en VBA. Je souhaiterais ouvrir un état et le filtrer sur base de deux text box présente sur un formulaire. Ces deux text box sont des dates (date début et date fin). Lorsque je clique sur le bouton, cela doit ouvrir l'état et le filtrer sur base des valeurs contenues dans mes deux text box. Je suppose que c'est du super basique pour vous mais pas pour moi.

Ce que je ne sais pas c'est comment ajouter le fait que l'état doit être filtré sur base du contenu des deux text box. Exemple en Français :

Ouvrir formulaire X où le champ Date doit être compris entre les valeurs (text box 1) et (text box 2).

Voici le code que j'ai sur mon bouton. Cela me permet simplement d'ouvrir mon état.

Code :

1
2
3
4
5
6
Private Sub Command21_Click()
 
DoCmd.OpenReport "MonEtat", acViewReport
 
 
End Sub

[hx.jonathan]

J'ai changé mon code avec ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Sub Command21_Click()
 
    Dim DateFrom As Date
    Dim ToFrom As Date
    DateFrom = FromTextBox.Value
    DateTo = ToTextBox.Value
    'MsgBox (DateFrom & "  " & DateTo)
 
    DoCmd.OpenReport "RLINK_R01_R02_Crosstab", acViewReport, , "[DateList] =" & DateFrom
 
End Sub

Il m'ouvre mon état mais ne filtre pas comme il faut. Il m'indique seulement la date du jour. Une idée ?

[User]

Je ne sais pas comment est construit ta requête croisée,

mais tu devrais faire plutôt :

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Sub Command21_Click()
 
    Dim DateFrom As Date
    Dim ToFrom As Date
    DateFrom = FromTextBox.Value
    DateTo = ToTextBox.Value
    'MsgBox (DateFrom & "  " & DateTo)
 
    DoCmd.OpenReport "RLINK_R01_R02_Crosstab", acViewReport, , "[DateList] between #" &  Format$(DateFrom, "mm/dd/yyyy") & "# and #" & Format$(DateTo, "mm/dd/yyyy") & "#"
 
End Sub

Base toi plutot sur l'exemple que je t'ai donné...