Access : test avant ouverture rapport

Question

Bonjour,

Même si d'habitude je trouve des réponses à mes question ici, là je bloque, et avant que mon pc ne passe par la fenêtre ....
Je tente le code suivant, pour ouvrir un rapport, en filtrant les données par rapport à une date :
Private Sub BtValider_Click()
Dim ChxMois, ChxAnnee As Integer
Dim DateRefDeb As Date

ChxMois = Me.Mois
ChxAnnee = Me.Annee

DateRefDeb = DateValue("01/" & ChxMois & "/" & ChxAnnee)
Me.EtAlerte.Visible = True
Me.Repaint

DoCmd.OpenReport "ReGEFEListeDépartsPrévus", acViewPreview, "", "(DateDépartCFC > (" & DateRefDeb & ") )"
End Sub

Et ça ne marche pas ! si je remplace (" & DateRefDeb &") par une valeur immédiate (#01/06/2010#) ça marche.
Aurais-je oublié une partie de mes neurones ??
Merci de votre aide
Fred

scromania · Answer

quand tu dis (#01/06/2010#) ça marche. avec les # inclus car je ne les vois par dans DateRefDeb = DateValue("01/" & ChxMois & "/" & ChxAnnee)

fredpro59 · Answer

Hello,

On met un # lorsqu'il s'agit d'une valeur immédiate, mais si je tente de le faire dans la variable DateRefDeb, j'ai une erreur d'incompatibilité de type sur la ligne DateRefDeb = DateValue("01/" & ChxMois & "/" & ChxAnnee).

cs_abdellatyif · Answer

en pas à pas,
c'est quoi les valeurs de ChxMois et ChxAnnee???

fredpro59 · Answer

[résolu]
C'est le soucis d'inversion mois/jour à cause de windaube.
Résolu avec le code http://www.vbfrance.com/codes/VBA-ACCESS-PROBLEME-DATE-DANS-REQUETE-SQL_6469.aspx MakeUDDate

Pour abdellatyif : ChxMoix et ChxAnnee sont des variables saisies dans un formulaire qui conditionnent le filtre à faire sur les données ( mois et année)

cs_abdellatyif · Answer

alors c c bien ;)

cs_abdellatyif · Answer

tu as gardé ton pc haha

salut

Access : test avant ouverture rapport

6 réponses

Votre réponse

Discussions similaires