Ms access 使用VB将Access中的ChangeAllowedIts转换为true的按钮

我正在尝试为子窗体创建一个按钮，该按钮将AllowEdits的值更改为False，将AllowEdits的值更改为true。我正在使用下面的代码。每次运行时都会出现运行时错误424

Option Compare Database

Private Sub Toggle_Edit_Click()
    Dim strForm As String

    strFormName = Me.Name
    Call ToggleEdit(Me)
End Sub

及

如果你有兴趣

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

---

请在模块顶部添加

选项Explicit

我认为AllowEdits是一个

表单

属性，而不是

控件

属性

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

---

如果要在控制级别执行操作，请使用

锁定

或

启用

属性。

请在模块顶部添加

选项显式

我认为AllowEdits是一个

表单

属性，而不是

控件

属性

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

属性。

此代码位于何处？在表单模块中？您在哪一行收到错误？首先，您将表单作为参数传递给

ToggleEdit

，但在

ToggleEdit

过程中没有引用它。我不清楚您想做什么，AllowEdits的值为False，另一个值为true，请修复代码缩进

Sub-ToggleEdit（myForm作为Form）

缩进到

Public strFormName作为String

下面，看起来像是代码块的一部分。这使得它很难阅读。另外，不需要调用自90年代以来一直被弃用的

调用，完全没有必要。此代码位于何处？在表单模块中？您在哪一行收到错误？首先，您将表单作为参数传递给
ToggleEdit
，但在
ToggleEdit
过程中没有引用它。我不清楚您想做什么，AllowEdits的值为False，另一个值为true，请修复代码缩进
Sub-ToggleEdit（myForm作为Form）
缩进到
Public strFormName作为String
下面，看起来像是代码块的一部分。这使得它很难阅读。另外，不需要从90年代开始就被弃用的
调用
——完全没有必要。
Me.AllowEdits=Not Me.AllowEdits
Omg，我从来没有想过
Not
的这种用法是这样的。有时我真是太傻了！史诗般的一首
Me.AllowEdits=不是我。AllowEdits
Omg，我从来没有想过用这种方式使用
Not
。有时我真是太傻了！史诗般的一首！