在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()以外的所有对象都按预期工作。
有什么想法吗?我完全难过了。
答案 0 :(得分:2)
它' S
Private Sub Form_Load()
不是
Private Sub FormLoad()
始终通过属性表或VBE中的下拉列表构建事件过程,不要手动输入。