VBA : Source contrôle formulaire

**Zartak** · 14/05/2007, 10h15

Bonjour, j'aurai voulu savoir si il etait possible d'activer et desactiver le "Source contrôle" du champ d'un formulaire en VBA?

**mout1234** · 14/05/2007, 10h55

Bonjour,

OUi, en VBA, tu peux définir le source controle d'un champ.

Code VBA :

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

1
2
Me!MonControle1.ControlSource = "NomClient"
Me!MonControle2.ControlSource = "=Now()"

Quel est ton objectif?

**Zartak** · 14/05/2007, 11h02

Bonjour et merci de ta réponse, j'ai rencontré un petit problème au niveau du source contrôle d'une de mes listes déroulantes, j'aurai aimé faire un code de ce genre la pour éviter un petit bug un peu génant:

Code :

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

1
2
3
4
5
If AccesCode = "" Or IsNull(AccesCode) Then
         'Déactiver le source contrôle
Else
         'Activer le source contrôle
End If

J'aimerai désactiver le source contrôle de mon champ juste le temps de lui attribuer une valeur.

**mout1234** · 14/05/2007, 11h14

J'aimerai désactiver le source contrôle de mon champ juste le temps de lui attribuer une valeur.

En soit c'est contradictoire: tu ne peux donner une valeur, via un controle, à un champ si tu lui as enlevé le source controle.

Je ne vois pas bien où quel est ton problème exactement... mais si tu veux empêcher l'accés au champ, il s'agit des propriétés Enabled et Locked

Code VBA :

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

1
2
3
 
ME!MonControle.Locked  = True 'empeche les modifications dans le champ 
ME!MonControle.Enabled= False 'empeche l'accés au champ

**Zartak** · 14/05/2007, 11h27

Non, en fait j'ai un problème un peu "bizare". Le source contrôle de mon champ fait bugger mon formulaire. Lorsque je veux saisir une valeur dans un champ quand le formulaire est vide, un message d'erreur apparait:

Impossbile d'attribuer une valeur à cet objet...

Une fois une valeur saisie dans le formulaire je n'ai plus de problème celui ci fonctionne correctement. Apparement le problème vient de cette zone de liste, c 'est pour ca que je voulais tenter cette solution. J'ai deja essayé pas mal de choses mais pour l'instant sans résultat. J'ai essayé une gestion d'erreur qui n'a pas fonctionné, je pense que celle ci est due à la structure de ce formulaire. Cette application était déjà commencé et je ne trouve pas la solution à ce problème.

Quand je desactive le "source contrôle" de ma zone de liste je peux saisir une valeur sans problème, elle est bien repertoriée dans ma table, c est just que lorsque je réouvre la formulaire liée à cette valeur cellle ci n'apparait pas dans son champ. A mon avis cette solution peut fonctionner si je réactive le source contrôle apres avoir saisi ma valeur.