ACCESS FEED: [MS_AccessPros] Re: How to lock record if status is completed

Minggu, 12 Mei 2013

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

John,
Thanks. It is working as required.

Best Regards,
Kumar

--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> Kumar-
>
> It can be a Sub in the form's code module. You should have code in your
> Current event to determine the status of the current record, then call
> LockIt accordingly. Perhaps something like:
>
> Private Sub Form_Current()
> ' If the current record is complete,
> If Me.Status = "Complete" Then
> ' Call procedure to lock all controls
> LockIt True
> Else
> ' Not complete - unlock everything
> LockIt False
> End If
>
> 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: Sunday, May 12, 2013 7:02 AM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] How to lock record if status is completed
>
> John-
> I am not getting you. Where should I put this routine lockit? I believe
> Department is a field in the record. What I want to achieve is that when I
> open the form, the records that have status marked as "complete" should be
> non-editable and only those records that have intermediate statuses should
> be editable.
>
> Request you to guide me further.
>
> Kind Regards,
> Kumar
>
> --- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@>
> wrote:
> >
> > 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
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>