ACC97: Cannot Use RunCommand acCmdSaveModuleAsText in Code

Retired KB Content Disclaimer

View products that this article applies to.

This article was previously published under Q161087

Moderate: Requires basic macro, coding, and interoperability skills.

SYMPTOMS

When you run code that contains the RunCommand method with the acCmdSaveModuleAsText constant, you may receive the following error message:

The command or action 'SaveModuleAsText' isn't available now.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to the "Building Applications with Microsoft Access 97" manual.

Back to the top

CAUSE

Microsoft Access cannot save a code module while code is running.

Back to the top

RESOLUTION

The following two methods describe how to save a code module programmatically.

Back to the top

Method 1: Using the OutputTo method

Open the sample database Northwind.mdb.
Create a module and type the following line in the Declarations section if it is not already there:
Option Explicit

Type the following procedure:

      Function SaveMod()
         DoCmd.OutputTo acOutputModule, "Utility Functions"
      End Function

To test this function, type the following line in the Debug window, and then press ENTER:
?SaveMod()
The Output To dialog box appears and prompts you for the file name and file type to save the Utility Functions module.

Back to the top

Method 2: Using the RunCommand Macro Action

Open the sample database Northwind.mdb.

Create the following new macro called SaveMod:

      Macro Name      Action
      --------------------------
      SaveMod         OpenModule
                      RunCommand

      SaveMod Actions
      ---------------------------------
      OpenModule
         Module Name: Utility Functions
         Procedure Name: <Leave blank>
      RunCommand
         Command: SaveModuleAsText

Save the macro, and then run it.
The Save As Text dialog box appears and prompts you for the file name and file type to save the Utility Functions module.

Back to the top

MORE INFORMATION

Steps to Reproduce Behavior

Open the sample database Northwind.mdb.
Create a module and type the following line in the Declarations section if it is not already there:
Option Explicit

Type the following procedure:

      Function SaveModFail()
         DoCmd.OpenModule "Utility Functions"
         DoCmd.RunCommand acCmdSaveModuleAsText
      End Function

To test this function, type the following line in the Debug window, and then press ENTER:
?SaveModFail()
Note that you receive the following error message:
The command or action 'SaveModuleAsText' isn't available now.

Back to the top

REFERENCES

For more information about the OutputTo method, search the Help Index for OutputTo method.

For more information about the RunCommand method, search the Help Index for RunCommand method.

Back to the top

APPLIES TO

Microsoft Access 97 Standard Edition

Back to the top

kberrmsg kbprb kbprogramming KB161087

Back to the top

Retired KB Content Disclaimer

This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Back to the top