Discussion :

[killowatt]

Bonjour a tous,
je suis en train de créer un logiciel de gestion des arrêts de travail.... Et la c'est le drame !!!
Je dois ouvrir un formulaire "Essai_Abs" avec des critères mais il me dis qu'il y a une incompatibilité de type....
Le premier critère est une case à cocher, la secondes est le début d'une absence et l'autre la fin d'une absence.
Ce que je voudrai faire c'est sélectionner les personnes appartenant a 'GP' ou 'PPF' ayant eut un arrêts entre deux dates sélectionner dans un formulaire "Frm_Statistiques".

Code :

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

1
2
3
 
 
If Me.CB_GP = True Then DoCmd.OpenReport "Essai_Abs", acPreview, , "[Employeur] like 'GP'" And "[Date_Debut_Abs]> " & Me.Debut_Abs & " And  [Date_fin_Abs] < " & Me.Fin_Abs & ""

Est-ce qu'il faut convertir la date en valeur numérique ?

Merci de votre aide les ami(e)s.

[madefemere]

Bonsoir,

Tu as oublié de mettre les dates entre # et il vaut mieux utiliser le format US :

Code :

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

If Me.CB_GP = True Then DoCmd.OpenReport "Essai_Abs", acPreview, , "[Employeur] like 'GP'" And "[Date_Debut_Abs]># " & Format(Me.Debut_Abs,'yyyy/mm/dd') & "# And  [Date_fin_Abs] < #" & Format(Me.Fin_Abs,'yyyy/mm/dd') & "#"

Cordialement,

[killowatt]

Tout d'abord merci pour la réponse rapide.
Lorsque je copie exactement la ligne de code il me met un message d'erreur au niveau du premier format.....
Ensuit lorsque je met ceci

Code :

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

1
2
3
 
 
If Me.CB_GP = True Then DoCmd.OpenReport "Essai_Abs", acPreview, , "[Employeur] like 'GP'" And "[Date_Debut_Abs] ># " & Format(Me.Debut_Abs, yyyy / mm / dd) & " # and [Date_fin_Abs] < #" & Format(Me.Fin_Abs, yyyy / mm / dd) & "#"

Il me dit dépassement de capacité ....

[madefemere]

Bonsoir,

Autant pour moi, je me suis trompé effectivement dans l'utilisation de Format :

Code :

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

If Me.CB_GP = True Then DoCmd.OpenReport "Essai_Abs", acPreview, , "[Employeur] like 'GP'" And "[Date_Debut_Abs]># " & Format(Me.Debut_Abs,"mm/dd/yyyy") & "# And  [Date_fin_Abs] < #" & Format(Me.Fin_Abs,"mm/dd/yyyy") & "#"

Cordialement,

[killowatt]

Bonjour désolé pour le retard de la réponse mais j'ai toujours l'erreur de l' incompatibilité de type....

[madefemere]

Bonjour,

Re-désolé, le premier "And" n'était pas une variable, donc devrait rester entre "".
L'erreur n'était pas là où on le pensait.

Code :

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

If Me.CB_GP = True Then DoCmd.OpenReport "Essai_Abs", acPreview, , "[Employeur] like 'GP' And [Date_Debut_Abs]># " & Format(Me.Debut_Abs,"mm/dd/yyyy") & "# And  [Date_fin_Abs] < #" & Format(Me.Fin_Abs,"mm/dd/yyyy") & "#"

Cordialement,