[VB sous Access] pb d'affichage de date
kisprod
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
mishan Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
mishan Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
Bonjour,j voudrais afficher dans un état sous access 2003 des dates.J'ai un état qui affiche une liste de produit pharmaceutiques avec leur date de péremption mais je voudrais afficher les dates de péremption les plus proches en rouges et toutes les autres restantes en bleu.Vraiment aidé-moi,merci d'avance pour votre aide
A voir également:
- [VB sous Access] pb d'affichage de date
- Vb - Télécharger - Langages
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Airpods 3 date de sortie - Guide
- Problème affichage photo messenger - Forum Facebook Messenger
14 réponses
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 !!
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?
<<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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ?
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
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 ??
ton champs se nomme bien datexp ??
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
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
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)
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)