用于使用 VB 在 Access 中将"允许编辑"更改为 true 的按钮

Question

我正在尝试创建一个按钮，该按钮将允许编辑的值更改为 False，另一个更改为子表单的 true。我正在使用下面的代码。每次运行它时，我都会收到运行时错误 424。

Option Compare Database
Private Sub Toggle_Edit_Click()
Dim strForm As String
strFormName = Me.Name
Call ToggleEdit(Me)
End Sub

和

Option Compare Database
Public strFormName As String
Sub ToggleEdit(myForm As Form)
Call Message
ctrlControl.AllowEdits = True
End Sub

如果你有兴趣

Sub Message()
MsgBox "Remember not to overwrite incorrect records"
End Sub

Answer 1

请在模块顶部添加Option Explicit！

我认为 AllowEdits 是一个Form属性，而不是一个Control属性。

Option Explicit
Sub ToggleEdit(myForm As Form)
myForm.AllowEdits = Not myForm.AllowEdits
End Sub

如果代码位于表单本身后面，则可以使用Me。

Sub ToggleEdit()   'no parameter
Me.AllowEdits = Not Me.AllowEdits
End Sub

如果要在控件级别执行操作，请使用Locked或Enabled属性。