[AC-2007] Erreur dans code VB

[magic57]

Bonjour,

dans mon formulaire, je souhaite afficher un état, avec pour souhait :

afficher tous les bons d'un chantier spécifique, d'une date de départ à une date d'arrivée.

voici le code qui ne fonctionne pas. Qui aurait la solution ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click
 
    Dim stDocName As String
 
    stDocName = "E-Bon Livraison" ' met le nom de ton etat
    DoCmd.OpenReport "E-Bon Livraison", acPreview, , "[Nom_chantier]=" & "'" & Me![Selection chantier] & "'" And "[Date] Between #" & Format(Me![Date-debut], "mm/dd/yyyy") & "# And #" & Format(Me![Date-fin], "mm/dd/yyyy") & "#"
 
Exit_Commande8_Click:
    Exit Sub
 
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
End Sub

[fgiambelluco]

Bonjour
Comme souvent !

voici le code qui ne fonctionne pas.

Qu'est ce qui ne fonctionne pas. Il y a plantage, l'état n'affiche rien, ...
Il est plus facile d'avoir les symptomes pour détecter le problème.

Toutefois, si dans le critère de date [date] représente la date du jour, il faut enlever les crochets.
Il faut vérifier aussi les guillemets. Par exemple :

Code :

"[Nom_chantier]=" & "'" & Me![Selection chantier] & "' And Date() Between #" & Format(Me![Date-debut], "mm/dd/yyyy") & "# And #" & Format(Me![Date-fin], "mm/dd/yyyy") & "#"