Would someone xlate this

  • Thread starter Thread starter -z
  • Start date Start date
Z

-z

I use A2K

Someone was nice enough to provide me the following, which works fine, but I
cannot figure out why it works

Thank you...
'================
Private Sub Form_Current()

'What to do at the last rec
Me.RecordsetClone.MoveLast
cmdFlip.Enabled = Not Me.CurrentRecord = 1
cmdFlip.Enabled = Not Me.CurrentRecord = _
Me.RecordsetClone.RecordCount

End Sub
'Thank you
 
'Moves to the last record in the recordsetclone
Me.RecordetClone.MoveLast

'If Me.CurrentRecord=1 then cmdFlip is disabled
'If Me.CurrentRecord does not equal 1, then cmdFlip is enabled
cmdFlip.Enabled=Not Me.CurrentRecord=1

'If Me.CurrentRecord=Me.RecordsetClone.RecordCount (this should be the last
record) then disable cmdFlip
'If they are not equal, then enable cmdFlip
cmdFlip.Enabled=Not Me.CurrentRecord = Me.RecordsetClone.RecordCount
 
Back
Top