OVH Cloud OVH Cloud

Accès à une propriété par un litteral

2 réponses
Avatar
LeGoldo
Bonjour,

J'aimerais bien savoir pourquoi ce code ne marche pas :
.=2E.
p_InverseCtrlsInSection acFooter, "IsVisible"

End Sub
Private Sub p_InverseCtrlsInSection(nSection As Integer, sPropri=E9t=E9
As String)

Dim oCtl As Control
For Each oCtl In Me.Controls
If oCtl.Section =3D nSection Then
On Error Resume Next
oCtl(sPropri=E9t=E9) =3D Not oCtl(sPropri=E9t=E9)
Err =3D 0
End If
Next oCtl

End Sub
.=2E.
et, si elle existe, avoir une solution ;-)

Merci et...
.=2E. =E0 vous lire.

LeGoldo

2 réponses

Avatar
blancmunier
salut
bcp de propriétés sont uniquement accessibles en lecture seule, en
particulier si ton etat est ouvert en mode preview...
sur quel ligne plante t-il ?
Avatar
LeGoldo
Re,

Mon problème est que Access n'accepte pas la syntaxe :

sPropriete = "IsVisible"
oCtl(sPropriete) = bBoolean

alors que

oCtl.isVisible = ... fonctionne

A+