How to Code This Logic

[VictorS]

Hello to everybody.
I'm trying to come up with the VBA code that will do following:
my continiuos form has txt.NewSeat, txtOldSeat, chkMoving.
If NewSeat equals OldSeat then- Moving is False, else Moving is True

Where do I put If statement here:

    private sub SetMoving()
 
        dim rs as dao.recordset
 
        set rs=me.recordsetclone
        do while rs.eof = false
            rs.edit
            rs!Moving = True
            rs.update
            rs.movenext
        loop
        rs.close
        set rs=nothing
    end sub

Thank you very much!
This forum has been very helpful!

[VictorS]

I fugured out. Can't believe it- it was so simple!

Private Sub Seat___AfterUpdate()
If Me.SeatNum = Me.OldSeat Then
Me.Moving = False
Else
Me.Moving = True
End If
End Sub

[Scott Price]

Glad you got it figured out, and thanks for posting back with what worked!

Regards,
Scott

[NeoPa]

Victor,

Nicely done and thanks for posting back.
Remember to use the Tags in future though ([ CODE ] etc - Click on Hash (#)).
It could also be done as :

Private Sub Seat___AfterUpdate()
  Me.Moving = (Me.SeatNum <> Me.OldSeat)
End Sub