Would someone xlate this

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
 
G

George Lob

'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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

object or class does not support the set of events 0
Refresh Subform Current Record? 3
Frustrated with Form/Subform 2
Puzzle 5
VBA word change keys 0
Subform Navigation 4
Newbie questions 4
Run-time error 3021 6

Top