Modules

5.74 Esportare in un file esterno il modulo di classe di una maschera
  Alessandro Baraldi

Con la Sub che segue è possibile esportare in un file esterno di tipo testo il codice VBA del modulo di classe di una maschera.
Public Sub ExportFormModule(ByVal strFormName As String, ByVal strTargetDir As String)
    Dim lngFile As Long
    lngFile = FreeFile()
    Open strTargetDir & "\" & strFormName & ".bas" For Append As lngFile
    DoCmd.OpenForm strFormName, acDesign
    With Forms(strFormName).Module
        Print #lngFile, .Lines(1, .CountOfLines)
    End With
    DoCmd.Close acForm, strFormName
    Close lngFile
End Sub
Il primo argomento di richiamo della sub è una stringa che contiene il nome della maschera di cui si vuole esportare il codice VBA del suo modulo di classe.
Il secondo argomento di richiamo della sub è invece una stringa che contiene l'indirizzo della directory dove si vuole allocare il file.
Il file avrà un nome uguale alla maschera e avrà .bas come estensione.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.