在使用VB的Access中将更改AllowEdits更改为true的按钮

Question

我尝试创建一个按钮，将子窗体的AllowEdits值更改为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属性。