Run Time Error 438 -- Object doesn't support this property or method

[uscitizen]

hi,

in the code below, the line seems to be giving a2k a bit of a problem:

Private Sub MR_Number_BeforeUpdate(Cancel As Integer)
Me.RecordsetClone.FindFirst "MR_Number=" & Me!MR_Number

If Me.RecordsetClone.NoMatch Then
'do nothing
Else
Cancel = True
MsgBox "WARNING -- A record already exists with this MR Number. Chr(13) The unedited value will be restored to this field.", vbCritical, "Check your Data!"
Me!MR_Number.Value = Me!MR_Number.OldValue
End If

End Sub

does this seem familiar to anyone?



“The philosophy of the school room in one generation will be the philosophy of government in the next." --- Abraham Lincoln

 

[Blorf]

Try using instead of .oldvalue, .undo.

Hope that does it.

Chaz

Ascii dumb question, get a dumb Ansi