bonsoir
j'ai un tableau avec des text box et des case a cocher
je trace les lignes du tableau grace au code suivant :
Mon souci commence lorsqu'il faut faire les cases autour de mes cases à cocher
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
19
20
21 Dim lMaxHauteur As Long ' ===== on cherche la plus grande hauteur ===== For Each oCtrl In Me.Section(acDetail).Controls ' on parcours toutes les zones de texte de la section 'If oCtrl.Visible = True And TypeOf oCtrl Is TextBox Then ' on teste si ce sont des textbox If oCtrl.Height > lMaxHauteur Then lMaxHauteur = oCtrl.Height 'End If Next oCtrl ' ===== on enlève le cadre de tous les contrôles ===== For Each oCtrl In Me.Section(acDetail).Controls ' on parcours toutes les zones de texte de la section If TypeOf oCtrl Is TextBox Then ' on teste si ce sont des textbox oCtrl.BorderStyle = 0 ' on rend la bordure invisible oCtrl.BackStyle = 0 ' on rend le fond transparent Me.DrawWidth = 1 ' on dessine un cadre autour du contrôle Me.Line (oCtrl.Left, oCtrl.Top)-(oCtrl.Left + oCtrl.Width, lMaxHauteur), vbBlack, B End If Next oCtrl End Sub
il n'y a pas de ligne autour de ces cases. Elles ont été placées dans des rectangles.
Je cherche donc à dire à access que le type soit textbox ou RECTANGLE, qu'il trace les lignes autour
auriez vous la solution ?
Merci
Partager