Calcolo ritardo tra record.

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

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,

abbandoniamo per un po' questo progetto e tuffiamoci in un altro simile in cui c'è sempre il tuo zampino :-)

Per evitare di costruirmi 56 query di creazione tabella con altrettante 56 routine di calcolo per ogni tabella, ho pensato di inserire tutto in un'unica tabella specificando dei parametri univoci servendomi di un ciclo For - Next. 

Purtroppo pare che la "tua routine" non accetti parametri e non capisco perché.

Ti va di darci un'occhiata?

Qui c'è una piccola demo per facilitarti, credo, il compito.

Vladimiro

Ciao Vladimiro,

dal seguente link puoi scaricare la demo su cui ho fatto il test. Credo che il problema possa dipendere dal formato del campo Ora. Calcola_Ritardi

David

Ciao David,

purtroppo ancora non ci siamo: più passa il tempo e più mi rendo conto di come possano essere complicati certi risultati da ottenere.

A prescindere dagli zero che comunque si possono facilmente togliere successivamente, come puoi vedere tu stesso, ci sono due errori di interpretazione.

Il primo riguarda la singola data come la 01/02/2019 con la V a cui non viene assegnato il valore; il secondo, nelle date gemelle  come la 09/02/2019 a cui ad una V non viene assegnato il valore.

Fatti coraggio se puoi :-)

E, con calma, se magari ti viene qualche idea, io ti aspetto.

Vladimiro

Ciao Vladimiro,

dal seguente link puoi scaricare la demo su cui ho fatto il test. Credo che il problema possa dipendere dal formato del campo Ora. Calcola_Ritardi

David