VBA Acces bloquer un champs du formulaire

Bonjour,

svp j'aimerais savoir faire pour bloquer un champ en VBA accesss.

Private Sub Validation_AfterUpdate()

If Validation = "Validé" Then
Validation.Enabled = True
Else
Validation_CS.Enabled = False

End If

End Sub
en fait pour que la validation_cs ait lieu il faudrait d'abord que la validation1=validé au cas contraire la validation_cs est desactivée. Bref je ne sais pas faire ca en VBA.

10 réponses

  1. Contributeur
    bonjour,
    je suppose que Validation et Validation_cs sont deux textbox dans ton formulaire.
    Est-ce bien cela?
    que veux-tu obtenir quand tu écris
    Validation.Enabled = True
    ?
    0
    1. validation et validation_cs sont des listes deroulantes. je veux que quand on clique sur validation = "en cours", validation_cs devient grisé automatiquement genre la personne personne n'aura plus besoin de selectionner "en cours" sur validation_cs.
      0
      1. Contributeur
        pourquoi, alors, écris-tu
        Validation.Enabled = True
        ?
        0
    2. Qu'es ce que je devais ecrire?
      0
      1. Contributeur
        quel est le nom du contrôle que tu veux activer? est-ce
        Validation
        ?
        0
    3. si la validation1 = "validé" alors la validation2 prend directement la valeur "en cours" sinon on desactive la validation2
      0
      1. Contributeur
        je vois maintenant que tu as:
        Validation
        Validation_CS
        validation1
        validation2
        0
    4. oui exactement je fais donc comment pour gerer mon pb
      0
      1. Contributeur
        explique ce que tu veux réaliser avec ces quatre contrôles.
        0
    5. hummm
      je veux que ceci si la validation1 = "validé" alors la validation2 prend directement la valeur "en cours" sinon on desactive la validation2
      0
      1. Contributeur
        montre alors le code qui essaie de faire cela.
        0
    6. Private Sub Validation_AfterUpdate()

      If Validation = "Validé" Then
      Validation_CS.Value = "En cours"
      Else
      Validation_CS.Enabled = False

      End If

      End Sub

      voila.
      Validation.Enabled = True AND Validation_CS.Enabled = "En cours" : si la valeur de la validation = validé le champs suivant qui est validation_cs passe a "en cours" sinon on grisse ou bloque le champ validation_cs
      0
      1. Contributeur
        et cela donne un message d'erreur?
        0
    7. oui ca genere une erreur. on dit qu'un membre est introuvable
      0
      1. Contributeur
        à quelle ligne?
        tu as bien mis
        option explicit
        comme première ligne du module?
        0
      2. Contributeur
        @yg_besi tu entres une nouvelle ligne de code, ainsi:
        Validation_CS.

        recois-tu une liste? Enabled en fait-il partie?
        0
      3. @yg_benon
        0
    8. a ce niveau Validation_CS.Enabled = False
      0
      1. Contributeur
        et Validation_CS est bien une zone de texte?
        0
    9. oui une liste deroulante
      0
      1. Contributeur
        peux-tu partager ton fichier?
        0
      2. @yg_benon
        0