Applicare filtri su maschera continua basata su query

Mimmo ciao,

il file che ho condiviso nell'altro post è quello attualmente in uso "Mulo100" mulo perchè sono come di coccio come i muli (detto toscano).

forse con le immagini riesco meglio a farmi capire:

se guardi la situazione iniziale senza filtri già si capisce cosa NON va.

come vedi nel primo rigo ho inserito brutalmente il numero di evento, e si legge 1 1 2 3 3 4 5 5 questo accade perchè per l'evento 1, 3 e 5 ci sono stati due assetti che sono intervenuti sull'evento.

non mi interessa se vengono visualizzati come adesso, va benissimo così vedo subito tutti gli assetti che sono intervenuti, ma mi serve che il risultato del conteggio degli eventi NON sia 8 come accade adesso (1 1 2 3 3 4 5 5 = 8 eventi contati), ma mi restituisca come valore 5 che è il numero corretto di eventi occorsi.

allego anche qui il file che sto usando Mulo100

Mulo100

Ivan

Se così funziona, imposta nella query QRicerca l'ordinamento crescente o decrescente (come preferisci) sulla colonna IdEvento

Mimmo

Ciao,

per me è difficile seguire il ragionamento non conoscendo il problema.

Tu devi solo dirmi che sulla maschera MRicerca in funzione dei filtri applicati deve variare il valore di uno o più controlli.

Io ho interpretato che deve variare il controllo Testo123 (Eventi).

Se non è questo l'obiettivo devi dirmi, ragionando sulla maschera e con i dati presenti nelle tabelle, cosa vuoi contare.

Magari puoi farmi un esempio basato sul DB che hai condiviso:

all'apertura della maschera il controllo Eventi vale 8.

se seleziono la nazione Turkey diventa 5

se scelgo Categoria Pubblico diventa 1

se azzero i filtri e clicco su Cerca ritorna ad essere 8.

Mimmo

P.S. Forse ho trovato l'inghippo, modifica il codice nella funzione aggiungendo la riga in grassetto

Function FunContaEventi()

Dim myRst As Recordset 

Dim myEvento As Long 

Set myRst = Me.RecordsetClone 

FunContaEventi = 0 

Do While Not myRst.EOF 

   If myEvento <> myRst("IdEvento") Then 

      **myEvento = myRst("IdEvento")** 

      FunContaEventi = FunContaEventi + 1 

   End If 

   myRst.MoveNext 

Loop 

Set myRst = Nothing 

End Function

Mimmo mi dispiace farti fare le ore piccole per colpa mia :)

il problema è questo:

io voglio tenere traccia di cosa accade nel senso che:

evento X - barca alla deriva per avaria al motore

esce il gommone del porto per rimorchiarlo e porta in salvo XY persone

evento Z - Mercantile da 3500Tonnellate, incendio a bordo con ferito

esce la nave antincendio per spegnere l'incendio

esce la nave ospedale per prestare le cure al ferito

se io faccio una ricerca esce fuori che il numero di eventi non è 2 (evento X + evento Z) ma riporta come numero di eventi 3 perchè gli interventi sono collegati al numero evento uno-molti

evento X - gommone del porto per rimorchiarlo e porta in salvo XY persone

evento Z - la nave antincendio per spegnere l'incendio

evento Z - esce la nave ospedale per prestare le cure al ferito

servirebbe contare effettivamente il numero di eventi senza contare i doppioni (come una query per duplicati) ma allo stesso tempo devo anche contare quanti interventi sono stati fatti.

forse troppe query tutte insieme non si possono fare

Ivan