OVH Cloud OVH Cloud

controle image empty

2 réponses
Avatar
JFP
Bonjour,

Je dois tester, en VB access 2000, si un contrôle d'image est vide ou non.
J'avais écrit :

If (Me![cadre image].Picure = Empty) Then
MsgBox ("Le cadre image est vide")
Else
MsgBox ("le cadre contient une image")
End If

et curieusement, même quand le contrôle était vide, il me répondait le
contraire ! obstinément.
J'ai alors vu que dans les propriétés du contrôle, quand celui ci était
vide, apparaissait la valeur (aucune). J'ai donc écrit :

If (Me![cadre image].Picure = "(aucune)") Then
MsgBox ("Le cadre image est vide")
Else
MsgBox ("le cadre contient une image")
End If
Et là ça marche !.

Alors quel est le problème ? me diront ceux qui auront eu le courage de me
lire jusqu'ici...
Tout simplement que l'application que j'écris va également être utilisé sur
une version allemande d'Access... et si je teste la valeur "(aucune)" dans
mon script, je pense que je vais avoir "ein klein Probleme" !

Alors que faire ? y a-t-il eine Zubtilité quelque part ?
Merci de votre aide,
JFP

2 réponses

Avatar
Ilan
Bonjour,
essaie en testant :
Left(Me.[cadre image].Picture,1) = "("
Right(Me.[cadre image].Picture,1) = ")"



Bonjour,

Je dois tester, en VB access 2000, si un contrôle d'image est vide ou non.

If (Me![cadre image].Picure = Empty) Then
MsgBox ("Le cadre image est vide")
Else
MsgBox ("le cadre contient une image")
End If

et curieusement, même quand le contrôle était vide, il me répondait le
contraire ! obstinément.
J'ai alors vu que dans les propriétés du contrôle, quand celui ci était

If (Me![cadre image].Picure = "(aucune)") Then
MsgBox ("Le cadre image est vide")
Else
MsgBox ("le cadre contient une image")
End If
Et là ça marche !.

Alors quel est le problème ? me diront ceux qui auront eu le courage de me
lire jusqu'ici...
Tout simplement que l'application que j'écris va également être utilisé sur
une version allemande d'Access... et si je teste la valeur "(aucune)" dans
mon script, je pense que je vais avoir "ein klein Probleme" !

Alors que faire ? y a-t-il eine Zubtilité quelque part ?
Merci de votre aide,
JFP





Avatar
3stone
Salut,

"JFP"

Je dois tester, en VB access 2000, si un contrôle d'image est vide ou non.

If (Me![cadre image].Picure = Empty) Then
MsgBox ("Le cadre image est vide")
Else
MsgBox ("le cadre contient une image")
End If



Essaies:

If IsEmpty(Me![Cadre image].Picture)



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome