我有一个带有子表单的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的排序是问题还是别的什么?
感谢。