listing entre 2 date

Question

bonjour, je travais sous access 2002
 j'essai de faire un linsting par rapport a 2 date avec un calendrier, mais j'ai un bug quand je clic sur afficher il me souligne une fonction je ne conmprend pas pourkoi
quel qu'un peut m'aider

voila le code et il me met "erreur de compilation "Sub ou fonctin non d&#233;finie"
en surlignant DateAng
je pige pas

Private Sub AFFICHER_Click()
On Error GoTo Err_AFFICHER_Click

Dim SousFormulaire As String
Dim Crit&#232;re As String
SousFormulaire = "sf_reception"

If IsNull(DateD&#233;but) Or IsNull(DateFin) Then
    MsgBox "Veuilliez s&#233;lectionner deux dates"
    Else
        If DateFin < DateD&#233;but Then
        MsgBox "la deuxi&#232;me date doit etre posterieur &#224; la premi&#232;re"
        Crit&#232;re = "[DateR&#233;ception]>=" & "#" & DateAng(Me![DateD&#233;but]) & "#" & " AND " & "[DateR&#233;ception]<=" & "#" & DateAng(Me![DateFin]) & "#"
        DoCmd.OpenForm SousFormulaire, , , Crit&#232;re, , acDialog
        End If
End If
    
Exit_AFFICHER_Click:
    Exit Sub
Err_AFFICHER_Click
    MsxBox Err.Description
    Resume Exit_AFFICHER_Click
    
        
End Sub

merci

cs_Jack · Answer

Salut
Et c'est senc&#233; &#234;tre quoi DateAng comme fonction ?
La premi&#232;re fois que je vois &#231;a.
A part cette fonction bizarre (surement une de tes fonctions personnelles), utilise Between plut&#244;t qu'un And :
Crit&#232;re = "[DateR&#233;ception] Between #" & DateAng(Me![DateD&#233;but]) & "# AND #" & DateAng(Me![DateFin]) & "#;"
Ajoute aussi un ; final, certains SQL l'exigent
Veille aussi &#224; bien ajouter des espaces entre les termes. Evite "[DateR&#233;ception]>=" par exemple.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accro

Listing entre 2 date

1 réponse

Discussions similaires