utiliser With "directement"

[Ragmaxone]

Bonjour,

Bon j'ai cherché dans deux trois tutos et sur le forum mais j'ai rien trouvé alors voilà :

je voudrais lancer un bloc With sur un objet OBJET et appeler cet objet dans le bloc... mais je sais pas quel mot clé utiliser...

ex :

With OBJET
    If OBJET Then
         OBJET=False
    Else
         OBJET=True
    End If
End With

(je sais c'est bidon comme code on peut faire beaucoup plus simple mais c'est juste un exemple )

Merci d'avance pour votre tolérance .


Rag

[Philippe JOCHMANS]

Bonjour

Tu ne peux utiliser un bloc With sur un objet de la sorte, mais sur ces propriétés.

Prenons un exemple sous Access, dans un formulaire j'ai une zone de texte, que je nommes txtNom.

Je veux tester sa valeur, et si c'est toto, je mets le fond en rouge, et si c'est autre chose je mets celui-ci en vert.

Donc sur l'évènement Click d'un bouton de commande je colle le code suivant :

With Me.txtNom
        If .Value = "toto" Then
            .BackColor = vbRed
        Else
            .BackColor = vbGreen
        End If
    End With

Voilà un exemple d'utilisation.

Starec

[Ragmaxone]

Merci beaucoup, c'est ce que je redoutais, tant pis


Rag