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

Anonimo

ciao Ivan,

elimina i parametri nella query parametrica ed imposta un filtro personalizzato.

Oppure copia incolla la queryQricerca, chiamala qricerca1 ed elimina i parametri nella query.

L'applicazione del filtro e' maggiormente performante.

per le date vedi intanto questo se puo' esserti di spunto :

Private Sub Comando4_Click()

Dim strFilter As String 

With Me 

        If Len(.InizioPeriodo & vnullstring) = 0 Then 

            VBA.MsgBox prompt:="data inizio periodo mancante!", _ 

                       buttons:=vbCritical + vbOKOnly, _ 

                       title:="Attenzione" 

            Exit Sub 

        End If 

        If Len(.FinePeriodo & vnullstring) = 0 Then 

            VBA.MsgBox prompt:="data fine periodo mancante!", _ 

                       buttons:=vbCritical + vbOKOnly, _ 

                       title:="Attenzione" 

            Exit Sub 

        End If 

        If .FinePeriodo < .InizioPeriodo Then 

            VBA.MsgBox prompt:="data fine periodo inferiore a inizio periodo", _ 

                       buttons:=vbCritical + vbOKOnly, _ 

                       title:="Attenzione" 

            Exit Sub 

        End If 

        strFilter = "dataevento>=" & CLng(.InizioPeriodo) & " and dataevento<" & CLng(.FinePeriodo) + 1 

        If .Categoria = "(Tutto)" Then 

            .InizioPeriodo = Null 

            .FinePeriodo = Null 

            .Refresh 

            strFilter = vbNullString 

        End If 

    DoCmd.OpenReport reportName:="QRicerca", _ 

                     wherecondition:=strFilter, _ 

                     view:=acViewPreview

End With per rendere flessibile il filtro con altri campi, tipo categoria e assetto...e' necessario lavorare ancora sulla creazione del filtro.

HTH.

Ciao, Sandro.

0 commenti

Anonimo

2021-11-23T14:21:36+00:00
Mimmo ho completato la maschera di ricerca con tutti i valori che devo filtrare.

ho capito che la ricerca deve essere fatta su più livelli per esempio:
- mi serve sapere quanti interventi sono stati fatti nel periodo dal al e quante persone di equipaggio sono state impiegate in quel periodo;
- oppure nello stesso periodo quanti interventi sono stati fatti per nazione
- oppure per nazione e categoria
- di questi quanti sono stati solo visual (che hanno dato supporto visivo)
- di questi quanti sono stati solo Effettuati (che sono intervenuti fisicamente)
- oppure se di tutti quanti sopra solo quelli Validi (da contare come ufficiali)
diciamo che l'utilizzatore deve poter avere tutte le possibili combinazioni di ricerca....

MascheraRicercaQueryCompleta

:)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2021-11-23T13:45:59+00:00

rimane il problema che non mi restituisce alcun valore se faccio la ricerca con categoria "tutto" ... come mai?
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2021-11-23T13:39:14+00:00

Mimmo se fosse per me ti farei già Santo Subito!!!!!

ma per inserire il campo Valido si/no nella maschera ricerca come devo procedere?

ps la compattazione del DB è una delle poche cose che faccio sempre, in quello che condivido mi ero dimenticato di apporla solo perchè lo uso come muletto ma ho provveduto subito :)
La risposta è stata utile?

0 commenti Nessun commento