[VB6] Spostarsi in Access con passo 5

[Magicolotto]

Private Sub cmdNext_Click()
  On Error GoTo GoNextError

  If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext
  If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then
    Beep
     'è stata superata la fine e quindi torna indietro
    adoPrimaryRS.MoveLast
  End If
  'visualizza il record corrente
  mbDataChanged = False

  Exit Sub
GoNextError:
  MsgBox Err.Description
End Sub

ciao raggazzi con questa sub scorro i vari recordset uno alla volta

domanda:
se volessi scorrere i record set no a passo uno come sopra ma passo 10

come dovrei fare ?

[motogpdesmo16]

una soluzione grezza che mi viene or ora in mente: aggiungere una variabile contatore per ogni scorrimento e, se il valore di questa variabile è multiplo di 5 o 10 (non ho ben capito questa cosa dato che nel titolo c'è scritto passo 5 ma nel testo del thread passo 10) allora vengono effettuate le operazioni che ti interessano.
Ripeto è una proposta di soluzione che, non escludo, può essere migliorata.

[AsanoRonin]

Cioè vorresti scorrere il recordset di 10 in 10 ??...
Beh... nn c'è una sub specifica del genere... al limite usa un ciclo (supponendo che tu debba richiamare questa routine, tramite la pressione di un pulsante 'MUOVI AVANTI VELOCE >>'... :master: ...)

Dim count As Byte
For count = 0 To 10
    If adoPrimaryRS.EOF Then adoPrimaryRS.MoveFirst &_
    Else adoPrimaryRS.MoveNext
Next count

Nota... il codice sopra scritto crea un ciclo con 'ritorno di carrello'... se una volta arrivato al EndOfFile del recordset non vuoi tornare al primo ma uscire, basta che al posto dell'istruzione
'adoPrimaryRS.MoveFirst' inserisci 'Exit For'... E il ciclo terminerà, ovviamente lasciando il recordset puntato all'ultimo record...

Spero di esserti stato utile...

AsanoRonin

[AsanoRonin]

Spaventoso... nn faccio in tempo a leggere e rispondere che qualcuno inserisce già una risposta succinta... certo che è proprio affollato questo forum!!

[GudFella]

rs.move 5

[Magicolotto]

e se bisognerebbe andare indietro passo 10 ?

Private Sub cmdPrevious_Click()
' con questi due conteggi azzeriamo il colore da rosso in bianco delle celle
              
  On Error GoTo GoPrevError

  If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
  If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
    Beep
    'è stata superata la fine e quindi torna indietro
    adoPrimaryRS.MoveFirst
  End If
  'visualizza il record corrente
  mbDataChanged = False

  Exit Sub

GoPrevError:
  MsgBox Err.Description
End Sub