Discussion :

[soso78]

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 :

Erreur d'exécution 91: Variable objet ou variable bloc With non définie

Voici le code qui délègue cette propriété :

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

Comment faire ?

[Delbeke]

Pas la bonne méthode.
Retire la propriété DataField de ton source (le get et le let)


Dans la barre de menu, choisis outils/Attributs de procédure
Choisis la propriété, liée à la base de données , dans le combobox affiché
clique sur le bouton Avancés>> et coches la case à cocher : la propriété est liée aux données

[soso78]

Salut,

Merci pour ta réponse, cela m'a aidé.

Seulement, j'ai encore un souci.

En fait, le principe que je veux appliquer est le suivant :

J'ai mon usercontrol (un "textbox" amélioré) qui est chargé sur ma form (par load). Il doit être lié à un champ d'une table Access, via ADO.

J'ai définit un champ "datafieldname", en utilisant la boite "attribut de procédure" en spécifiant que ce champ est lié.

Puis, dans ma form, j'utilise le code suivant :

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
  strSQL = "select * from " & strTableName
  strSource = "SHAPE {" & strSQL & "} " & _
                    "AS ParentCMD APPEND ({" & strSQL & _
                    "} AS ChildCMD RELATE IDCONTACT " & _
                    "TO IDCONTACT) AS ChildCMD"
 
  adoPrimaryRS.Open strSource, db, _
                    adOpenStatic, adLockOptimistic
 
      Load fldTextZone(intIndex)
 
      'Création du contrôle dynamique
      Set fldTextZone(intIndex).Container = FrScreenOut
 
     'Définie les propriétés de la zone de texte
      With fldTextZone(intIndex)
 
        'Initialise la source de données
        .DataSource = adoPrimaryRS
        .DataFieldName = adoPrimaryRS.Fields("Nom_Contact")
End With

En fait, je tente de lier le textbox amélioré, par la propriété DataFieldName, le champ "Nom_Contact" de la table Access. Mais rien n'y fait.

Comment puis-je y parvenir ?

J'espère avoir été assez clair.

Merci par avance.

[Delbeke]

Le fait de lier une propriété aux données, ajoute au composant les propriétés DataField,DataFormat,DataMember et DataSource . Comme pour un composant textbox

Commences par écrire ton code avec un bete textbox
Quand il fonctionnera, remplace ce textbox par ton composant perso

[soso78]

Salut,

J'ai fait comme tu as dit, à savoir, créer mon code ado pour qu'il fonctionne avec un textbox traditionnel, et ça marche.

J'ai remplacé ce contrôle par mon usercontrol.

J'avais définit un champ "Datafieldname" dans le usercontrol, en utilisant l'attribut de procédures avec les paramètres suivants :

• La propriété est liée aux données
• Cette propriété est liée à DataField

Donc, dans ma form utilisant ce contrôle, je fais comme suit :

Code :

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

1
2
        Set .DataSource = adoPrimaryRS
        .DataFieldName = "Nom_Contact"

Mais le champ affiche son nom "Nom_Contact" et non pas le contenu !

Que faut-il faire ?

Merci par avance.

[Delbeke]

Code :

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

1
2
       Set .DataSource = adoPrimaryRS
        .DataField = "Nom_Contact"

[soso78]

J'ai bien sûr essayé la propriété Datafield mais... rien !

J'ai dû oublié quelque chose mais ou ?

[soso78]

Erreur de ma part, j'avais effectivement oublié quelque chose... le problème est réglé et tout fonctionne impécable.

Merci.