Filtro maschera Access

Question

Avrei veramente bisogno di riuscire a impostare un filtro in una combobox.

Ti spiego la mia situazione:

Ho un db access per gestire delle prestazioni fornite da uno studio.

Utilizzo 5 Tabelle per gestirle, lo trovi in allegato.

Nella mia maschera per inserirle utilizzo una combobox cmbPrestazioni.

la sua rowsource è:

SELECT Anagrafica_Prestazioni.ID_Prestazione, Tipo_Macro & ' - ' & Desc_Prestazione AS VoceCompleta FROM Anagrafica_Prestazioni ORDER BY Anagrafica_Prestazioni.Tipo_Macro, Anagrafica_Prestazioni.ID_Prestazione;

Con 2 colonne 0cm;7cm;

Quello che vorrei fare è permette all'utente di riuscire a filtrare i possibili risultati mentre scrive.

Ad esempio: se scrive "Assist" sotto dovrebbero comparire tutte le prestazioni con Desc_Prestazione, oppure con VoceCompleta che comprende le lettere consecutive "Assist" o "assist".

se cancella una lettera allora si cancella anche dal filtro. Se la cmb è vuota allora ripartiamo dalla rowsource originale.

Answer 1

Buon pomeriggio,

questo è il codice che permette di cambiare il filtro della maschera corrente. Affinché il focus rimanga sulla casella di testo "txtFiltro", c'è l'istruzione me.txtFiltro.setfocus. L'ultima riga permette di posizionare il cursore alla fine della stringa inserita come filtro; dovrebbe essere più usabile.

Saluti

Michele

Private Sub txtFiltro_Change()

If Me.txtFiltro <> "" Then

    Me.Filter = "[Desc\_Prestazione] like '\*" & Me.txtFiltro & "\*'  OR VoceCompleta LIKE '\*" & Me.txtFiltro & "\*'"

    Me.FilterOn = True

    Me.Requery

    Me.txtFiltro.SetFocus

    Me.txtFiltro.SelStart = Len(Me.txtFiltro)

End If

End Sub

Answer 2

Scusa ma quello che hai realizzato fino a ora è pasta tua o copiato qua e là?

Ci sono errori di base nella strutturazione del database:

• mancano le relazioni con tanto di integrità referenziale che non permetterebbe l'errore di inserire una Prestazione senza aver selezionato un Cliente, ciò che ora avviene
• non correta gestione delle proprietà dei campi specialmente quella Richiesto che come nel caso attuale del campo Durata_Prestazione dovrebbe essere impostata su Sì che non permetterebbe l'errore di inserire una Prestazione senza aver inserito un orario valido, ciò che ora avviene
• nella tabella Referenti perchè ci sono i campi dal Lunedì al Venerdì?

per aiutarti sarebbe bene che prima spiegassi, nei dettagli, che cosa dovrebbe fare questo database in modo da creare una struttura dello stesso corretta.

Answer 3

Buongiorno,
chiedo scusa, la penultima frase è errata, l'ho corretta.

https://limewire.com/d/1pbiE#FVH9T4jwF1

Ecco il database.

Molte grazie!

Answer 4

Non c'è nessun allegato, se vuoi puoi postare un file di esempio ma devi usa un sito di condivisione file tipo

https://filetransfer.io/ 

Nell'esempio appaiono tutti asterischi è corretto?