Sabtu, 11 Mei 2013

RE: [MS_AccessPros] How to lock record if status is completed

 

Kumar-

Locking individual controls is the most flexible method, but you can make it
simpler by writing a routine like this:

Private Sub Lockit(intLocked As Integer)
Dim ctl As control
On Error Resume Next

' Move the focus to a control that won't be affected
Me.txtSafe.SetFocus

' Set Locked for all text boxes, combo boxes, check boxes, and subforms
' in Detail section based on paramter
For Each ctl In Me.Section(0).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acCheckBox, acSubform
ctl.Locked = intLocked
Case acCommandButton
ctl.Enabled = Not (intLocked)
End Select
Next ctl

' Put the focus back
Me.Department.SetFocus

End Sub

In the above example, txtSafe is a tiny text box that's not in the tab order
hidden on one corner. The code puts the focus there to be sure it can
change the locked status of all controls - you can't changed Locked if the
control has the focus. Section(0) is the Detail section of the form. I'm
also handling command buttons in this example because I had a custom command
button that called a custom date/time input form next to all date/time
fields. I needed to disable those command buttons when the record shouldn't
be edited.

You can also set Me.AllowEdits = False to disable all editing in one step,
but that locks all controls including command buttons and unbound combo or
list boxes.

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of access_kri
Sent: Saturday, May 11, 2013 12:36 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] How to lock record if status is completed

Dear All,
How can I make records that have completed status locked (uneditable)
and editable if the records have status other than complete. At present, I
am locking all the textboxes and comboboxes individual in the forms
Oncurrent property. How can I reference the entire record instead of
individual objects? Thanks

Kind Regards,
Kumar

------------------------------------

Yahoo! Groups Links

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)
Recent Activity:
.

__,_._,___

Tidak ada komentar:

Posting Komentar