Delete af Frm,Rep,Mcr og mod

Hej Henrik>Hvis det skal vær på dansk, så er 15 points ALT for lidt :o)

Ok terry
Nu har jeg fordoblet det.  :o)

Private Sub Command0_Click()
Dim acc As Access.Application
Dim obj As AccessObject, dbs As Object

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "C:\test5.mdb"

    Set dbs = acc.Application.CurrentProject
   
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then acc.DoCmd.Close acForm, obj.Name

        acc.DoCmd.DeleteObject acForm, obj.Name
           
    Next obj

    For Each obj In dbs.AllReports
        If obj.IsLoaded = True Then acc.DoCmd.Close acReport, obj.Name

        acc.DoCmd.DeleteObject acReport, obj.Name
           
    Next obj
   
    For Each obj In dbs.AllMacros
        If obj.IsLoaded = True Then acc.DoCmd.Close acMacro, obj.Name
       
        acc.DoCmd.DeleteObject acMacro, obj.Name
           
    Next obj
   
    For Each obj In dbs.AllModules
        If obj.IsLoaded = True Then acc.DoCmd.Close acModule, obj.Name
       
        acc.DoCmd.DeleteObject acModule, obj.Name
           
    Next obj
   
    acc.CloseCurrentDatabase
    Set acc = Nothing

End Sub

Håber det kan bruges :o)

>> terry
Det gig godt i formulare, rapporter og makroer. Men det gik galt i moduler, jeg fik følgende fejl:
Object doesn't support this property or method
Da jeg prøvede fejlfinding, fik jeg avide at jeg ikke kunne bruge ELSE uden IF i din IF sætning, og det fatter jeg ikke.
Vh Henrik13

Prøve kun med moduler!

Private Sub Command0_Click()
Dim acc As Access.Application
Dim obj As AccessObject, dbs As Object

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "C:\test5.mdb"

    Set dbs = acc.Application.CurrentProject
   

   
   
    For Each obj In dbs.AllModules
       
        acc.DoCmd.DeleteObject acModule, obj.Name
           
    Next obj
   
    acc.CloseCurrentDatabase
    Set acc = Nothing

End Sub

nu er der ingen IF sætning

>> terry
det lysner, nu sletter den alle moduler, men jeg ville, ligesom med de andre, kunne skrive modulnavnet der skal slettes, i dette tilfælde "ModPassword"

Henrik>Det var ikke en del af din sp.!

Kan du ikke selv implementer en inputbox, eller endnu bedre, en form hvor du har en listbox der viser alle objekter hvor du kan vælge en eller flere der skal slettes! Det kan ikke være så svært :o)

>> terry
Det gør jeg bare, det løkkes bare for mig med Frm, rpt og mcr. Så det sidste løser jeg selv, eller laver et spørgsmål til. da der er allige vel 2 sp mere hvor jeg ikke kan finde løsningen selv. Men tak for indsantsen. En glad mand.

OK, tak!