在其中运行过程后尝试删除BAS模块时出现问题

我在本地保存了一个.bas文件，我将其加载到我的Acces项目中以运行特定的子文件。我使用以下代码加载模块（工作正常）：

I have a .bas file saved locally that I load into my Acces project to run a particular sub. I use the following code to load the module (which works fine):

Application.VBE.ActiveVBProject.VBComponents.Impor t FileName：= FilePath& ; CODE_FOLDER& RatesYear& " \" &安培; RatesMonth& " \" &安培;产品名称& " .BAS"

Application.VBE.ActiveVBProject.VBComponents.Impor t FileName:=FilePath & CODE_FOLDER & RatesYear & "\" & RatesMonth & "\" & ProductName & ".bas"

我使用以下循环删除模块：

I use the following loop to remove the module:

For Each Comp In Application.VBE.ActiveVBProject.VBComponents

如果Comp.Name = ProductName则

Application.VBE.ActiveVBProject.VBComponents.Remov e Comp

退出对于

结束如果

下一个

For Each Comp In Application.VBE.ActiveVBProject.VBComponents
If Comp.Name = ProductName Then
Application.VBE.ActiveVBProject.VBComponents.Remov e Comp
Exit For
End If
Next

以上工作正常（两者都添加模块并随后删除它）如果加载后我没有在模块中运行任何代码。第二个我在模块中使用代码，删除循环似乎没有立即删除模块（就像在模块中运行任何代码之前一样）。


其中的过程'enqurity如下：

The above works fine (both adding the module and subsequantly removing it) provided I do not run any code within the module once it is loaded. The second I use code within the module the deletion loop does not seem to remove the module immediately (as it would do prior to running any code in the module).

The procedure in it''s entirity is as follows:

公共财产让产品（产品名称为字符串）


昏暗Comp as Object


''如果已经打开，则关闭房价连接

如果RatesConn.State<> 0然后RatesConn.Close


''删除旧的代码模块

For Each Comp In Application.VBE.ActiveVBProject.VBComponents

如果Comp.Name = ProductName那么

Application.VBE.ActiveVBProject.VBComponents.Remov e Comp

退出

结束如果

下一页


''检索最新的代码模块

Application.VBE.ActiveVBProject.VBComponents.Impor t FileName：= FilePath& CODE_FOLDER& RatesYear& &QUOT; \&QUOT; &安培; RatesMonth& &QUOT; \&QUOT; &安培;产品名称& " .bas"


''建立费率数据库连接并设置产品var

RatesConn.ConnectionString =" Provider = Microsoft.Jet.OLEDB.4.0 ;数据来源= &安培; FilePath& RATES_FOLDER& RatesYear& &QUOT; \&QUOT; &安培; RatesMonth& &QUOT; \&QUOT; &安培;产品名称& " .mdb;"

RatesConn.Open


prvProduct = ProductName


结束物业

Public Property Let Product(ProductName As String)

Dim Comp As Object

''Close rates connection if it is already open
If RatesConn.State <> 0 Then RatesConn.Close

''Remove old code modules
For Each Comp In Application.VBE.ActiveVBProject.VBComponents
If Comp.Name = ProductName Then
Application.VBE.ActiveVBProject.VBComponents.Remov e Comp
Exit For
End If
Next

''Retrieve most recent code module
Application.VBE.ActiveVBProject.VBComponents.Impor t FileName:=FilePath & CODE_FOLDER & RatesYear & "\" & RatesMonth & "\" & ProductName & ".bas"

''Establish rates database connection and set product var
RatesConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath & RATES_FOLDER & RatesYear & "\" & RatesMonth & "\" & ProductName & ".mdb;"
RatesConn.Open

prvProduct = ProductName

End Property

真的莫名其妙，如果在加载的BAS中没有运行代码，删除循环会立即删除模块，并且可以加载新版本的ub。如果运行代码，则删除循环不会立即起作用，并且当该过程添加BAS的新版本时，它创建具有1的副本。最后。


我试过用一个简单的docmd.deletobject acmodule代替删除循环，ProductName没有太多运气。


你是只能添加/删除模块，而该模块中没有代码运行？


任何帮助非常感谢!!


谢谢


编辑：只是指出显而易见的，我已经确保加载的bas中的所有代码在尝试删除之前已经完成执行。

Really baffling, if no code is run within the loaded BAS the deletion loop removes the module immediately and a fresh version of the ub can be loaded. If code is run the deletion loop does not work immediately and when the procedure comes to add a fresh version of the BAS it creates a duplicate with "1" on the end.

I have tried substituting the deletion loop with a simple docmd.deletobject acmodule, ProductName without much luck.

Are you only able to add/remove modules whilst no code within that module has been run?

Any help greatly appreciated!!

Thanks

Just to point out the obvious, I have made sure that all code within the loaded bas has finished executing prior to attempting to remove it.