FormLoad()不会触发

时间:2017-04-28 08:33:30

标签: access-vba

在Microsoft Access 2013中构建表单。正如标题所示,     Public Sub FormLoad()         '做好事!     结束子 不开火。我完全神秘了。广泛的谷歌搜索已经表明其他人有这个问题,但它是由我不处理的子形式和其他复杂性引起的。

此表格的完整代码如下:

Option Compare Database

Private Sub FormLoad()
    Me.Label6.Caption = PrevForm
    MsgBox "Main Form/Form Load has Fired!"
    'Set previous form to the last form open and reset "this form" to ME
    PrevForm = ThisForm
    ThisForm = Me.Name
End Sub

Private Sub CmdMngDbCreateEvent_Click()
    PrevForm = Me.Name
    DoCmd.OpenForm "CreateEvent"
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub CmdMngDbManageEvents_Click()
    PrevForm = Me.Name
    DoCmd.OpenForm "ManageEvents"
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub CmdMngDbUploadRoster_Click()
    PrevForm = Me.Name
    DoCmd.OpenForm "UploadRoster"
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub CmdMngDbManagePersonnel_Click()
    PrevForm = Me.Name
    DoCmd.OpenForm "ManagePersonnel"
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub CmdMngDbMainMenu_Click()
    PrevForm = Me.Name
    DoCmd.OpenForm "Home"
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

显然,这是一种非常简单的形式。表单上唯一的对象是代码中引用的对象,FormLoad()以外的所有对象都按预期工作。

有什么想法吗?我完全难过了。

1 个答案:

答案 0 :(得分:2)

它' S

Private Sub Form_Load()

不是

Private Sub FormLoad()

始终通过属性表或VBE中的下拉列表构建事件过程,不要手动输入。