Applicare filtri su maschera continua basata su query

Anonimo

Win 10

Access 2013

Buongiorno,

il DB è stato realizzato, i dati li inserisco tutti correttamente ma non ci faccio nulla se non riesco ad interrogarlo!

sto provando ad utilizzare una maschera come interfaccia per decidere cosa cercare e tramite un report avere il risultato.

mi sono basato su un tutorial che però non mi filtra la parte "periodo inizio e fine" ma almeno quello sulla Categoria funziona :)

a parte il fatto che la ricerca dovrebbe permettere :

ricerca nel periodo;
ricerca per categoria;
ricerca per nome Assetto;
ricerca per categoria nel periodo
ricerca per nome Assetto, categoria nel periodo.
ricerca se valido;
e chi più ne ha più ne metta

provo a condividere quanto fin ora ho cercato di fare, ma mi vergogno dei miei limiti :(

MascheraRicercaQuery

Ivan

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Qui trovi la soluzione.

0 commenti

42 risposte aggiuntive

domenico laurenza 9,900 Punti di reputazione Moderatore volontario

2021-12-01T15:25:24+00:00
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
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2021-12-01T15:08:43+00:00

abbi pazienza Mimmo ma non cambia il risultato

Mulo1.0

Ivan
La risposta è stata utile?

0 commenti Nessun commento
domenico laurenza 9,900 Punti di reputazione Moderatore volontario

2021-12-01T14:45:50+00:00
Ciao,

prova ad inserire come origine controllo di Testo123 (Eventi) il seguente

=FunContaEventi()

Nel codice (se vuoi in coda) aggiungi la seguente funzione:

Function FunContaEventi()
```
Dim myRst As Recordset 

Dim myEvento As Long 

Set myRst = Me.RecordsetClone 

FunContaEventi = 0 

Do While Not myRst.EOF 

   If myEvento &lt;&gt; myRst("IdEvento") Then 

      FunContaEventi = FunContaEventi + 1 

   End If 

   myRst.MoveNext 

Loop 

Set myRst = Nothing 
```
End Function

Facci sapere

Mimmo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2021-12-01T12:22:33+00:00

houston abbiamo un problema!

riporto il link del DataBase con la piccola variante sulla maschera MRicerca dove si evince il N°Evento.

TestMulo2.0

il problema è che nel risultato della ricerca mi viene conteggiato il campo [Evento] ma il suo valore non è corretto perchè ad un evento possono essere collegati 0 interventi o più interventi e ovviamente la query mi restituisce lo stesso n°evento con n° assetti intervenuti.

così accade che l'evento X su cui sono intervenuti 3 assetti sul conteggio eventi risultano 3 eventi X invece di uno.

immagino si debba lavorare sulla query, forse con la funzione Raggruppamento ma non saprei come adattarla alla mia situazione.

anche perchè sarebbe utile avere sia il conteggio degli eventi in base ai filtri impostati sulla maschera e di conseguenza avere anche il conteggio degli assetti intervenuti.

mannaggia credevo di aver finito e invece sono qui a chiedere aiuto su una cosa che credevo completata.

mi dispiace

Ivan
La risposta è stata utile?

0 commenti Nessun commento