Discussion :

[supertoms]

Bonjour à tous,

On retrouve le code suivant dans un bouton :

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
 
Private Sub suivant_Click()
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
 
    Dim frm As Form
 
    Dim ctlLabel As Control
 
    Set frm = Form_modifier_flt
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset("tampon", dbOpenTable)
    oRst.AddNew
 
    oDb.Execute "DELETE * FROM tampon"
    oRst.Fields("id").Value = Me.Liste0.Value
 
    oRst.Update
    oRst.Close
 
    DoCmd.OpenForm "modifier_flt", acDesign
    Set oRst = oDb.OpenRecordset("SELECT * FROM TRAVAIL WHERE id_flt='fdh_ouf'")
    While Not oRst.EOF
        Set ctlLabel = CreateControl(frm.Name, acLabel, , , "TEST", 15400, 200)
    Wend
    DoCmd.Close
    oRst.Close
    oDb.Close
 
 
 
 
    DoCmd.Close
    stDocName = "modifier_flt"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
End Sub

Comme vous le voyez j'essaye d'ouvir le formulaire "modifier_flt" en mode création, d'insérer un label "TEST" dedan, de le refermer, puis de l'ouvrir en mode normal.
Le problème c'est que j'ai le message d'arreur suivant au niveau de la ligne du "Set ctlLabel" : "L'espression entrée fait référence à un objet fermé ou supprimé"



Merci d'avance !

[micniv]

Vérifie ta syntaxe

Set ctl = CreateControl(NomForm, acOptionButton, , ctl.Name, , 1500, 4000)

[supertoms]

Oui c'est ce que je fais mais je ne vois pas l'erreur
Il y a une erreur ?

Code :

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

1
2
 
Set ctlLabel = CreateControl(frm.Name, acLabel, , , "TEST", 15400, 200)

[cristof56]

Au lieu de mettre frm.name

essaye plutot : "modifier_flt"

[supertoms]

Merci on progresse, maintenant je vois enfin mon formulaire qui s'ouvre en mode création mais j'ai le message d'arreur suivant :
"Microsoft Access ne peut ajouter, modifier ou supprimer le contrôle selectionné"

[cristof56]

essaye d'abord :

Code :

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

1
2
3
4
5
6
7
8
Set ctlLabel = CreateControl("modifier_flt", acLabel)
 
With ctlLabel
  'Définit un nom pour le contrôle
  .Name = nomlabel
  .Height = 227
  .Width = 2267
End With