Discussion :

[weabow]

Bonjour,

J'ai une boucle qui scrute au load de la form les contrôles, dans le but de les formater suivant mes paramètres.

J'airais besoin de récupérer le type de champ (typiquement le mémo) pour autoriser les ascenseurs, alors que sur les champs texte je ne les autorise pas.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    With f
 
      Dim ctrl As Control
      For Each ctrl In f.Controls       
        If TypeName(ctrl) Like "TextBox" Then
          Dim t As TextBox
          Set t = ctrl
          t.ScrollBars = 0
          t.Height = 330
 
          Debug.Print t.ControlSource  '  *******  c'est ici que je récupère bien le nom du champ, mais npas son type ; je ne peux pas savoir si c'est un mémo ou un texte
 
        End If
 
      Next ctrl
 
    End With

Une idée ?

Un grand merci

Christian

[tee_grandbois]

bonsoir,
essaie en testant le type de champ du Recordset en récupérant le nom du source controle:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim ctrl As Control
    With f
 
      For Each ctrl In f.Controls
 
        If ctrl.ControlType = acTextBox Then
        If f.Recordset.Fields(ctrl.ControlSource).type = 12 Then    ' 12 = type mémo
            ctrl.ScrollBars = 2
        Else
            ctrl.ScrollBars = 0
            ctrl.Height = 330
        End If
      Next ctrl
 
    End With

[weabow]

Excellent : cela fonctionne parfaitement bien.

Un grand merci

Christian