Code Examples

Transfer Module to Text File


Creates a text file copy of the module name passed to it and then opens notepad to display it.

'***************** Code Start *******************
' Code by Terry Wickenden

Sub ModuleOut(strPass As String)
  Dim strMsg As String

  On Error GoTo ErrHandler
  DoCmd.SelectObject acModule, strPass, True
  DoCmd.RunCommand acCmdOutputToText
  Exit Sub
  Select Case Err.Number
    Case 2544 'Probably an invalid name of module
      strMsg = strPass & " is not a valid module name."
      strMsg = strMsg & vbCrLf & "Please try again."
      MsgBox strMsg
      Resume SubExit
    Case Else
      strMsg = Err.Number & vbCrLf & Err.Description
      MsgBox strMsg
      Resume SubExit
  End Select
End Sub

'****************** 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.