[VB sous Access] pb d'affichage de date
Fermé
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
-
26 déc. 2007 à 10:36
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 - 27 déc. 2007 à 10:23
mishan Messages postés 38 Date d'inscription mardi 15 novembre 2005 Statut Membre Dernière intervention 19 mai 2008 - 27 déc. 2007 à 10:23
A voir également:
- [VB sous Access] pb d'affichage de date
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Publipostage date inversée ✓ - Forum Word
- Trouver une date de naissance gratuit - Forum Webmastering
- Affichage double ecran - Guide
14 réponses
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 13:09
26 déc. 2007 à 13:09
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 !!
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:11
26 déc. 2007 à 15:11
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?
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:17
26 déc. 2007 à 15:17
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
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:25
26 déc. 2007 à 15:25
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
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 15:47
26 déc. 2007 à 15:47
Ben j'ai testé ton code chez moi et je peux te dire cela marche (bien sur je n'ai pas le meme champ que toi). Est ce que ton champ se nomme bien datexp ??
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 15:28
26 déc. 2007 à 15:28
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 ?
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:38
26 déc. 2007 à 15:38
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
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 15:48
26 déc. 2007 à 15:48
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 ??
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:51
26 déc. 2007 à 15:51
ui c bien datexp!!
mais comment se fait il que ca ne passe toujours pa?
mais comment se fait il que ca ne passe toujours pa?
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 16:00
26 déc. 2007 à 16:00
Petite précision quand même, est ce tu as pensé à mettre le Style de fond de ton champ en standard et non pas en Transparent ?? Je ne vois que ça sinon je ne sais pas quoi te dire ... :-(
Style de fond=Standard
Style de fond=Standard
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 15:59
26 déc. 2007 à 15:59
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
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 16:07
26 déc. 2007 à 16:07
Ca ne change rien que ce soit un TexteBox. Du moment que tu as pour ton champ ...
Nom = datexp (onglet Autres)
Source contrôle = datexp (Onglet Données)
Style fond = Standard (onglet Format)
définie de cette manière, cela devrait fonctionner.
Nom = datexp (onglet Autres)
Source contrôle = datexp (Onglet Données)
Style fond = Standard (onglet Format)
définie de cette manière, cela devrait fonctionner.
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 16:14
26 déc. 2007 à 16:14
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à
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 16:24
26 déc. 2007 à 16:24
Ben sinon si tu as la possibilité de m'envoyer la partie de ta base avec l'état concerné je pourrais y jeter un coup d'oeil.. enfin moi je travaille sous Access 2000 mais je peux aussi vérifier sous Access 2003 (XP). Tu as juste à mettre la table concerné et/ou la requete + l'état, cela suffira.
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 16:28
26 déc. 2007 à 16:28
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
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
26 déc. 2007 à 16:35
26 déc. 2007 à 16:35
Déja sous quel version travailles tu ? Tu n'a qu'a m'envoyer une version light de ta base sur ce mail : mishan@hotmail.fr
Quand je dis light c'est la base contenant le able Produit, la requete si elle existe et l'état (en fait tu en fait une nouvelle quoi dans laquelle tu met ces info c'est tout)
Quand je dis light c'est la base contenant le able Produit, la requete si elle existe et l'état (en fait tu en fait une nouvelle quoi dans laquelle tu met ces info c'est tout)
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 17:11
26 déc. 2007 à 17:11
scuse moi mai jai un blem avecma connexion a hotmail donc j balance sur yahoo.fr
phil_232
Messages postés
286
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
12 juin 2008
33
26 déc. 2007 à 17:14
26 déc. 2007 à 17:14
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)
kisprod
Messages postés
28
Date d'inscription
lundi 17 décembre 2007
Statut
Membre
Dernière intervention
24 juillet 2009
26 déc. 2007 à 17:26
26 déc. 2007 à 17:26
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
Maintenat j'ai déclaré datexp comme date dan les code là il maffiche tte les dates en rouges c nè pa normal
mishan
Messages postés
38
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
19 mai 2008
1
27 déc. 2007 à 10:23
27 déc. 2007 à 10:23
excuse moi , j'ai bien reçu ton mail mais je ne peux pas détacher le fichier que tu as joint.. je t'ai envoyé un mail sur on adresse yahoo... peux tu me répondre ?
