Code Examples

Creating a New Module

acCmdNewObjectModule

You may want to add a new module with Visual Basic in order to add text from a file. The following example uses the AddFromFile method to add the contents of a text file to a new module. The procedure saves the new module with the same name as the text file.

'***************** Code Start *******************
'Original Code from Microsoft Knowledge Base
'Slightly amended by Terry Wickenden


Function AddFromTextFile(strFileName) As Boolean
  Dim strModuleName As String
  Dim intLength As Integer, intPosition As Integer
  Dim mdl As Module

  ' Store file name in variable.
  strModuleName = strFileName
  ' Remove directory path from string.
  Do
    ' Find \ character in string.
    intPosition = InStr(strModuleName, "\")
    If intPosition = 0 Then
      Exit Dov     Else
      intLength = Len(strModuleName)
      ' Remove path from string.
      strModuleName = Right(strModuleName, Abs(intLength - intPosition))
    End If
  Loop
  ' Remove file extension from string.
  intPosition = InStr(strModuleName, ".")
  If intPosition > 0 Then
    intLength = Len(strModuleName)
    strModuleName = Left(strModuleName, intPosition - 1)
  End If
  ' Create new module.
  DoCmd.RunCommand acCmdNewObjectModule
  ' Save module with name of text file, excluding path and extension.
  DoCmd.Save , strModuleName
  ' Return reference to Module object.
  Set mdl = Modules(strModuleName)
  ' Add contents of text file.
  mdl.AddFromFile strFileName
  ' Save module with new text.
  DoCmd.Savev   ' Ensure all memory cleared
  Set mdl = Nothing
End Function

'****************** Code End ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed, maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.