Conditional form editing?????

[lorenambrose]

I have a form with a field (or control) that shows a Status. I need a way to lock out users from editing a record unless the "Status" field shows a "Rejected" entry.


"Rejected" or blank = editable

Anything else = locked


Your help would be greatly appreciated.

 

[Kreszch68]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
<o> </o>
Put this code into your forms code section and replace the ‘Status’ control with the name of your control.<o></o>

Private Sub Form_Current()
Dim blnEditable As Boolean
Select Case Nz(Me.[B][COLOR=red]Status[/COLOR][/B].Value, vbNullString)
    Case "Rejected"
        blnEditable = True
    Case vbNullString
        blnEditable = True
    Case Else
        blnEditable = False
End Select
Me.AllowEdits = blnEditable

End Sub

 

[lorenambrose]

Hi,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
<o></o>
Put this code into your forms code section and replace the ‘Status’ control with the name of your control.<o></o>

Private Sub Form_Current()
Dim blnEditable As Boolean
Select Case Nz(Me.[B][COLOR=red]Status[/COLOR][/B].Value, vbNullString)
    Case "Rejected"
        blnEditable = True
    Case vbNullString
        blnEditable = True
    Case Else
        blnEditable = False
End Select
Me.AllowEdits = blnEditable
 
End Sub

Awsome. Worked great. Thanks