Non capisco quale sia il problema tecnico…!
Crei un Campo Numerico [OrdineTappa], e gli cambi il Numero…
Il Problema è come cambiare numero…?
Se usi una ListBox, si può realizzare un Button UP/DOWN e quando selezioni un Item premendo UP sposta la tappa in su, e DOWN in giù, cambiando numero in automatico, avevo fatto un demo simile ma non lo trovo.
Se usi una Maschera in modalità Continua, devi mettere i Button nel Corpo, quindi li vedi per ogni Record, ma puoi fargli fare lo spostamento sempre in automatico premento Up/Down.
La cosa è semplice ma “relativamente”… basta leggere il valore OrdineTappa del Record Prima/Dopo a seconda tu abbia premuto Up/Down e scambi i 2 valori con 2 Query Action o tramite Recordset meglio ancora così lo fai in modo sequenziale… poi fai il refresh.
Seguimi… form continua:
Dim lngNewPlace As Long
Dim lngActPlace As Long
With Me.RecordsetClone
lngActPlace=.Fields("OrdineTappa").Value
Select Case UPDOVW
Case UP
.MovePrevious
lngNewPlace= .Fields("OrdineTappa").Value
.Edit
.Fields("OrdineTappa").Value=lngActPlace
.Update
.MoveNext
.Edit
.Fields("OrdineTappa").Value=lngNewPlace
.Update
Case DOWN
.MoveNext
lngNewPlace= .Fields("OrdineTappa").Value
.Edit
.Fields("OrdineTappa").Value=lngActPlace
.Update
.MovePrevious
.Edit
.Fields("OrdineTappa").Value=lngNewPlace
.Update
End Select
End With
Me.Refresh
Ovviamente questo codice non funziona così come postato è solo per darti l'idea… che devi sviluppare.
La stessa cosa si fa con il Recordset della ListBox…