title image


Smiley Und das dann in folgende Funktion eingebaut...
...konvertiert alle Makros der Datenbank.

Also Roberts Linktipp, dann:





Function MakrosAllConvert()

'Die aufpoppenden Dialoge müssen jeweils per Enter-Taste bestätigt werden!

Dim dbs As DAO.Database, ctn As DAO.Container, i As Integer

 

    Set dbs = CurrentDb()

    

    Set ctn = dbs.Containers("Scripts")

    For i = 0 To ctn.Documents.Count - 1

        'Debug.Print , ctn.Documents(i).Name

        ConvertMacro (ctn.Documents(i).Name)

    Next i

Set dbs = Nothing

Set ctn = Nothing

End Function



Code eingefügt mit Syntaxhighlighter 2.1





Hiermit werden die Makros nicht separat als Module gespeichert, sondern direkt in den Formularen/Berichten in Prozeduren umgewandelt:





Function MakrosInFormsReportsKonvertieren()

'Die aufpoppenden Dialoge müssen jeweils per Enter-Taste bestätigt werden!



Dim Cont As DAO.Container, Doc As DAO.Document, DB As DAO.Database

Set DB = CurrentDb



Set Cont = DB.Containers!Forms

For Each Doc In Cont.Documents

 DoCmd.OpenForm Doc.Name, acDesign

 DoCmd.RunCommand acCmdConvertMacrosToVisualBasic

 DoCmd.Close acForm, Doc.Name, acSaveYes

Next Doc



Set Cont = DB.Containers!Reports

For Each Doc In Cont.Documents

 DoCmd.OpenReport Doc.Name, acViewDesign

 DoCmd.RunCommand acCmdConvertMacrosToVisualBasic

 DoCmd.Close acReport, Doc.Name, acSaveYes

Next Doc



Set DB = Nothing

Set Cont = Nothing

End Function



Code eingefügt mit Syntaxhighlighter 2.1




Gruss aus dem (wilden) Süden ;-) Karl-Heinz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: