Discussion :

[Invité]

bonjour à tous,
j'ai ce script dans un formulaire pour verrouiller certain controles selon l'heure de la journee :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
If Time > "12:00:00" And Forms!identite!Fonction <> "administrateur" Then
For Each ctl In Me.Form
If ctl.ControlType = acCheckBox Then
ctl.Locked = True
ctl.Enabled = False
End If
Next ctl
End If
End Sub

cependant au lieu de travailler sur le type de controle, je voudrais travailler sur le NOM du controle. C'est à dire :

Code :

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

if ctl.name = "* Matin" then ....

ici tous les controles dont le nom se termine par "Matin"

ou bien

Code :

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

if ctl.name = "* Nuit" then

ici tous les controles dont le nom se termine par "Nuit"

mais cette syntaxe est incorrecte... quelqu'un saurait-il comment rediger cela ?
merci d'avance (en esperant avoir été comprehensible)

[Domi2]

Bonjour,

Tu pourrais peut-être utiliser la propriété Remarque (Tag) des contôles.

Domi2

[Invité]

bonjour Domi,
tout d'abord,merci pour l'interet que tu portes à mon petit souci.
Je ne connais pas du tout ce dont tu me parles... tu peux developper un peu ?

[Domi2]

Re,

Regarde les propriétés de tes contrôles (onglet Autres). Tout en bas, tu as Remarque.

Tu renseignes la propriété avec "Matin" par ex. et après un petit code du genre :

Code :

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

1
2
3
4
5
6
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "Matin" Then
...ce que tu veux faire
End If
Next

Domi2

[=JBO=]

Bonjour,

cependant au lieu de travailler sur le type de controle, je voudrais travailler sur le NOM du controle. C'est à dire :

Code :

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

if ctl.name = "* Matin" then ....

ici tous les controles dont le nom se termine par "Matin"

Tu peux utiliser l'opérateur de comparaison Like qui compare une chaîne de caractères avec un modèle contenant des caractères génériques (*?#).

[Invité]

merci à tous les 2 ,
c'est la solution de Domi remporte sur ce coup là !
de plus j'ai appris quelque chose d'interessant
JBO , je ne manquerai pas de tester...