Avanzamento record di x posizioni

di il
3 risposte

Avanzamento record di x posizioni

Buongiorno a tutti,

ho una maschera continua che mostra 5 record per volta,
sul pulsante "AVANTI" ho impostato il seguente codice vba

Dim corrente, prossimo As Integer
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
DoCmd.GoToRecord , , acFirst
Else
corrente = Me.CurrentRecord
prossimo = ((Int(corrente / 5) + 1) * 5) + 1
DoCmd.GoToRecord , , acGoTo, prossimo
End If

A parte il fatto che devo ancora gestire la casistica in cui mi trovo negli ultimi 5 record, funziona perfettamente solo che vorrei che in maschera il record "prossimo" selezionato andasse sempre in cima all'elenco...

c'è modo di farlo? (Acc2007)

grazie mille per i preziosi aiuti

Nico

3 Risposte

  • Re: Avanzamento record di x posizioni

    Confesso che ho tentato di leggere più volte questo thread. Ho lasciato perdere più volte, ma vedo che non ti risponde proprio nessuno. Provo a dire e chiederti qualcosa.
    1. In base al regolamento del forum, quando posti del codice VBA o SQL, abbi cura, quando scrivi il post di cliccare in basso sul tasto "Editor completo & Anteprima", quindi selezioni il tuo codice e poi clicca sul tasto in alto </> che farà apparire il codice con i tipici caratteri monotype più familiari ai programmatori.
    2.
    Dim corrente, prossimo As Integer
    Se vuoi che entrambe le variabili siano Integer, devi dichiarare così
    Dim corrente As Integer, prossimo As Integer
    3. Il tuo quesito mi appare molto bizzarro...nel senso che non capisco a cosa ti serve. Inoltre

    nickbi78 ha scritto:


    vorrei che in maschera il record "prossimo" selezionato andasse sempre in cima all'elenco...
    Il record selezionato non può essere il "prossimo"...è sempre il "corrente".
  • Re: Avanzamento record di x posizioni

    Non c'è un metodo Nativo.... anzi a mio avviso i metodi che trovi sono poco pratici e funzionano poco...

    Ti espongo questo, solo perché è di Lebans, lo provai ma non mi soddisfò completamente.

    Leggi l'articolo all'interno trovi il link.
    https://answers.microsoft.com/en-us/office/forum/office_2003-access/move-current-record-to-top-of-continuous-form/932de8f6-b85f-e011-8dfc-68b599b31bf5

    P.s. devi controllare che la nuova posizione non sia Maggiore di Recordcount altrimenti avrai errore...
    
    If prossimo>me.recordsetclone.recordcount THEN prossimo=Me.RecordsetClone.recordcount
    
    Ciao
  • Re: Avanzamento record di x posizioni

    Grazie Alex,
    per la gestione del prossimo record avevo già sistemato, do un'occhiata al link che mi hai inviato e vedo come gestire la cosa..

    Nico
Devi accedere o registrarti per scrivere nel forum
3 risposte