在Access 2007中导入表单后未触发表单加载/卸载事件

Question

因此，我只是按照此处的步骤手动拆分数据库。 由于某种原因，未在一种表单上触发加载事件，而在另一种表单上未触发卸载事件（但是在每种情况下，相反的事件确实起作用）。 第二种形式（“卸载不起作用”）也拒绝进入设计模式，直到我手动将其关闭然后再将其打开到设计模式。 我已经确认open和close事件已正确链接到其相应的VBA代码，所以我知道不是。

解决该问题的任何帮助将不胜感激。

编辑-

这是Load的代码：

Private Sub Form_Load()
    Dim scr As ScriptControl
    Dim SQL As String

    CheckConnection
    Set scr = New ScriptControl
    SQL = "UPDATE [Part Number] SET [Part Number].[Select] = False WHERE ((([Part Number].[Select])=True));"
    CurrentDb.Execute SQL

    scr.Language = "VBScript"
    scr.AddCode "Sub T :Dim ChangeReg: Set ChangeReg = CreateObject(""WScript.Shell""):ChangeReg.regwrite " & _
                """HKCU\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings"", ""1"", ""REG_DWORD"" : " & _
                "Set ChangeReg = CreateObject(""WScript.Shell""):ChangeReg.regwrite " & _
                """HKCU\Software\Microsoft\Office\12.0\Excel\Security\VBAWarnings"", ""1"", ""REG_DWORD"": end sub"
    scr.Run "T"

    Locked = False
    CancelBupdate = False
    LockOff

    USRID = Environ("Username")

    TTTCount = 0
    Started = True

    SourceSelect.Value = 1

    DoCmd.SelectObject acTable, , True
    DoCmd.RunCommand acCmdWindowHide
    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    ChgFrmOpen = False
    Me.LocationSelect.Visible = False
    Me.ClrSupLoc.Visible = False
    Me.Label20.Visible = False
    PSOn = True

    Me.RepSelect.Value = ""
    Me.SupplierSelect.Value = ""
    Me.SupNumSelect.Value = ""
    Me.LocationSelect.Value = ""
    Me.Base5Select.Value = ""
    Me.FullNbrSelect.Value = ""
    Me.Label104.Caption = "Last Updated On: " & DLookup("[Last Updated]", "[Last Updated]")
    ChangeCount = 0
    CT = ""
    CPP = ""
    PGNP = ""

    UpdateSub '****
    InfoGet
    RunFilter
    Cascade
    Me.Requery

    Select Case USRID
        Case "vn034153"
            UsrInfoSt = "Logged in as User"
        Case "vn043156"
            UsrInfoSt = "Logged in as User"
            Blah
        Case "vn034157"
            UsrInfoSt = "Logged in as Admin"
            Me.UpdateButton.Visible = True
        Case "vn034160"
            UsrInfoSt = "Logged in as User"
        Case "vn028040"
            UsrInfoSt = "Logged in as User"
        Case "vn028033"
            UsrInfoSt = "Logged in as Admin"
            Me.UpdateButton.Visible = True
        Case "vn034931"
            UsrInfoSt = "Logged in as User"
        Case Else
            UsrInfoSt = "Logged in as User"
    End Select

    Me.UsrInfo.Caption = UsrInfoSt
    Application.SetOption "Confirm Action Queries", 0
    Application.SetOption "Confirm Document Deletions", 0
    Application.SetOption "Confirm Record Changes", 0
    DoCmd.SetWarnings False
    Application.SetOption "Auto compact", True
End Sub

这是卸载的代码（使用cmd按钮，并且两个子都不运行）：

Private Sub OpenDatabase_Click()
    DoCmd.OpenForm "2BHPartsDatabaseX"
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim TDF As TableDef
    Dim QDF As QueryDef
    Dim DBS As Database

    Set DBS = CurrentDb()

    Me.ReportForm.SourceObject = ""

    For Each QDF In DBS.QueryDefs
        If QDF.Name = "TempQRYX" Or QDF.Name = "DistinctPGNQry" Then
            DBS.QueryDefs.Delete QDF.Name
        End If
    Next

    For Each TDF In DBS.TableDefs
        If TDF.Name = "ProjectTable" Then
            DBS.TableDefs.Delete TDF.Name
            Exit For
        End If
    Next

    Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1
    DoCmd.SetWarnings True
End Sub

Answer 1

我将注释掉（rem）Form_Load事件中的所有代码，并在Sub过程上放置一个断点，然后打开表单以查看事件是否触发。 看到它触发之后，我将开始对每行进行“取消撤消”操作，直到找到影响load事件的代码行。

对于“卸载”问题，我将做同样的事情。