Visual Basic 6 - spostare record a piacimento in una maschera

Salve è da un po' che non venivo da queste parti e mi fa piacere che questo sito sia ulteriormente cresciuto!

Il Mio problema è il seguente


Qualche anima gentile mi sa risolvere il problema?

Vorrei Odinare dei record in una maschera access popolata con dei dati senza utilizzare filtri o query ma spostare ir ecord sopra o sotto tramite 2 tasti (giù o su)

ringrazio anticipatamente

non conosco Access e le sue maschere e me ne sono sempre tenuto alla dovuta distanza
ma se la maschera in questione è in binding con la tabella puoi solo ripopolarla tramite query
se non lo è, da VBA penso si possano spostare i valori tra le text ma non servirebbe a nulla se poi non salvi il tutto in un campo apposito per mantenere l'ordinamento ma in ogni caso dovrai ripopolare sempre da query...

i recordset hanno una posizione fisica nel db che dovrebbe gestire solo il db e non l'utente altrimenti non avrebbe senso usare un database

Grazie cmq per l'interessamento

grazie ho risolto

Ho creato due pulsanti "freccia su" e "freccia giù" nel corpo a fianco di
ogni record.

Lo scopo è che premendo esempio "freccia su" di un record questo si sposti
su di una posizione e sposti in giù di una posizione il record precedente


'dove appcont è un campo numerico della tabella "Dettagliordini". Il
Me.AppCont viene incrementato in automatico all'inserimento di ogni nuovo
record tramite la seguente routine sull'evento "prima di inserire" della
form:

Me.AppCont = Nz(DMax("[APPCONT]", "[DETTAGLIORDINI]", 0) + 1



Esempio codice freccia su:

Private Sub frecciaSU_Click()
On Error GoTo Err_frecciaSU_Click

Me.AppCont = Me.AppCont - 1
DoCmd.GoToRecord , , acPrevious
Me.AppCont = Me.AppCont + 1

Dim strsql As String
strsql = "SELECT * FROM tuatabella ORDER BY tuatabella.APPCONT;"
Me.RecordSource = strsql

Err_frecciaSU_Click:
Select Case Err.Number
Case 2499, 2105
MsgBox "Impossibile eseguire l'operazione"
Me.AppCont = Me.AppCont + 1
Exit sub
Case Else
MsgBox Err.Description
Exit sub
End Select
End Sub