Discussion :

[MONANGE]

Bonjour,
Peu d'experience, je suis nul en VB
J'ai une case à Cocher , je souhaite la Verrouiller et la désactiver, lorsque le contenu est Vrai ,éventuellement les autres éléments du formulaire aussi. Là j'ai le recours de la mise en forme conditionnelle


Merci

[oracle7556]

Salut

essaies ce bout de code à placer par exemple dans le BeforeUpdate de MonChamp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With Me.MonChamp
   IIF (.Value = MaCondition, Me.MaCaC.Enabled = True, Me.MaCaC.Enabled = False)
End With

avec :
MonChamp = Le champ dont le contenu répond à MaCondition
et
MaCaC = Case à Cocher

A+

[MONANGE]

Merci pour ta reponse

J'ai adapté le code , pas de message d'erreur mais aucun résultat

Lorsque je suis sur mon PC personnel sur lequel j'ai installé AC 2010 j'ai trouvé la solution, mais bien que j'enregistre ma base au format AC 2003 Mdb
Sur le portable qui lui est equipé de AC 2003 j'ai un message d'erreur

Ma solution est une Macro Fontion "Definir Valeur",ne trouvant pas cette fontion sur AC 2003, je l'ai transformé en module sous AC 2010, j'obtiens le resultat souhaite " Masquer la case à cocher et un Bouton Supprimer
Je vous joins le code AC 2010 que je souhaite rendre compatible à AC 2003

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Réalisée_AfterUpdate()
On Error GoTo Réalisée_AfterUpdate_Err
 
DoCmd.RunCommand acCmdRefresh
Beep
DoCmd.RunMacro "Ajoute_Rendez_Vous", 1, ""
DoCmd.SetProperty "Réalisée", acPropertyLocked, "-1Réalisée_AfterUpdate_Exit:
Exit Sub
 
Réalisée_AfterUpdate_Err:
MsgBox Error$
Resume Réalisée_AfterUpdate_Exit
 
End Sub

Salutations