Discussion :

[courriervirtuel]

Bonjour,

Je voudrais supprimer les objets (textbox, combobox etc.) dont les noms commencent par "_v"

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
 
    DoCmd.OpenForm "FormRootGeneric", acDesign
    i = 0
    For Each vControl In Forms("FormRootGeneric").Controls
        If Left(vControl.Name, 2) = "_v" Then
            i = i + 1
        End If
    Next vControl
    If (i <> 0) Then
        ReDim vControlTab(i - 1)
        i = 0
 
        For Each vControl In Forms("FormRootGeneric").Controls
            If Left(vControl.Name, 2) = "_v" Then
                vControlTab(i) = vControl.Name
                i = i + 1
            End If
        Next vControl
 
        For j = 0 To i - 1
            DeleteControl "FormRootGeneric", vControlTab(j)
        Next j
    End If

ça marche, mais ce qui se passe c'est qu'une "grosse" erreur est déclenchée et la fenêtre (l'image en Pièce Jointe) est affichée et Access est fermer,
Le plus étrange c'est que le fichier se dédouble et grossi à chaque fois ???!!!

[loufab]

Bonjour,

Une base corrompue ?!

Essaye une décompilation. Attention à faire une sauvegarde avant !!!

Cordialement,

[courriervirtuel]

Merci pour la réponse loufab

une décompilation ? comment faire ? pourquoi ça serait la solution ?

en fait, j'ai essayé de créer une nouvelle base et tout migrer à la main dessus, la taille est passée de 10Mo à 4Mo,
mais la procédure que j'ai montrée en haut marche 3 ou 4 fois et après, même erreur (un peu comme si j’effaçais quelque chose de grave)
le pire, c'est que même quand je n'efface qu'un seul élément au lieu de tout les contrôles dont le nom commence par "_v", ça fait la même chose !!

quelqu'un aurait une idée, c'est vraiment très bloquant !!

[loufab]

Pour la décompil consulte mon blog ou sur ma page perso dans l'article Options de la ligne de commande. Attention de faire ça sur une sauvegarde.

La décompilation a des vertues sur les erreurs comme celle-ci. Ce n'est pas sur que ça marche mais c'est à essayer.

Ton code fonctionne parfaitement sur une base 2007 de test.

Cordialement,

[courriervirtuel]

Merci encore,

Mais la décompilation n'a pas marché,
J'ai même recréer une base et tout refait à la main !

Quand j'isole ce code, ça marche, mais quand je le mets dans mon programme, ça marche pas alors qu'il n'y vraiment pas grande différence (en fait, en mode débug, tout se passe bien jusqu'à la dernière étape, c'est-à-dire jusqu'à ce que je sorte de ma fonction et là, le message d'erreur...)

[courriervirtuel]

... Je vois un peu mieux où est le problème mais j'arrive pas à le résoudre
en fait, j'ouvre une feuille excel à chaque fois avec le code suivant

Code :

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

1
2
3
4
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(Application.CurrentProject.Path & "\" & vStringTmp)
    Set xlSheet = xlBook.Worksheets("PRINCIPAL")

et ensuite, le code que j'ai mis précédemment (DeleteControl...)

...Ils ne vont pas ensemble !

Je dois soit mettre une string constante à la place de

Code :

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

vStringTmp

soit ne pas supprimer de Control !!

quelqu'un aurait-il une idée ?

merci !