CODEWITHSUNDEEP
ms-accessvba
Petey Maris
Petey Maris

Reputation: 1

Button to turn change AllowEdits to true in Access using VB

I am trying create a button which changes the value of AllowEdits to False and another for true for a subform. I am using the below code. I get a Runtime error 424 each time I run it. 

Option Compare Database

Private Sub Toggle_Edit_Click()
    Dim strForm As String

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

and

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

and if you were interested

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

Upvotes: 0

Views: 938

Answers (1)

iDevlop
iDevlop

Reputation: 25272

Please add Option Explicit at top of your modules!

I think AllowEdits is a Form property, not a Control property.

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

If the code is behind the form itself, you can use Me.

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

If you want to act at control level, use Locked or Enabled properties.

Upvotes: 4

Related Questions