Make a certain record un editable

[din2005]

Hi all...

Is there anyway to make a record uneditable. i.e using code ... so when it comes to this patient the record cannot be edited???

 

[Remou]

Can you use a flag on the record? For example:

If Me.LockedFlag Then
   Me.AllowEdits = False
End If

I have just typed the above, so I hope it is right.

 

[din2005]

thanks for replying

I tried allow edits which worked fine but when u select a record through the combo box it does not allow me to select it. I still would like the combo box on the form, which will allow me to select other records????

 

[Remou]

In that case you will need to loop through your controls and disable them, perhaps:

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Name <> "cboCombo" And ctl.ControlType <> acCommandButton _
    And ctl.ControlType <> acLabel Then
    ctl.Locked = True
End If
Next

Where cboCombo is the name of the combo that you want to stay active. The On current event may be best, say:

If Me.LockedFlag Then
'Sub that set enabled property to false, or locked to true
   Call SwitchOff
Else
'The reverse
   Call SwitchOn
End If

 

[Knicks]

Interesting stuff remou

I've done this before, my technique is probably kind of clunky in comparison.

I just lock all the fields On Open except the Lock Flag field and the Combo box. Then use an after update on the Lock Flag with an IF statement to unlock/lock fields. You can also work this into the On Current, After Update, ect..., depending upon your situation

The problem with just a blanket lock is I've always had trouble unlocking as the form is locked, ect..