title image


Smiley Überspringe einer Schleife nach Acc97 Acc2000 Konvertierung


Hallo



die unten stehende Prozedur ist eine Prozedur aus einer ganzen Gruppe von Prozeduren mit denen ich, unter Win98SE-Access97, alle Prozeduren aus allen Modulen auslesen kann.



Nach der Konvertierung des Projektes in WinXP-Access2000, und auf einem schnelleren Rechner, wird die Schleife 'For Each Mdl In Modules' einfach übersprungen und damit wird der Aufruf 'Call ListAllFunctionsInModule(Mdl)' nicht ausgeführt.





'-- Form_ProzListe_0F ------------------ Erstellt: 03.10.2001/ew --

' Beschreibung:

' Revision : 19.10.2001/ew

'------------------------------------------------------------------

'

Private Function ProzListeErstellModule()

On Error GoTo Err_ProzListeErstellModule



Dim DB As DATABASE

Dim Cont As Container

Dim Mdl As Module

Dim doc As Document



Set DB = CurrentDb()

Set Cont = DB.Containers!Modules



For Each doc In Cont.Documents



Echo False

DoCmd.OpenModule doc.Name



For Each Mdl In Modules '-- Fehler-Hier wird die Schleife übersprungen. --

Call ListAllFunctionsInModule(Mdl) '

Next Mdl



DoCmd.Close acModule, doc.Name, acSaveNo

Echo True



Next doc



Set DB = Nothing



Exit_ProzListeErstellModule:

DoCmd.SetWarnings True

Echo True

Exit Function



Err_ProzListeErstellModule:

MsgBox Error$

Resume Exit_ProzListeErstellModule



End Function



Vieleicht hat jemand von Euch eine Idee woran das liegen könnte?



Danke

ewan







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: