Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao Vladimiro,
non è facilissimo entrare nella logica della routine senza conoscerne i presupposti.
Ad ogni modo, da quello che vedo:
- il test EOF su rs2 dovresti spostarlo, credo, subito dopo l'inizio del ciclo sul rs1 ovvero:
---
...
Do Until rs1.EOF
If rs2.EOF Then Exit Do
...
Altrimenti, per come hai condiviso la demo, ricevi un errore di runtime 3201 "Nessun record corrente", quando rs2 non contiene nessun record in base al filtro WHERE che hai impostato nella sua apertura
- l'istruzione di update di Filtro_Analisi, va modificata nel modo seguente:
...
CurrentDb.Execute "UPDATE Filtro_Analisi SET Progressivo = " & j
...
David
Ciao David, non ci crederai ma mi sei stato comunque di grande aiuto.
A dir la verità mi sono accorto di non aver inserito correttamente tabelle e query per cui ho sostituito il file allegato.
Per chi è interessato, il calcolo delle 56 combinazioni lo può vedere sviluppato nella tabella Filtro_Analisi nel campo distanze.
Vladimiro