Applicare filtri su maschera continua basata su query

Anonimo
2021-11-23T10:25:28+00:00

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

Microsoft 365 e Office | Access | Per la casa | Windows

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 Nessun commento
Risposta accettata dall'autore della domanda
Anonimo
2021-11-30T19:52:22+00:00

Qui trovi la soluzione.

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

42 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2021-12-02T09:20:48+00:00

    nooooooooo!!

    che idiota!!! nel mio avevo inserito la stringa che mi hai detto ma quando facevo Cerca continuavo a guardare l'elenco degli eventi ma non guardavo quanto veniva riportato nel conteggio !!!!!

    scusami tanto Mimmo, ti ho assillato a vuoto :(

    grazie ancora

    Ivan

    La risposta è stata utile?

    0 commenti Nessun commento
  2. domenico laurenza 9,900 Punti di reputazione Moderatore volontario
    2021-12-02T09:05:17+00:00

    Ciao,

    modifica la 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

    La risposta è stata utile?

    0 commenti Nessun commento