如何在acAddMode中打开Access 2010导航表单

最新推荐文章于 2024-02-22 08:51:17 发布

cxygs5788

最新推荐文章于 2024-02-22 08:51:17 发布

阅读量270

点赞数

Access 2010导航表单的文档很少。一个问题是移至数据AddMode中的另一个Tab（子窗体）。

假定的方法是


DoCmd.BrowseTo acBrowseToForm,[Form Name],[Path To Subform],,,,acFormAdd

不幸的是，目标表单仍将在EditMode中打开

一种解决方法是声明一个公共变量，该子变量可以在On_Load事件期间使用。

第一：创建一个新模块“ modForms”

添加以下类型和枚举

Public Enum FormDataMode
   EditMode = 1
   AddMode = 2
End Enum 
Public Type Q_Forms
   frmMode As FormDataMode
End Type 
Public QForms As Q_Forms

将私有过程添加到Navigation子表单中，以调用要在AddMode中打开的子表单：

Private Sub OpenSubForm(DataMode As FormDataMode)
   On Error GoTo ErrorHandler 
   QForms.frmMode = DataMode 
   DoCmd.BrowseTo acBrowseToForm, "[MySubForm]" 
End Sub

将命令按钮，DoubleClick事件等添加到NavigationForm调用子表单，并将DataMode作为变量传递：

 
OpenMySubform AddMode

在被调用子窗体的On_Load上添加：

Private Sub Form_Load()
   Select Case QForms.frmMode
      Case AddMode
         Me.DataEntry = True
      Case EditMode
         Me.DataEntry = False
      End Select
End Sub

那里有它。

From: https://bytes.com/topic/access/insights/960569-how-open-access-2010-navigation-form-acaddmode