[AC-2010] Pas d'affichage de l'image [Résolu]

[scoobydoos]

Bonjour,

Sur mon formulaire "Identification", je veux faire apparaitre une autre image dans le même cadre image, je m'explique :
Je lance mon formulaire :

Code :

1
2
3
4
5
Private Sub Form_Load()
 
    Me.imgcle.Picture = CurrentProject.Path & "\images\icocadenas1.jpg"
 
End Sub

Sur le clic du bouton "ok", je veux mettre une autre image à la place, possible ?

Code :

1
2
3
4
5
Private Sub CommandButton_ok_Click()
 
    Me.imgcle.Picture = CurrentProject.Path & "\images\icocadenas2.jpg"
 
End Sub

Ou est-ce que je dois mettre 2 cadres images et en faire apparaître un et disparaitre l'autre ?

Merci par avance

@+

[loufab]

Bonjour,

Les 2 fonctionnent.

Cordialement,

[scoobydoos]

Bonjour,

Euh en fait j'ai oublié de te dire que ca ne fonctionnait pas justement et c'est pour ca que je voulais avoir un avis

merci par avance

@+

[scoobydoos]

Bonjour,

Bon je n'ai toujours pas trouvé mais si je met, juste après la ligne de mon image, un MsgBox, ca fonctionne l'image est bien changée... !! ?

Code :

1
2
3
4
5
6
7
8
9
10
If Not Enr.EOF Then
    'Met l'image du cadenas en vert
    Me.imgcle.Picture = CurrentProject.Path & "\images\icocadenas2.jpg"
    MsgBox "c ok ou pas ?"
    Sleep (2000)
    DoCmd.OpenForm "Accueil", acNormal, , , , acWindowNormal
    DoCmd.Close acForm, "Identification"
    'User_id = Enr([Nom de l'employé]).Value
    'User_droits = Enr("droits").Value
Else.....

Quelqu'un a une idée ?

merci par avance

@+

[loufab]

Le problème c'est que tu postes ton code au compte goutte. Le code posté à l'origine de ta demande fonctionne.

Si tu fais des traitements après cette ligne il y a des chances que ton formulaire ne soit jamais raffraichit. Donc tu mets un

Code :

doevents

ou encore un

Code :

me.repaint

après ton affectation.

De grace ! pour éviter de nous faire perdre du temps à tout les deux poste l'intégralité de ton code.

[scoobydoos]

Bonsoir,

Oui je le poste au compte parce que je l'ai fait au fur et à mesure...

Merci pour ton aide, effectivement ce fonctionne avec "Me.Repaint".

@+