Limite de temps sous access Fermé

Question

Bonjour,
voilà mon problème : Je dois créer un évènement dans access qui me permette d'obtenir un changement (ex : un bouton qui prend la couleur rouge) en fonction d'une limite de temps. Ma base de donnée correspond à une liste de véhicules qui doivent être mis à la vente six mois après être entrés "en magasin" si je puis dire.
Donc sur un formulaire j'ai un bouton qui correspond à chaque véhicule, ce bouton (click) ouvre la table correspondante avec les détails du véhicule.
Ce qu'il me faudrait c'est qu'en visualisant ce formulaire, je sache quels sont les véhicules qui sont "en magasin" depuis six mois. L'idéal serait d'avoir un effet sur le bouton, comme un changement de couleur, ou autre chose du moment que celà "saute aux yeux".
Je suppose qu'il faut passer par une formule, mais je ne connais rien en vba, pouvez-vous me donner un petit coup de main ?
Merci à tous par avance.

Frappe Misere · Answer

Private Sub Texte1_GotFocus()
Commande0.ForeColor = 0
If Texte1.text <> Null Then
If date - CDate(Texte1.text) > 180 Then
Commande0.ForeColor = 255
End If
End If
End Sub

le code s'execute quand l'etiquete "texte1" recoit le focus.
il y a comparaison entre la dte inscrite dans texte1 et aujourd hui et si >180 alors la police du bouton "commande0" devient rouge.

bnb · Answer

Utilise la fonction autoformat de ton formulaire en mode design... sous le menu  Format!

Frappe Misere · Answer

le focus c'est le fait de recevoir le curseur, le moment ou tu peux saisir dedans.
Private Sub Texte1_GotFocus() 
Commande0.ForeColor = 0 
If Texte1.text <> Null Then 
If date - CDate(Texte1.text) > 180 Then 
Commande0.ForeColor = 255 
End If 
End If 
End Sub 

à la ligne : if date (là il prends la date du jour de ta machine) - cdate(texte1.text) (là c'est ce qu il y a d'inscrit dans ta textbox)

Frappe Misere · Answer

tu n'as bien compris je crois.
c'est une fonction à écrire en VBA.
tu vas sur ton formulaire, tu le mets en mode création puis un clic droit sur ta texbox et "créer code evenement"

Frappe Misere · Answer

je suis clément, seulement je suis bref ce qui parfois laisse croire le contraire. il n'y a pas de date dans le code puisque la date est "lue" dans ton champs texte qui l'affiche. Private Sub Texte1_GotFocus() ...........Faut-il mettre quelque chose ici entre les parenthèses ? non Commande0.ForeColor = 0.................Je suppose que là je remplace par le nom de ma commande par le nom de ton bouton, oui If Texte1.text <> Null Then....................Dois-je mettre une datre entre les signes <> ? tu dois juste changer le "texte1" par le nom du champs texte qui affiche la date If date - CDate(Texte1.text) > 180 Then...........Entre les parenthèses dois-je mettre la date d'entrée du produit ? non, idem que au dessus Commande0.ForeColor = 255............Et ici je remplace encore par le nom de ma commande ? exact End If End If End Sub courage, tu vas y arriver.

Patrick06 · Answer

Bon et bien rien à faire !!!! J'ai pourtant un champs texte dans ma table et la première ligne porte la date, ce champs est nommé ChampsD (pour date), lorsque je génère le code sur la base donnée, celle-ci : Private Sub Texte1_GotFocus() Commande0.ForeColor = 0 If Texte1.text <> Null Then If date - CDate(Texte1.text) > 180 Then Commande0.ForeColor = 255 End If End If End Sub Le prog remplace d'office Texte1 par Bouton01 (le nom de mon bouton) et lorsque je lance "l'effet" une erreur ce produit "objet manquant" et le débogueur stoppe sur la ligne en gras. Private Sub Bouton01_GotFocus() Bouton01.ForeColor = 0 If ChampsD.Text <> Null Then If Date - CDate(ChampsD.Text) > 180 Then Bouton01.ForeColor = 255 End If End If End Sub Te resterais t-il un brin d'espoir que je comprenne Frappe Misere ????

Frappe Misere · Answer

tu peux faire un screen de ton formulaire et me l envoyer ?
je pourrais mieux t expliquer en connaissant un peu ton formulaire

Patrick06 · Answer

Slt Frappe Misère, je n'étais pas devant ma bécane depuis deux jours, voilà pourquoi je tardais à répondre ! Je pourrais effectivement faire des screens, mais le "travail" que je tente d'effectuer (c'est pas gagné) fait partie d'un ensemble confidentiel qui ne m'appartient pas, donc derière moi il se trouve des "opposants" si je puis dire. Ce qu'il faudrait c'est que je recrée un formulaire type sans présentation, mais franchement je ne sais pas si celà t'aiderais beaucoup. Finalement il ne s'agit que de boutons dont une fonction (click) permet d'appeller une table qui contient des renseignements (le bouton porte un numéro d'ordre qui correspond à la table) La deuxième fonction que je n'arrive pas à réaliser malgrés tes efforts, tu la connais, faire en sorte que ce bouton change de couleur (ou même ce qui est écrit dedans) dés lors que la date d'entrée du produit (noté dans le ChampsD de la table correspondante) est supérieur à six mois par rapport à la date du jour. Ce ChampsD ne semble pas être "accepté" et la ligne correspondante de la formule donnée : If ChampsD.Text <> Null Then Est celle surlignée en jaune par le débogueur (erreur d'execution "424" __ Objet requis) J'ai modifié le nom, changé de type de date, mais rien ne fonctionne quoi que je fasse j'ai toujours le même message d'erreur. Pour info je passe par les propriétés du bouton, pour executer la tache et j'enregistre à chaque fois les modifs, mais encore et toujours l'erreur demeure. La formule est pourtant inscrite comme suit : Private Sub Bouton01_GotFocus() Bouton01.ForeColor = 0 If ChampsD.Text <> Null Then If Date - CDate(ChampsD.Text) > 180 Then Bouton01.ForeColor = 255 End If End If End Sub Si tu as encore 5mn.......Merci.

Frappe Misere · Answer

Private Sub ChampsD_GotFocus() 
Bouton01.ForeColor = 0 
If ChampsD.Text <> Null Then 
If Date - CDate(ChampsD.Text) > 180 Then 
Bouton01.ForeColor = 255 
End If 
End If 
End Sub 

en sachant que ChampsD doit etre une "zone de texte", dis moi si c'est autre chose.
tu peux aussi mettre un point d'arret devant cette ligne pour voir ce que contient excatement ChampsD au moment ou le programme s arrete.

Patrick06 · Answer

Bonsoir Frappe Misère, bon j'ai effectué l'essai, mais celà ne donne rien si je respecte tes données : Private Sub ChampsD_GotFocus() Bouton01.ForeColor = 0 If ChampsD.Text <> Null Then If Date - CDate(ChampsD.Text) > 180 Then Bouton01.ForeColor = 255 End If End If End Sub Le VBA passe "en mode général" et le code n'est plus attribué à mon bouton01, donc je passe de nouveau par format GotFocus, le VBA affiche automatiquement le nom du Bouton, je colle le code (pour la 1000000eme fois !), et toujours erreur, finalement une info bulle me prospose de changer le "Text" par "Value", ce que je fais, là plus d'erreur, ce qui donne : Private Sub Bouton01_GotFocus() Bouton01.ForeColor = 0 If ChampsD.Value <> Null Then If Date - CDate(ChampsD.Value) > 180 Then Bouton01.ForeColor = 255 End If End If End Sub Mais mon bouton ne passe pas plus au rouge qu'avant !!! Pourtant mon ChampsD sur ma table porte bien la date de 01/11/2007 ce qui fait donc + de six moi à ce jour et je respecte donc : If Date - CDate(ChampsD.Text) > 180 Then Faut-il que ce ChampsD soit reporté sur mon formulaire pour que celà fonctionne ? Pour changer je suis paumé ! Merci d'avance pour continuer de te pencher sur mon problème. Patrick.

Frappe Misere · Answer

j'ai comme l'impression que tu en as oublié un bout en chemin.
envoie moi ton mail par mp, je te fais une base avec une table, un formulaire et la fonction pour te montrer.

Limite de temps sous access

11 réponses

Discussions similaires