Discussion :

[decour]

Bonjour,

J'aimerais imprimer un rapport en ne prenant en compte que les dates supérieures à une valeur rentrée dans la zone de texte "date_rapport_min".
La base à imprimer s'appelle "hotline" et possède un champ "date"

J'ai rentré le code suivant

Code :

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

1
2
3
4
5
6
Dim stDocName As String
    Dim Datation As Date
    Datation = "# Me.date_rapport_min #"
 
    stDocName = "hotline"
    DoCmd.OpenReport stDocName, acViewPreview, , "date > Datation"

mais j'obtient l'erreur
"type mismatch". Comment faire?

Merci de votre aide

[loutente]

Il me semble que si tu mets

Code :

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

1
2
 
Datation = "# Me.date_rapport_min #"

il faut que la date soit au format US Soit Mois /Jour/Annee

mais ça doit marcher avec

Code :

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

1
2
3
4
5
6
Dim stDocName As String 
    Dim Datation As Date 
    Datation =  Me.date_rapport_min.value
 
    stDocName = "hotline" 
    DoCmd.OpenReport stDocName, acViewPreview, , "date > " & Datation

[argyronet]

Bonjour,

Tu dois écrire cela comme suit:

Code :

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

1
2
3
4
5
 
Dim strDatation As String
 
    strDatation = "#" & Format(Me!date_rapport_min, "mm/dd/yyyy") & "#"
    DoCmd.OpenReport "hotline", acViewPreview, , "[date] > " & strDatation

Argy