Open form in read only view but have command button that will allow for new data entry

I have a form opening in read-only mode via:

    DoCmd.OpenForm "frmAddVisit", acNormal, , , acFormReadOnly, acWindowNormal, "[ID] = " & Me.txtMemberID

But the on the form that displays the record in read-only mode I have a command button that when clicked I want to have the form display for a new record to be entered.  Here is my onclick code but it doesn't make the form read for a new record to be entered.

Private Sub cmdAddRecord_Click()
On Error GoTo cmdAddRecord_Click_Err

    On Error Resume Next
     Me.AllowEdits = True
    DoCmd.GoToRecord , "", acNewRec
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If

cmdAddRecord_Click_Exit:
    Exit Sub

cmdAddRecord_Click_Err:
    MsgBox Error$
    Resume cmdAddRecord_Click_Exit

End Sub

Open in new window


How can I re-write this code to make the form ready for a new record?
SteveL13Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

als315Commented:
Try AllowAdditions instead of AllowEdits

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
SteveL13Author Commented:
Perfect!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.