title image


Smiley Re: Überspringe einer Schleife nach Acc97 Acc2000 Konvertierung
Hallo,



noch einige Ergänzungen (DAO-Deklaration, Verweis auf DAO3.6 Lib. setzen):



Private Function ProzListeErstellModule()

On Error GoTo Err_ProzListeErstellModule



Dim DB As DAO.Database

Dim Cont As DAO.Container

Dim Mdl As Access.Module



Dim doc As DAO.Document

Set DB = CurrentDb()



Set Cont = DB.Containers!Modules

'Public-Module

For Each doc In Cont.Documents



Echo False

DoCmd.OpenModule doc.Name





Set Mdl = Modules(doc.Name)



Call ListAllFunctionsInModule(Mdl)



DoCmd.Close acModule, doc.Name, acSaveNo

Echo True



Next doc



'Klassenmodule

Dim i As Integer

For i = 0 To Application.Modules.Count - 1

Set Mdl = Application.Modules.Item(i)

Call ListAllFunctionsInModule(Mdl)

Next i



Set DB = Nothing



Exit_ProzListeErstellModule:

DoCmd.SetWarnings True

Echo True

Exit Function



Err_ProzListeErstellModule:

MsgBox Error$

Resume Exit_ProzListeErstellModule



End Function


Gruß vom Bodensee
Franz, DF6GL

PS: Bitte nach Tipps oder Lösungsvorschlägen immer eine Erfolgs- / Mißerfolgsmeldung posten!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: