I have read all I can find but still can't get this right. I have a combo
box with a selection of either Yes or No in a field called P5Pd and I want to
lock records if it Yes is selected.

I have the following code, but it is locking ALL records and not just if
P5Pd = "Yes"

Sub Form_Current()
If Me.P5Pd = "Yes" Then
Me.AllowEdits = False
End If
End Sub

In addition to the above information, I would like to say that I can edit
other records, but once I have passed that record either forwards or
backwards (e.g. if it is the 3rd record, I can edit records 4 onwards, but
once I go passed it backwards to record 1, I can't edit any records. If I
edit the record back again (in a copy of the form which doesn't have the
above code in On Current), I get everything back to normal. However, I need
this lock to work, and only on the relevant records.

Thank you for any help.

"Owl" wrote:

> I have read all I can find but still can't get this right. I have a combo
> box with a selection of either Yes or No in a field called P5Pd and I want to
> lock records if it Yes is selected.
>
> I have the following code, but it is locking ALL records and not just if
> P5Pd = "Yes"
>
> Sub Form_Current()
> If Me.P5Pd = "Yes" Then
> Me.AllowEdits = False
> End If
> End Sub
>

Owl -

You need to turn AllowEdits back on for the other cases:

Sub Form_Current()
If Me.P5Pd = "Yes" Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub

Check it out.
--
Daryl S


"Owl" wrote:

> I have read all I can find but still can't get this right. I have a combo
> box with a selection of either Yes or No in a field called P5Pd and I want to
> lock records if it Yes is selected.
>
> I have the following code, but it is locking ALL records and not just if
> P5Pd = "Yes"
>
> Sub Form_Current()
> If Me.P5Pd = "Yes" Then
> Me.AllowEdits = False
> End If
> End Sub
>

On Sun, 17 Jan 2010 23:43:01 -0800, Owl <(E-Mail Removed)> wrote:

>I have read all I can find but still can't get this right. I have a combo
>box with a selection of either Yes or No in a field called P5Pd and I want to
>lock records if it Yes is selected.
>
>I have the following code, but it is locking ALL records and not just if
>P5Pd = "Yes"
>
>Sub Form_Current()
>If Me.P5Pd = "Yes" Then
>Me.AllowEdits = False
>End If
>End Sub

What is the datatype of the field referenced by the combo box? If it's Text,
then the combo may contain the string "Yes" or "No" - but more likely it's a
Yes/No field, in which case Yes is stored as -1 and No as 0 (though it may be
DISPLAYED as the English language word).

Try changing "Yes" to -1, or (synonymously) to True, or just using

Private Sub Form_Current()
Me.AlllowEdits = Not(Me.P5Pd)
End Sub

--

John W. Vinson [MVP]