Hi,

I'm a novice with VB and I've written this pretty simple script, but
for the life of me, I can't get the last bit of the script to work.  It
should compare the value entered by the user under the BeforeUpdate
event and compare it to the value in the main form.  It's doing that
just okay, but when I want to reset the value using the original value
(from the main form), it seems the BeforeUpdate event prevents me from
changing it back.  What could the problem be here?  This should be
quite simple I suppose.  The script I have is as follows and runs from
the SubForm's BeforeUpdate.  Your help here would be GREATLY
appreciated.

Public Sub TO_CHAINAGE_BeforeUpdate(Cancel As Integer)

'If the user updates a TO CHAINAGE value, this script will warn the
user that
'the value entered is higher than the maximum value set for the road
Dim MaxLenDef As Double
Dim MaxLenCondInv As Double

'Assign the length value from the definition table, representing the
maximum value
MaxLenDef = Forms!frmCOND_COMBO.[LENGTH].Value
'Get the value edited by the user
MaxLenCondInv = Forms!frmCOND_COMBO!subCOND_NEW.Form![TO
CHAINAGE].Value

'Prompt the user if the value is higher than the definition length
If MaxLenCondInv > MaxLenDef Then
   MsgBox "The value entered exceeds the maximum length value for this
road:" _
   & vbNewLine & vbNewLine & "            " & MaxLenDef & "
Kilometres" & vbNewLine _
   & vbNewLine & "Please request a ROAD DEFINITION change from your
Database Administrator."
   'Assign the old value back to the cell
   Forms!frmCOND_COMBO!subCOND_NEW.Form![TO CHAINAGE].Value =
MaxLenDef
End If

End Sub