Creazione di Recordset

Question

Buongiorno a tutti

un consiglio su un codice per creare un recordset filtrato dalla tabella "COMUNI"

filtrando sul campo CAP (testo)

Metto i riferimenti DAO

ESEMPIO BANALE

Private Sub Comando0_Click()

Dim DBCOrrente As DAO.Database

Dim REC As DAO.Recordset

Set DBCOrrente = CurrentDb

Set REC = DBCOrrente.OpenRecordset("SELECT * FROM COMUNI WHERE CAP='66054'")

    With REC

            .MoveFirst

            g = REC.Fields.Item(0).Value    'sulla prima colonna

[...]

Ora qui in DEBUG mi dà errore perchè mi dice nessun record trovato.

Non capisco perchè non crea il recordset.

Grazie mille

Un saluto.

Answer 1

ciao Massimo,

oltre a quanto suggerito, raccomanderei altresì l'option explicit, in modo da dichiarare la variabile G ( se non effettuata ad inizio modulo) e la definizione del tipo di recordset come la sua chiusura e distruzione ( se non esplicitamente dichiarata alla fine della sub ) set rec=nothing

Da chiudere e distruggere anche l'oggetto database set DBCOrrente =nothing.

il suggerimento non è influente per il problema posto, ma migliora per certo il tutto.

Ciao, Sandro.

Answer 2

a me sembrerebbe tutto corretto.

se il tuo messaggio fosse "Nessun record corrente"  allora ti direi di verificare in tabella se hai almeno un CAP corrispondente a 66054 .....

Ma tu ci riferisci "Nessun record trovato"  ????

comunque:

Il campo CAP è in formato testo ??

Il 1° campo della tabella è popolato in corrispondenza del 66054  ??

Dopo quello spezzone di codice che ci posti chiudi il recordset e il DB  ??

Quale è la riga che viene evidenziata in giallo dal Debug  ??

Anche se superscontato,  hai dei valori di 66054 al campo CAP ??

Dacci delle altre informazioni perché ti ripeto sembrerebbe tutto corretto

.

Answer 3

Ciao,

sembra che non ci siano records con quel CAP.

Set DBCOrrente = CurrentDb

Set REC = DBCOrrente.OpenRecordset("SELECT * FROM COMUNI WHERE CAP='66054'")

If Not REC.EOF Then

     With REC

            .MoveFirst

Mimmo