Discussion :

[Lolo62000]

Bonjour,

j'ai un formulaire qui se nomme "F_RMC_Appro", et qui contient un sous-formulaire qui se nomme "SF_RMC_Appro".
Dans mon sous-formulaire, s'affiche une liste de fournisseurs avec différentes informations les concernant, selon une recherche multi-critères.
Ce que j'aimerais faire, c'est afficher une image (Image40) sur les lignes pour lesquelles le fournisseur a été ajouté il y a moins de 90 jours.
J'ai dans mon sous-formulaire une zone de texte affichant la date d'ajout du fournisseur (Date_Ajout), et j'ai donc aussi ajouté une zone de texte qui affiche la date du jour (DDJ).
Le problème, c'est que je suis débutant en vba sous Access, et je ne sais pas exactement comment rédiger la macro.
Ce que j'ai fais, et qui ne fonctionne pas, c'est placer cette macro, dans mon formulaire principal:

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
    If Forms("F_RMC_Appro").Controls("SF_RMC_Appro").DDJ - Forms("F_RMC_Appro").Controls("SF_RMC_Appro").Date_Ajout < 90 Then
        Forms("F_RMC_Appro").Controls("SF_RMC_Appro").Image40.Visible = True
      Else: Forms("F_RMC_Appro").Controls("SF_RMC_Appro").Image40.Visible = False
    End If
End Sub

Je suis certain que la syntaxe n'est pas bonne, ne connaissant pas encore bien vba. Et je ne suis pas sûr de la manière de faire des comparatifs de date sous vba.

Quelqu'un peut-il m'aider svp?

Merci,
Laurent.

[marot_r]

Bonjour.

Je te suggère le code suivant à mettre dans le sous-formulaire puisque, apparemment, tout s'y passe :

Code :

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

1
2
3
4
5
6
7
private sub GererImage()
    if date() - me.[DD]<90 then
         me.Image40.Visible = True
      else 
         me.Image40.Visible = false
    end if
End Sub

et peut-être plutôt sur l'événement "Sur Activation" (*On current").

tu as juste à mettre

Code :

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

call GererImage

Si cela ne marche pas avec Sur Activation, tu peux facilement essayer avec d'autre événement.

Attention ce code ne va fonctionner QUE si tu es en mode "Formulaire unique".

Le Me. réfère au formulaire (ou sous-formulaire et, plus généralement, à l'objet) courant.

et on peut faire plus compact mais moins évident :

Code :

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

me.Image40.Visible = (date() - me.[DD]<90)

Ceci s'appelle une équation logique. (date() - me.[DD]<90) retourne Vrai ou Faux.

A+

[Lolo62000]

Salut marot_r

Merci pour ta réponse.
Mon problème est que mes résultats d'affichent dans un formulaire continu, car je veux afficher une liste des fournisseurs disponibles selon plusieurs critères de recherche. Et dans un formulaire continu, il est ainsi plus facile de les comparer.
Existe t-il ou est-il possible d'afficher ou de masquer un élément dans un formulaire continu?

Merci beaucoup,
Laurent.

[marot_r]

0JBonjour.

De ce que j'ai compris depuis la version 2007, tu peux associer une image sur disque à un contrôle image et définir sa source dans un champ texte.

1. Donc tu pourrais ajouter une image sur ton formulaire (ou utiliser l'image existante),
2. choisir le "type d'image" : attaché
3. et dans la propriété "Source Contrôle" mettre nom de ton champ (ex : [NomImage]).

Dans une requête qui va te servir de source de données tu vas mettre un champ calculé du type

Code :

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

NomImage:iif(Date()-[NomTaTable].[DD]<90; CurrentProject.path & "\NomTonImage.JPG"); Null)

Là où le nom sera complété tu devrais avoir l'image, sinon rien.

En passant il est recommandé de donner des nom significatifs aux contrôles. Ici [Image41], cela ne dit vraiment rien. Quelque chose comme [ImageNouveauFournisseur] Ou [ImageMoins90j] ont plus de sens.

A+