[VB sous Access] pb d'affichage de date

Bonjour,

je te propose ce bout de code à mettre (et à adapter selon tes besoins) dans ton état sur le champs Date de péremption

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If Month(DatePeremption) = Month(Date) And Year(DatePeremption) = Year(Date) Then
Me.DatePeremption.BackColor = 255
Else
Me.DatePeremption.BackColor = 16777088
End If
End Sub

Bien sûr la condition doit être modifiée selon ce que tu veux dire par " les dates de péremption les plus proches ". Dans mon cas j'ai précisé le mois et l'année en cours.

Bonne chance !!

voici c kil mafiche kom erreur <<Erreur d'exécution'94'>>
<<Utilisation incorrect de Null>>
j fais quoi?

scuse j'ai vu l'erreur que j'ai faite le code fonctionne a moitié c a dire kil nafiche pa les dates en couleurs mais pluto en noir couleur standard

jai mis le code comme il se dot dans le champ datexp de l'état mais rien ne se produit il affiche toutes les dates en noir car voici le code selon mes besoins:
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If Month(datexp) <= Month(date) And Year(datexp) <= Year(date) Then
Me.datexp.BackColor = 255
Else
Me.datexp.BackColor = 16777088
End If
End Sub
cela ne paas toujours pa!que doit-je faire

Qu'est ce que tu veux faire exactement ??

Effectivement, le code que je t'ai fourni t'affiche le le champ "Date de péromption" avec un fond en couleur avec le texte en noir mais si tu veux afficher le texte directement en couleur et non pas le fond, il suffit de remplacer BaclColor par ForeColor :

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If Month(DatePeremption) = Month(Date) And Year(DatePeremption) = Year(Date) Then
Me.DatePeremption.ForeColor= 255
Else
Me.DatePeremption.ForeColor= 16777088
End If
End Sub

au lieu de :

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If Month(DatePeremption) = Month(Date) And Year(DatePeremption) = Year(Date) Then
Me.DatePeremption.BackColor= 255
Else
Me.DatePeremption.BackColor= 16777088
End If
End Sub

Est ce que j'ai répondu à ta question ?

Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If Month(datexp) <= Month(date) And Year(datexp) <= Year(date) Then
Me.datexp.ForeColor = 255
Else
Me.datexp.ForeColor = 16777088
End If
End Sub
toujours rien lorsque je passe en mode impression

Ha tu répond plus vide que moi ... j'ai répondu un peu plus haut...

ton champs se nomme bien datexp ??

ui c bien datexp!!
mais comment se fait il que ca ne passe toujours pa?

joubliais c un control textbox que jutilise dans l'état et comme source de controle dans les propriétés datexp l nom de la propriété de la table Produit

Vraiment aucun effet. c bizarre pkoi cela ne fonctionne pas?jai appliké tt c ke tu ma recommendé.Je te di vraiment merci pour ta disponibilité et ton aide néamoins si tu as toujours d'autres solutions à maporter jsui toujours là

voici la requete:SELECT PRODUIT.codprod, PRODUIT.nomprod, PRODUIT.dosage, PRODUIT.presen, PRODUIT.condi, PRODUIT.datexp
FROM PRODUIT
GROUP BY PRODUIT.codprod, PRODUIT.nomprod, PRODUIT.dosage, PRODUIT.presen, PRODUIT.condi, PRODUIT.datexp;
comment faire pour tenvoyer l'état jne sai pa le faire

scuse moi mai jai un blem avecma connexion a hotmail donc j balance sur yahoo.fr

Nom = datexp (onglet Autres)
Source contrôle = datexp (Onglet Données)
Style fond = Standard (onglet Format)

mais aussi pour les propriétés de la section détail

OnPrint = [prodédure événementielle] (onglet code)

cè c ke javais deja fait mais c ne pass toujours pas
Maintenat j'ai déclaré datexp comme date dan les code là il maffiche tte les dates en rouges c nè pa normal