Bonjour,

Je souhaiterai savoir comment fermer en VBE / VBA un container ouvert avec .CreateEventProc en laissant le code généré intact.

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
 
 
Dim mdl As Module
    Dim lngReturn As Long
    Dim lngReturn2 As Long
    Dim rstnum2 As DAO.Recordset
    DoCmd.OpenModule Forms![F_AFFICHAGE].Module
    Set mdl = Modules(Forms![F_AFFICHAGE].Module)
    mdl.DeleteLines 1, mdl.CountOfLines
 
....du code....
 
lngReturn = mdl.CreateEventProc("Click", controle(I).Name)
 
                mdl.InsertLines lngReturn + 1, vbTab & "Call TrfText("""", " & RecordsNumber(I) & ") "
 
...du code...
car ensuite
1 je ne peux plus acceder a mes tables en VBA
2 je suis toujours en mode debug



si qqun a une piste..