J'aissai d'ajouter un objet dans une classe avec le code suivant
L'execution s'arrête à la ligne CollectLabel.Add Glabel. Il me dit erreur 91, Variable objet, ou variable de bloc with non défini...
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56 Option Explicit Public WithEvents CButton As MSForms.CommandButton 'Exemple pour gérer l'évènement clic sur les objets type Button Private Sub CButton_Click() 'cet exemple affiche le nom et la valeur de l'objet cliqué 'MsgBox CButton.Name & ": " & CButton.Name saisi.Label6.Caption = "Opération " & CButton.Caption Dim requetteSQL As String Dim rst As New ADODB.Recordset requetteSQL = "SELECT information.idInformation,information.libelle,information.obligatoire,information.unite,information.defaut,information.min,information.max,information.typeinfo " _ & " FROM necessiteremontee,information " _ & " WHERE numOperation = '" & CButton.Caption & "' " _ & " AND information.idInformation = necessiteremontee.idInformation ;" Dim conn As ADODB.connection Set conn = connection rst.Open requetteSQL, conn Dim Obj As Control Dim i As Integer Dim Glabel As gere_event_label Set Glabel = New gere_event_label While Not rst.EOF Set Obj = saisi.Frame3.Controls.Add("forms.Label.1") With Obj .Name = "LabelInfo" & rst.Fields("idInformation") .Caption = rst.Fields("libelle") .Left = 35 .Top = 25 * i + 40 .Width = 80 .Height = 20 End With 'ajout de l'objet dans la classe Set Glabel.CLabel = Obj CollectLabel.Add Glabel rst.MoveNext i = i + 1 Wend rst.Close End Sub
Je ne comprends vraiment pas d'ou peut venir le problème. J'ai pourtant bien le début et la fin de mon with. Je précise que si je commente la ligne en question, tous marche.
Auriez vous une idée ou une piste pour résoudre ce problème ?
Merci !![]()
Partager