Кнопка, чтобы повернуть изменение AllowEdits на true в Access, используя VB

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.