Besoin aide Code VB

Bonjour,
je n'arrive pas à bien écrire la syntaxe pouvez-vous m'aidez ?

J'ai un champ Texte78, si il contient quelque chose il faut alors passer en visible 3 champ qui sont masquer par défaut.
Étiquette88 Texte88 Étiquette89

Merci.
Configuration: Windows XP
Firefox 2.0.0.14

8 réponses

  1. Euh oui la comme ça cela fonctionne, de plus il y avait quelques espaces quand je copier-coller.
    Mais ce n'est pas vraiment ce que je voudrais comme "mise à jour".
    J'ai plusieurs enregistrement, et je voudrais que dès que j'arrive sur un enregistrement soit il me les affiche soit il me les masque.
    La le comportement n'est pas celui souhaité, si je modifie effectivement ils apparaissent mais si après je change d'enregistrement il reste, et moi je ne voudrais pas être obligé de faire une modification pour afficher ou masquer ces 'texte'.

    Enfin merci déjà pour ce code.
    1. Contributeur
      Bonjour tous,
      Quel est la plage de l'étiquette Text78
      Je crois que ca va éclaircir la situation.
      A+
      1. il y a avait une petite erreur, j'ai corrigé.

        Pourquoi ça fonctionne ... chez moi ça fonctionne. Dès que je tape un caractère, les étiquettes sont visibles, si j'efface tout les étiquettes sont invisibles ...
        1. bonjour,

          mets ce code dans l'évènement Change() de ta textbox :

          Private Sub Texte78_Change()
              If Texte78.Text <> "" Then
                  Étiquette88 .Visible = True
                  Texte88 .Visible = True
                  Étiquette89.Visible = True
              Else
                  Étiquette88 .Visible = False
                  Texte88 .Visible = False
                  Étiquette89.Visible = False
              End If
          End Sub
          


          ;o)

          polux
          1. Salut, merci je ne comprends pas cela ne fonctionne pas.
            Je dois le mettre "dans quoi" ?

            Private Sub Texte78_BeforeUpdate(Cancel As Integer)
            If Texte78.Value <> "" Then
            Étiquette88.Visible = True
            Texte88.Visible = True
            Étiquette89.Visible = True
            End If
            End Sub

            j'ai essayer avec Before et After et cela ne fonctionne pas.

            merci
            1.     If Texte78.Value <> "" Then
                      Étiquette88.Visible = True
                      Texte88.Visible = True
                      Étiquette89.Visible = True
                  End If