Exporting MS Access Forms and Class / Modules Recursively to text files?

by

You can also try this code. It will preserve the items’ filetypes (.bas, .cls, .frm)
Remember to refer to / Check the Microsoft Visual Basic For Applications Extensibility Library in
VBE > Tools > References

Public Sub ExportAllCode()

    Dim c As VBComponent
    Dim Sfx As String

    For Each c In Application.VBE.VBProjects(1).VBComponents
        Select Case c.Type
            Case vbext_ct_ClassModule, vbext_ct_Document
                Sfx = ".cls"
            Case vbext_ct_MSForm
                Sfx = ".frm"
            Case vbext_ct_StdModule
                Sfx = ".bas"
            Case Else
                Sfx = ""
        End Select

        If Sfx <> "" Then
            c.Export _
                Filename:=CurrentProject.Path & "\" & _
                c.Name & Sfx
        End If
    Next c

End Sub

More Related Contents:

  1. Access – compare two tables and update or insert data in first table
  2. ms access vba code for update records through form
  3. How to add default signature in Outlook
  4. VBA, ADO.Connection and query parameters
  5. Combine rows / concatenate rows
  6. Autonumber value of last inserted row – MS Access / VBA
  7. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  8. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  9. Too few parameters Expected 1, recordset issue
  10. Show “Open File” Dialog
  11. How do I display a messagebox with unicode characters in VBA?
  12. Determining whether an object is a member of a collection in VBA
  13. Distinction between using .text and .value in VBA Access
  14. MS Access VBA Error: Run time error ’70’ Permission Denied
  15. Automatically generating handling of issues
  16. Is it better to use ADO or DAO in Access 2007?
  17. VBA – Folder Picker – set where to start [duplicate]
  18. MS Access: how to compact current database in VBA
  19. How to loop through all controls in a form, including controls in a subform – Access 2007
  20. FileDialog doesn’t work
  21. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  22. Is there an equivalent to Thread.Sleep() in VBA
  23. How to get logged-in user’s name in Access vba? [duplicate]
  24. Pass a parameter into an access report programmatically
  25. finding latest file in a folder and opening it (vba access)
  26. Insert multiple records with a date range in MS Access
  27. MS Access VBA: Sending an email through Outlook [closed]
  28. SendKeys is messing with my NumLock key via VBA code in Access form
  29. VBA – Run Time Error 3271 using DAO object
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment