Colour up/dow record

[Dreamweaver]

I have attached an image of what I am trying to do I have some small up/down buttons that do what thay say but my problem has been with getting confused when moving a record up or down so I came up with a plan to colour the record being moved I'm sure I can do this useing another field in the table but I really want to avoid that if I can so thought I would put it out to the pros.


P.S. Edit: my intention is to use conditional formating


thanks

 

[Dreamweaver]

Ended up using a leftover boolean that's not being used

Private Sub Spin_Down_Click()
Dim m_Db As Database
Dim CurDoID As String
Dim CloneIt As Recordset

On Error GoTo HandleErr


If Me.Dirty Then RunCommand acCmdSaveRecord
Set m_Db = CurrentDb()

Set CloneIt = Me.RecordsetClone

If Me![Level] < CloneIt.RecordCount Then
'Move those bELOW entry Up one place
CurDoID = Me![TaskID]
m_Db.Execute ("UPDATE tblTasks SET [Level]=[Level]-1 WHERE [PhaseID]='" & Me![PhaseID] & "'" & " And [Level]=" & Me![Level] + 1)
m_Db.Execute ("UPDATE tblTasks SET [Level]=[Level]+1,[PrintFlag]=True WHERE [TaskID]='" & CurDoID) & "'"

End If
Me.Requery
m_Db.Close

HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case 2501 'Cancel = True
            Exit Sub
        Case Else
            Call GlobalErrs(Err.Number, Err.Description, Err.Source, "ZfrmEstimateTasks", "Spin_Down_Click")
            Resume HandleExit
        Resume
    End Select
End Sub

Private Sub Spin_Up_Click()
Dim m_Db As Database
Dim CurDoID As String

On Error GoTo HandleErr

If Me.Dirty Then RunCommand acCmdSaveRecord
Set m_Db = CurrentDb()

If Me![Level] > 1 Then
'Move those above entry down one place
CurDoID = Me![TaskID]
m_Db.Execute ("UPDATE tblTasks SET [Level]=[Level]+1 WHERE [PhaseID]='" & Me![PhaseID] & "'" & " And [Level]=" & Me![Level] - 1)
m_Db.Execute ("UPDATE tblTasks SET [Level]=[Level]-1,[PrintFlag]=True WHERE [TaskID]='" & CurDoID) & "'"

End If
Me.Requery
m_Db.Close

HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case 2501 'Cancel = True
            Exit Sub
        Case Else
            Call GlobalErrs(Err.Number, Err.Description, Err.Source, "ZfrmEstimateTasks", "Spin_Up_Click")
            Resume HandleExit
        Resume
    End Select
End Sub


Private Sub ZfrmEstimateTasks_Exit(Cancel As Integer)
On Error GoTo HandleErr

CurrentDb.Execute ("UPDATE tblTasks SET [PrintFlag]=False WHERE [PhaseID]='" & Me![CboPhases] & "'" & " And [PrintFlag]=True")
Me.ZfrmEstimateTasks.Requery

HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case 2501 'Cancel = True
            Exit Sub
        Case Else
            Call GlobalErrs(Err.Number, Err.Description, Err.Source, "frmEstimates", "ZfrmEstimateTasks_Exit")
            Resume HandleExit
        Resume
    End Select
End Sub

Added a few images that might be of use should anybody wish to do something like this

 

[Dreamweaver]

built an example of this as was a lot more then was above awaiting approval at the moment then will link it here