在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中的下拉列表,请勿手工键入它们。