Move a Record Up/Down in a Continuous Form !

Hi !!

In a Continuous Form with say 10 records, I'd like to have 1 button
with an "UP" Arrow & another button with a "DOWN" arrow. By pressing
either the Up or the Down Arrow, I'd like the user to be able to MOVE
the records up or down the order.

Something like in a WinAmp or MusicMatch Playlist.

A little sample code would be much appreciated.

Thanks & Bst Rgds,
Prakash.

re: Move a Record Up/Down in a Continuous Form !

docmd.GoToRecord,,acnext
docmd.GoToRecord,,acprevious

re: Move a Record Up/Down in a Continuous Form !

On 29 Jun 2005 06:22:56 -0700, "Prakash" <simran@omantel.net.om>
wrote:
[color=blue]
>Hi !!
>
>In a Continuous Form with say 10 records, I'd like to have 1 button
>with an "UP" Arrow & another button with a "DOWN" arrow. By pressing
>either the Up or the Down Arrow, I'd like the user to be able to MOVE
>the records up or down the order.[/color]

This is not trivial. Your continuous form has a recordsource and that
recordsource is probably ordered based on some Order By clause. There
is no way that Access can, by itself, modify the order of the records
it displays unless the underlying values that are used by the Order By
clause are changed. Hence, in general, it just can't be done.

But let's assume that you have a field in your table/query established
for this ordering. You will need to modify that field so that the
ordering values are changed and then requery the continuous form so
that the records are re-displayed.
[color=blue]
>Something like in a WinAmp or MusicMatch Playlist.
>
>A little sample code would be much appreciated.[/color]

No sample code from me, but an idea or two. Assuming you have your
field available for ordering the display, you will need to establish
rules on how that field is built. One way would be to have it be a
text field with length of x + 1 bytes. Use the leftmost x bytes to
establish your order and leave the rightmost byte set to 5.

When re-establishing this field for a record you wish to move up, you
will replace its value with the value of the record immediately above
and change the rightmost byte to 4. If down, the record immediately
below and 6.

Then re-establish the temporary ordering (using whatever mechanism you
used to establish it in the first case, substituting the ordering
field for the original criteria), requery, and you are done.

Somebody else may come up with a routine that establishes the values
of the ordering field for you.

mike

re: Move a Record Up/Down in a Continuous Form !

To stop errors from jumping out at you if you're at the first or last
record, use this:

Up button:
If Me.CurrentRecord > 1 Then
DoCmd.GoToRecord , , acPrevious
End If

Down button:
If Me.CurrentRecord <= Me.RecordsetClone.RecordCount Then
DoCmd.GoToRecord , , acNext
End If

jv wrote:[color=blue]
> docmd.GoToRecord,,acnext
> docmd.GoToRecord,,acprevious[/color]

re: Move a Record Up/Down in a Continuous Form !

No, that doesn't move records, just the focus or pointer or cursor

jv wrote:
[color=blue]
> docmd.GoToRecord,,acnext
> docmd.GoToRecord,,acprevious
>[/color]

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html

re: Move a Record Up/Down in a Continuous Form !

Have a sequence number field with your records. Let's call it seqno.

Have your records sequentially numbered.

Then, for the Down button's Click event: (air code, watch line wrap)

sub btnDown_Click()
dim nHold as long, nMax as long
nhold=me.seqno
nMax=dmax("seqno","yourTable")+1'we'll park the first entry there
currentdb.execute "update yourtable set seqno=" & nmax & " where
seqno=" & nhold
currentdb.execute "update yourtable set seqno=" & nhold & " where
seqno=" & nhold+1
currentdb.execute "update yourtable set seqno=" & nhold+1 & " where
seqno=" & nmax
end sub

Prakash wrote:
[color=blue]
> Hi !!
>
> In a Continuous Form with say 10 records, I'd like to have 1 button
> with an "UP" Arrow & another button with a "DOWN" arrow. By pressing
> either the Up or the Down Arrow, I'd like the user to be able to MOVE
> the records up or down the order.
>
> Something like in a WinAmp or MusicMatch Playlist.
>
> A little sample code would be much appreciated.
>
> Thanks & Bst Rgds,
> Prakash.
>[/color]

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html

re: Move a Record Up/Down in a Continuous Form !

"Prakash" <simran@omantel.net.om> wrote in message
news:1120051376.626658.203330@z14g2000cwz.googlegr oups.com...[color=blue]
> Hi !!
>
> In a Continuous Form with say 10 records, I'd like to have 1 button
> with an "UP" Arrow & another button with a "DOWN" arrow. By pressing
> either the Up or the Down Arrow, I'd like the user to be able to MOVE
> the records up or down the order.
>
> Something like in a WinAmp or MusicMatch Playlist.
>
> A little sample code would be much appreciated.
>
> Thanks & Bst Rgds,
> Prakash.[/color]

First, you'll need to add an integer field to your recordset. I'll call it
[Position]. Then you need to populate that field by cycling thru the
recordset in the initial sort order, setting [Position] sequentially (ie: 1,
2, 3, 4, ...)
Now for the code (caution: aircode)

Assume that you have a button to move the selected record "up" one position:

Private Sub btnUp_Click()
If Me!Position <= 1 Then
MsgBox "This record cannot move up"
Exit Sub
End If
Dim NewPos As Integer
NewPos = Me!Position - 1
Me!Position = NewPos
DoCmd.GoToRecord , , acPrevious
Me!Position = Me!Position + 1
Me.Requery
Me.Position.SetFocus
DoCmd.FindRecord NewPos
End Sub

Good Luck,
Fred Zuckerman