Problemi con inizio e fine del recordset

[ethan_h76]

Carissimi,
ho cercato nel forum, ma nulla che mi possa aiutare a riguardo.
Scorro un recordset con dei bottoni e quando sono all'inizio o alla fine vorrei che non si spostasse e comparisse un msgbox di errore.
Ogni volta che mi sposto aggiorno un picturebox dal db.

Questo è ciò che scrivo:

Private Sub cmdPrecedente_Click()
If dbFilm.Recordset.BOF Then
msgStr = MsgBox("Sei già al primo record!", vbCritical)
Else
dbFilm.Recordset.MovePrevious
str = dbFilm.Recordset.Fields("Locandina")
Picture1 = LoadPicture(str)
End If
End Sub

La stringa in rosso mi da errore.


Ho notato che prima del primo record e dopo l'ultimo c'è un record vuoto e penso sia quello a darmi casini.

Posso fare una cosa del tipo:

If (dbFilm.Recordset.BOF + 1) Then.....
o è una stupidaggine?

Grazie

[IKON]

Perchè invece non colleghi direttamente la picture al db?
Io lo faccio in un mio programma semplicemente impostando il datasource e il datfield della picture! :adhone:

[xegallo]

Originariamente inviato da ethan_h76
Carissimi,
ho cercato nel forum, ma nulla che mi possa aiutare a riguardo.
Scorro un recordset con dei bottoni e quando sono all'inizio o alla fine vorrei che non si spostasse e comparisse un msgbox di errore.
Ogni volta che mi sposto aggiorno un picturebox dal db.

Questo è ciò che scrivo:

Private Sub cmdPrecedente_Click()
If dbFilm.Recordset.BOF Then
msgStr = MsgBox("Sei già al primo record!", vbCritical)
Else
dbFilm.Recordset.MovePrevious
str = dbFilm.Recordset.Fields("Locandina")
Picture1 = LoadPicture(str)
End If
End Sub

La stringa in rosso mi da errore.


Ho notato che prima del primo record e dopo l'ultimo c'è un record vuoto e penso sia quello a darmi casini.

Posso fare una cosa del tipo:

If (dbFilm.Recordset.BOF + 1) Then.....
o è una stupidaggine?

Grazie

bof ovvero begin of file non è il primo record
per sapere la posizione del record c'è absoluteposition

sapere il messaggio di errore aiuta e anche avere un po' di rispetto per chi deve leggere e quindi scrivere il codice ordinatamente

[ethan_h76]

Funziona!
Ma per sapere il numero totale di record, devo usare recordCount?

Grazie

[ethan_h76]

PRECISAZIONE

Sul forum mi si dice di fare una

rs.moveFirst
rs.moveLast
rs.recordCount

Il problema è che io non posso spostarmi sul recordset.

[IKON]

Lavora su un clone del tuo recordset e fai .movelast e .recordcount

[xegallo]

Originariamente inviato da ethan_h76
PRECISAZIONE

Sul forum mi si dice di fare una

rs.moveFirst
rs.moveLast
rs.recordCount

Il problema è che io non posso spostarmi sul recordset.

se non vuoi perdere la posizione usa un bookmark

[ethan_h76]

Tutto OK!