MS Access窗体已锁定以进行编辑 - 添加了解锁按钮但无法添加新记录

时间:2018-05-03 09:30:57

标签: ms-access button access-vba

我有一个带有子表单的MS Access表单,我希望它对现有记录是只读的,以防止意外更改。我通过在两种形式上放置简单的代码来完成这个任务:

Private Sub Form_Current()
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
End Sub

我还添加了一个更改表单以允许编辑的按钮:

Private Sub Command110_Click()
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
End Sub

然后我可以编辑表单。但是,我在父窗体上有一个按钮来创建一个新记录。我使用标准按钮功能构建器“记录操作 - >添加新记录”来创建此按钮。但是当我尝试使用它时,错误说:错误 - 您无法转到指定的记录。

所以我用这段代码创建了一个新按钮:

Private Sub NewClientButton_Click()
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
End Sub

思考会解决它,但我仍然会收到错误:运行时错误2105您无法转到指定记录。

我整个表单上的代码如下所示:

Private Sub Command110_Click()
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
End Sub

Private Sub Form_Current()
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
End Sub

Private Sub NewClientButton_Click()
Me.AllowEdits = True
Me.AllowDeletions = True
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
End Sub

这只是我的代码sub的排序是问题还是别的什么?

感谢。

0 个答案:

没有答案