Visual Basic 6 - [vb6] metodo find

sii mentre scrivo il codice

Dim Stop As Boolean


lo da qui

non mi è mai capitato, non saprei cosa dirti...

tu come lo scriveresti il codice?

come ti ho detto non so lavorare con il db... e per farti capire come scriverei il codice già ti ho scritto lo pseudocodice nel mio 1° post...

STOP è una parola chiave di vb

Usa un altro termine es: Interrompi, Ferma ecc

Dim ferma As Boolean
Dim id As Integer
ferma = False
id = txtFields(0).Text
adoPrimaryRS.MoveFirst ' mi posiziono al primo recordser
    ultime = InputBox(" Inserisci il numero di estrazioni da controllare ", "ID")
     ultime = ultime
     cerca = (adoPrimaryRS.RecordCount) - ultime
     cerca = "ID=" & UCase(Trim(cerca)) & ""
       
        adoPrimaryRS.Find cerca
   
 While Not adoPrimaryRS.EOF


If id = txtFields(0).Text Then
ferma = True
End If

If ferma = True Then
Stop
End If
Wend
DoEvents
adoPrimaryRS.MoveNext

ecco come ho scritto infatti alfonzo pero'


pero' si impalla

Faccio la supposizione che il campo indice del tuo database si chiami Id e sia di tipo long

Dim UltimoID As Long
Dim IDRicercato As Long
Dim Id As Long

    With adoPrimaryRS
        If .RecordCount > 0 Then
            .MoveLast
            UltimoID = !Id
        End If
        IDRicercato = UltimoID - 200
        .FindFirst "Id=" & IDRicercato
        Do While True
            Id = !Id
            If Id = IDRicercato + 7 Then
                Exit Do
            End If
            .MoveNext
        Loop
        .Close
    End With

Dopo aver trovato l'Id dell'ultimo record, cerca il duecentesimo record prima dell'ultimo e individuatolo scorre il record per i successivi 7

ah ecco! Non ci avevo pensato...