Salut,
Dans un usercontrol, je veux déléguer des propriétés comme DataField, DataSource, ... pour lier mon contrôle à des données.
Or, même si je n'ai pas de problème dans l'ActiveX, le programme qui utilise ce contrôle ne veut rien savoir puisqu'il m'affiche l'erreur suivante quand je veux afficher ma form :
Voici le code qui délègue cette propriété :Erreur d'exécution 91: Variable objet ou variable bloc With non définie
Comment faire ?
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
22 '====================================== ' Propriété : DataField ' Table de la base de données associée '====================================== Public Property Get DataField() As String DataField = txtText.DataField End Property Public Property Let DataField(NewValue As String) txtText.DataField = NewValue PropertyChanged "DataField" End Property Private Sub UserControl_WriteProperties(PropBag As PropertyBag) PropBag.WriteProperty "DataField", txtText.DataField, Nothing End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) txtText.DataField = PropBag.ReadProperty("DataField", Nothing) End Sub
Partager