Discussion :

[CEREMA_Toul]

Bonjour,
J'ai hérité d'une application développée initialement en DOS, et qui a évoluée progressivement vers Access 2013. Et j'essaie notamment de nettoyer un peu l'application. Des modifications ont été apportées, et certains formulaires supprimés et remplacés. J'ai listé avec du code VBA toutes les requêtes de l'application. Et je vois apparaitre certaines ex :"Requête : ~sq_cFmenu_géné0~sq_cModifiable220" qui permettait d'afficher une liste dans un formulaire (contenu résultat d'une sélection dans une table- origine source table/requête), le formulaire Fmenu_géné0 n'existe plus.

un nouveau formulaire utilisant le même type de contenu avait été créé, et j'ai aussi une requête "Requête : ~sq_cFmenu_géné~sq_cModifiable220"

comment puis supprimer ces éléments qui ne sont plus utiles, si cela est possible.

Merci

[micniv]

comment puis supprimer ces éléments qui ne sont plus utiles

Place le code du Sub ci-dessous dans un module standard , puis exécute le ( F5 ) :

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
 
Public Sub Admin_deleteTempQueries()
' 2016-04-28    Micniv
    Dim oRs1 As DAO.Recordset, s1 As String
    Dim strSql As String, n As Integer
 
    If gMydb Is Nothing Then Set gMydb = CurrentDb
 
    strSql = "SELECT Name, Flags, Type" _
             & " FROM MSysObjects" _
             & " WHERE Name Like '~sq_c*' "
    Set oRs1 = gMydb.OpenRecordset(strSql, dbOpenSnapshot)
    If oRs1.RecordCount > 0 Then
        With oRs1
            .MoveLast
            .MoveFirst
            While Not .EOF
                'Debug.Print !Name
                If ExistQuery(!name) Then
 
                    '    Case "~sq_cF_E2_PP1~sq_cc_EP_modif_idAgent":
                    '    ' pourquoi cette requete ne peut elle pas être deletee ??? Flag = -2147483648
 
                    If !flags <> -2147483648# Then DoCmd.DeleteObject acQuery, !name
 
                    n = n + 1
                End If
                .MoveNext
            Wend
        End With
    End If
    s1 = n & " requêtes temporaires ont été supprimées."
    'MsgBox s1, vbInformation, "Traitement terminé"
    Debug.Print s1
 
    Set oRs1 = Nothing
End Sub

[CEREMA_Toul]

merci, mais j'ai un message d'erreur sur ExistQuery(!name) erreur de compilation Sub ou Function non définie

[micniv]

alors insère dans le même module que le Sub précédent, la fonction suivante

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
 
Public Function ExistQuery(ByVal str As String) As Boolean
    On Error GoTo Err_
    Dim qry As QueryDef
 
    ExistQuery = False
    For Each qry In CurrentDb.QueryDefs
        If qry.name = str Then
            ExistQuery = True
            Exit Function
        End If
    Next qry
 
Exit_:
    Exit Function
Err_:
    MsgBox err.Description, vbCritical, "ERREUR dans ExistQuery"
    Resume Exit_
 
End Function

[CEREMA_Toul]

merci