FormLoad() does not fire



在Microsoft Access 2013中建立表格。如标题所示, 公共子表单(( '做东西! 结束子不开火。我完全被神秘了。广泛的谷歌搜索表明,其他人已经有这个问题,但这是由我不处理的亚法物和其他复杂性引起的。

此表格的完整代码如下:

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((以外的所有内容都按预期工作。

有什么想法吗?我完全被困了。

它是

Private Sub Form_Load()

不是

Private Sub FormLoad()

始终通过属性表构建事件过程或VBE中的下拉列表,请勿手工键入它们。

最新更新