Solved

Microsoft Access 2003 VBA coding to change a form's Record Locks property to Edited Record instead of No Locks.

Posted on 2008-06-19
1
372 Views
Last Modified: 2013-11-27
I need a VBA function that will allow me to enter the name of the form and change the form's Record Locks property to Edited Record instead of No Locks.

Thanks in advance.

Stephen
0
Comment
Question by:stephenlecomptejr
1 Comment
 
LVL 119

Accepted Solution

by:
Rey Obrero earned 500 total points
Comment Utility
Sub changeP(sform As String)
Dim prp As Property
On Error Resume Next
DoCmd.OpenForm sform, acDesign, , , , acHidden
    For Each prp In Forms(sform).Properties
        If prp.Name = "RecordLocks" Then
        prp.Value = 2
        End If
    Next
DoCmd.Close acForm, sform, acSaveYes
End Sub
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database. Split up all multi-value fields into single values: Split up fields that belong to other things into separate tables: Make sure that all record…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now