Applicare filtri su maschera continua basata su query

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

Forse ho capito male.

Se applichi un filtro e clicchi su Cerca il numero nel controllo eventi viene aggiornato.

Se clicchi su Azzera filtri e aggiungi in coda alla routine relativa

Private Sub ClearAll_Click()

Me.VALIDO = Null 

Me.Visual = Null 

Me.Effettuato = Null 

Me.SarEffettuato = Null 

Me.txtInizioPeriodo = "" 

Me.txtFinePerido = "" 

Me.Categoria = "" 

Me.Societa = "" 

Me.MacroArea = "" 

Me.Nazione = "" 

Me.Localita = "" 

**Me.Filter = ""** 

**Me.FilterOn = False** 

End Sub

il numero eventi viene aggiornato.

Non era questo che chiedevi?

Mimmo

abbi pazienza Mimmo ma non cambia il risultato

Mulo1.0

Ivan