Bookmarking

[GoalieGW]

Below is what I have so far. The problem I am having is this. If I
click OK on the message, and then tab out of the field, the rs.movenext
event occurs without resetting the code. Each record has a field
"fldDate". Is there a way to have the recordset equal to the open
forms field "fldDate" -1? This way, whatever record I am in or move
to, the code works.

Private Sub BOILER_1_GAS_METER_BeforeUpdate(Cancel As Integer)
Dim rs As Recordset
Dim lngcompare As Long
Dim strmsg As String
Dim msg, style, title, respose

Set rs = Me.RecordsetClone
With rs
.MoveNext
lngcompare = ![boiler 1 gas meter]
End With
msg = "Please enter a value greater " & vbCrLf & "than previous value
of " & lngcompare & "."
style = vbOKOnly
title = "Invalid Entry"
If Me.BOILER_1_GAS_METER < lngcompare Then
Response = MsgBox(msg, style, title)
If Response = vbOK Then
Cancel = True
End If
End If
rs.Close
Set rs = Nothing
End Sub

[Thelma Lubkin]

GoalieGW <Go******@ptd.net> wrote:
<snip>
: "fldDate". Is there a way to have the recordset equal to the open
: forms field "fldDate" -1? This way, whatever record I am in or move
: to, the code works.

<snip>
: Private Sub BOILER_1_GAS_METER_BeforeUpdate(Cancel As Integer)
' Try this:
Dim bk as Variant ' <-----------------
bk = Me.Recordset.Bookmark ' <-----------------

: Set rs = Me.RecordsetClone
: With rs
.bookmark = bk ' <-----------------------------------
: .MoveNext
: lngcompare = ![boiler 1 gas meter]
: End With
: msg = "Please enter a value greater " & vbCrLf & "than previous value
: of " & lngcompare & "."
: style = vbOKOnly
: title = "Invalid Entry"
: If Me.BOILER_1_GAS_METER < lngcompare Then
: Response = MsgBox(msg, style, title)
: If Response = vbOK Then
: Cancel = True
: End If
: End If
: rs.Close
: Set rs = Nothing
: End Sub