ACC97: No Error When AddFromFile Creates Duplicate Procedure

Retired KB Content Disclaimer

View products that this article applies to.

This article was previously published under Q171072

Advanced: Requires expert coding, interoperability, and multiuser skills.

SYMPTOMS

The AddFromFile method does not generate an error when it adds a duplicate procedure to a module.

Back to the top

When the AddFromFile method inserts a procedure into a module, Visual Basic for Applications tries to compile all code in the target module first, and then inserts the procedure if successful.

If you use the AddFromFile method multiple times to insert the same procedure into the same target module, Visual Basic for Applications does not detect a compile error until the third attempt. On the first attempt, Visual Basic for Applications successfully compiles the code, and then inserts the procedure from the text file. On the second attempt, Visual Basic for Applications successfully compiles the code in the target module, which now includes one instance of the procedure from the text file; it then inserts a second copy of the procedure from the text file. On the third attempt, Visual Basic for Applications detects a compile error because there are two instances of the same procedure in the target module.

Back to the top

RESOLUTION

To prevent the AddFromFile method from inserting a duplicate procedure, use the Find method of the Module object to determine if the procedure already exists in the module. To do so, follow these steps:

Repeat steps 1 through 4 from the "Steps to Reproduce Behavior" section later in this article.

Type the following procedure:

     Function ImportProc(vbProcName As String)
        Dim mdl As Module
        Dim vbLineStop As Long

        Set mdl = Modules(0)
        vbLineStop = mdl.CountOfLines
        If Not mdl.Find(vbProcName, 1, 1, vbLineStop, 1, False) Then
           mdl.AddFromFile "C:\My Documents\Test.txt"
        Else
           MsgBox "'" & vbProcName & "' already exists in module."
        End If
     End Function

To test this function, type the following line in the Debug window, and then press ENTER:
?ImportProc("Sub AddFromFileTest()")
Note that the AddFromFileTest procedure is successfully inserted into the module.
Repeat step 3 to run the procedure again.

Note that the procedure is not inserted into the module, and that you receive the message:
```
       'Sub AddFromFileTest()' already exists in module.
					
```

Back to the top

STATUS

This behavior is by design.

Back to the top

MORE INFORMATION

Steps to Reproduce Behavior

Using Notepad or another text editor, create a new text file, and add the following text to the text file:
Sub AddFromFileTest() MsgBox "Hello" End Sub
Save and close the text file as C:\My Documents\Test.txt.
Start Microsoft Access and 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 ImportProc()
         Dim mdl As Module
         Set mdl = Modules(0)
         mdl.AddFromFile "C:\My Documents\Test.txt"
      End Function

On the Debug menu, click Compile And Save All Modules. When prompted to save the module, type ImportTest and then click OK.
Type the following line in the Debug window, and then press ENTER:
?ImportProc()

Note that the AddFromFileTest procedure is successfully added to the module.
Repeat step 7 to run the ImportProc procedure again.

Note that a second copy of the AddFromFileTest procedure is successfully added to the module, and no error is generated.
Repeat step 7 to run the ImportProc procedure a third time.

Note that you receive the message:
Compile Error:

Ambiguous name detected: AddFromFileTest

Back to the top

REFERENCES

For more information about using the AddFromFile method, search the Help Index for "AddFromFile method."

For more information about using the Find method, search the Help Index for "Find method", and then "Find Method (Microsoft Access Reference)".

Back to the top

APPLIES TO

Microsoft Access 97 Standard Edition

Back to the top

kbcode kbprb kbprogramming KB171072

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