Discussion :

[billcoyotte]

bonjour
je possede un formulaire avec un bouton qui ouvre un état
j'ai bessoin d'imprimer des commandes qui ont eu lieu au courant du mois en cours
pour l'instant je change manuellement dans les proprietés de la requete : je defini la date le premier jour du mois et celle de fin de mois
je voudrais bien qu'en cliquant sur le bouton formulaire que suivant la date du jour un code Vba change automatiquement les dates des propriétes de ma requete?
a+

[Jeannot45]

Bonjour et Bienvenue sur forum

Pas besoin de code VBA. Jettes un coup d'oeil du côté des requetes paramétrées dans l'aide d'access

Bonne continuation

[billcoyotte]

ok merci a toi
mais c'est quant du code vba que je dois mettre dans las parametres
donc si la date du jour est le mois de juin alors utiliser le parametre debut de mois et fin de mois?
je vois ca avec un if and then?Non? mais comme je suis novice : pouvez me fournir la ligne a écrire?

a+

[Jeannot45]

Re,

En fait cela se fait directement dans la requête.

Tu ouvres ta requête en mode création et à la place des valeurs critères tu écris :

Entre [Saisir la date de début] Et [Saisir la date de Cloture]

Lorsque tu lanceras ta requête, Access ouvrira des boites de dialogue our saisir les différentes dates.

PS : Attention les crochets sont importants

[billcoyotte]

ok merci pour ta réponse
mais je voudrais bien qu'i prenne le debut et la fin du mois en cours en automatique
j'ai parcouru l'aide
j'essayer l'expression mois(maintenant)) mais j'ai un message d'erreur me dissant que les criteres ne sont pas correct
qu'en pensez vous?

[Jeannot45]

Il te faudra alors utiliser les fonctions Date dans le code VBA (en effet). Je t'engage, pour commencer, à lire le tuto : Fonctions Date et heure en VBA

Il te faudra ensuite modifier le code VBA du bouton en ajoutant la partie WHERE dans le code

Code :

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

DoCmd.OpenReport MonEtat, acPreview, ,Condition enVBA

Bonne continuation

[billcoyotte]

ok sympa
j'etudie ca et revient vers vous pour d'autres questions

a+ et merci

[billcoyotte]

voila j'ai creer sur l'evément clic de mon bouton le code suivant

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
Private Sub Bouton10_Click()
On Error GoTo Err_Bouton10_Click
 
    Dim DocName As String
 
    DocName = "impnot"
    DoCmd.OpenReport DocName, A_PREVIEW
 
  Dim dFirst As Date
  Dim dLast As Date
  dLast = DateAdd("d", -1, CDate("1/" & Format(Date, "mm/yyyy")))
  dFirst = CDate("1/" & Format(DateAdd("m", -1, Date), "mm/yyyy"))
  MsgBox "Premier jour: " & dFirst & vbCrLf & "Dernier jour: " & dLast
 
 
Exit_Bouton10_Click:
    Exit Sub
 
Err_Bouton10_Click:
    MsgBox Error$
    Resume Exit_Bouton10_Click
 
End Sub

Ensuite dams ma requete je viens mettre comme critere entre dFirst et dLast

la reponse d'access type de données incompatibles dnas l'expression du critere

merci d'avance

[pier.antoine]

Bonjour.
Truc tout bête, dans mon souvenirs, les critères dates doivent être entourés de dièses "#".

Et puis comme vous utilisez du VBA, pourquoi ne pas inclure le critère à l'ouverture de l'état?

Code :

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

DoCmd.OpenReport DocName, A_PREVIEW," [MonChampDate]  >  # " & dFirst & " # AND [MonChampDate]< #" & dLast & "#"

Avec bien sûr la définition de dFirst et dLast avant l'ouverture de l'état.

Pierre

[fgiambelluco]

Bonjour
On peut tout simplement mettre dans le critère de la requète

Code :

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

Entre SérieDate(Année(Date());Mois(Date());1) Et SérieDate(Année(Date());Mois(Date())+1;1)-1

On peut aussi l'utiliser en VBA, il suffit de mettre les noms des fonctions en Anglais

--------------
Frédéric
http://www.access-developpement.com