Discussion :

[Le Sage]

Bonjour à toutes et tous !

Comme indiqué dans le sujet...

Code dans un module de Classe nommé Zoom :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
...
...
Private objControle As Control
...
...
 
' Propriete Controle
Property Set Controle(objControleSet As Object)
    Set objControle = objControleSet
End Property
 
Property Get Controle() As Object
    Controle = objControle
End Property

Code dans un module standard :

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
23
24
25
Option Compare Database
 
Public objZoom As Zoom
 
Public Sub ZoomerContenu(ByRef ObjetControle As Object, _
                         Optional ByVal Modifiable As Boolean = False)
 
    Dim objZoomTemp As New Zoom
 
    With objZoomTemp
        .Controle = ObjetControle
        .ContenuOriginal = ObjetControle.Value
        .Modifiable = Modifiable
    End With
 
    Set objZoom = objZoomTemp
 
    DoCmd.OpenForm "F_ZOOM"
 
    With Forms("F_ZOOM")
        .Controls("txtZoom").Value = objZoom.ContenuOriginal
    End With
 
    Set objZoomTemp = Nothing
End Sub

Code d'un événement de TextBox dans un formulaire :

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

1
2
3
4
5
6
7
Private Sub txtConsignes_DblClick(Cancel As Integer)
    Dim objControle As Object
 
    Set objControle = Forms("F_LOG_BOOK_EN_TETE").Form("SF_LOG_BOOK_NIVEAU").Form("SSF_LOG_BOOK_CORPS").Controls("txtConsignes")
 
    ZoomerContenu objControle
End Sub

La chose étrange qui se produit est qu'arrivé à la ligne 11 de ma procédure ZoomerContenu (second bloc de code ci-dessus), une erreur se produit (objet non défini), et lorsque j'exécute en pas à pas, cette ligne censée affecter la propriété Controle de l'objet objZoomTemp active Property Get au lieu de Property Set

Effectivement, s'il essaie de lire la propriété au lieu de la définir...

Merci d'avance pour vos réponses !
Eric

[Le Sage]

Re-bonjour.

N'ayant pas réussi à supprimer ce sujet, je reviens lui apporter une réponse pour le clore :

S'agissant d'une propriété de type objet, il faut la valoriser avec le mot clef Set :

Code :

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

1
2
3
4
5
6
    With objZoomTemp
        .Controle = ObjetControle        ' Syntaxe erronnée causant mon erreur... et ma honte !
        Set .Controle = ObjetControle  ' Syntaxe correcte et fonctionnelle
        .ContenuOriginal = ObjetControle.Value
        .Modifiable = Modifiable
    End With

Ceci dit, mon erreur pourrait bien servir à d'autres, alors profitez-en !