Problème de création dynamqiue dans un formulaire existant

Version imprimable

Bonjour à tous,

On retrouve le code suivant dans un bouton :

Code:

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é"

8O

Merci d'avance !

23/04/2008, 11h27
micniv

Vérifie ta syntaxe

Citation:

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

:)
23/04/2008, 11h33
supertoms
Oui c'est ce que je fais mais je ne vois pas l'erreur :?
Il y a une erreur ?
Code:

1 2 Set ctlLabel = CreateControl(frm.Name, acLabel, , , "TEST", 15400, 200)
23/04/2008, 11h41
cristof56

Au lieu de mettre frm.name

essaye plutot : "modifier_flt"
23/04/2008, 11h46
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é"

8O

essaye d'abord :

Code:

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