Access query accodamento da maschera

Question

Buon pomeriggio.

Una maschera, basata sulla tabella "combinazioni" e filtrata da una Query, elenca un serie di adempimenti che devono essere poi accodati nella tabella "adempimentipercliente".

Può darsi che sorga la necessità di accodare nella tabella di destinazione solamente alcuni adempimenti tra quelli elencati nella maschera; potrei in qualche modo deselezionare quelli da escludere.

Premetto che la tabella "Combinazioni" è una tabella generica, non riferita al cliente (il cliente viene filtrato dalla Query), per cui non posso (almeno credo)  inserirci una checkbox.

Esempio: la maschera per il cliente Rossi elenca i seguenti record (ID_Adempimenti):

• telefonare;
• cucinare;
• uscire;
• dormire.

Vorrei che "dormire" fosse escluso dall'accodamento, ad esempio deselezionandolo in qualche modo.

Grazie a tutti

Andrea

Answer 1

ciao Andrea,

il modo più corretto per filtrare records in una form è l'impostazione di un filtro e non una query che compone la sua clausola where leggendo i parametri dalla form.

Inciso a parte, secondo me, per partecipare e rispondere in modo proficuo ai quesiti della community, spesso credo sia il caso non assecondare le intenzioni degli utenti ma cercare di indirizzarli verso la strada più tecnicamente corretta al limite dell'OT.

Vedo che qui sto fallendo alla grande, nel senso che il vero nodo cruciale è la messa a punto della base dati, non importa, ok, con maggiore padronanza dello strumento sarà un argomento che riprenderai più avanti.

Per quanto al quesito che poni la strada ed il ragionamento che fai è sostanzialmente corretto.

Qual è l'escamotage per filtrare la form dalla/dalle listboxes ?

E' possibile ricorrere alla funzione instriseca instr per farsi restituire la posizione di una stringa all'interno di un'altra.

Come fare nel tuo caso.

Supponiamo che tu stia selezionando, dalla demo che ti avevo preparato "agente di commercio" e "Brasile"

Se crei due campi calcolati su una query che restituiscono per ogni riga della query la posizione di "agente di commercio" e "Brasile" cosa otterrai? otterrai 0 quando la posizione è diversa da agente di commercio e 0 quando il paese non sarà Brasile, altrimenti un valore maggiore, giusto?

Lo stesso nel caso in cui la scelta dovesse essere multipla.

Ora viene la parte difficile.

Se imposti il filtro nella query >0 per la posizione e O >0 per il paese dovresti ottenere le righe corrispondenti al filtro.

Questo però solo nel caso in cui una della listBoxes non presenti selezioni perché se invece tutte le listboxes hanno una o più selezioni il criterio non è >0 O >0 ma >0 E >0.

Proviamo.

Nella demo che ti ho preparato inserisci due textBoxes nella form clienti.

La prima la chiami txtFilter, la seconda txtPaese.

modifichi la funzione per la creazione del filtro nel seguente modo :

Private Function createFilter2(ByVal lst As Access.ListBox) As String

Dim varItem   As Variant

Dim strFilter As String

' ciclo gli elementi selezionati della listBox passata come argomento lst

' concatenadoli tra loro per la creazione del filtro

For Each varItem In lst.ItemsSelected

    strFilter = strFilter & "," & lst.Column(0, varItem)

Next

strFilter = Mid$(strFilter, 2)

createFilter2 = strFilter

End Function

ed inserisci  un command button che assegna alle textBoxes il risultato della/delle selezioni e al contempo risolverà la query una volta ancora con le nuove impostazione aggiornando il recordSource della form :

Private Sub cmdFilter2_Click()

Me.txtFilter = createFilter2(Me.lstPosizione)

Me.txtPaese = createFilter2(Me.lstPaese)

Me.Requery

End Sub

imposti e salvi una query con il seguente statement sql che diventerà il recordSource della tua form :

SELECT Clienti.IDClienteTesto,

            Clienti.NomeSocietà,

            Clienti.Contatto, Clienti.Posizione,

            Clienti.Paese,

            InStr(forms!Clienti!txtpaese,[paese]) AS pae,

            InStr([forms]![clienti]![txtfilter],[posizione]) AS pos

FROM

            Clienti

WHERE

       IIf(len(forms!Clienti!txtpaese & "")>0 And len(forms!clienti!txtfilter & "")>0,

            InStr(forms!Clienti!txtpaese,[paese])>0 And InStr(forms!clienti!txtfilter,[posizione])>0,InStr(forms!Clienti!txtpaese,[paese])>0 Or InStr(forms!clienti!txtfilter,[posizione])>0)

Or forms!Clienti!txtpaese Is Null Or forms!clienti!txtfilter Is Null;

come vedi la clausola where è complicata anche se facilmente comprensibile, ma con più listboxes da gestire lo statement diventa più verboso.

Attraverso la creazione di un filtro hai qualche riga di VBA in più, ma il procedimento è assolutamente più rigoroso, quindi prendi questa soluzione solo per scopo didattico per capire cosa non fare :-)

Tutto questo sempre IMHO.

Ciao, Sandro.

Answer 2

ciao Andrea,

non ho dato seguito ulteriore al 3D e forse ho fatto male come credo di fare male mettendoti a disposizione una demo per impostare un filtro su selezione multipla via listbox. (poi di seguito capisci il perché).

Credo che la query che mostri, in cross join, non sia il modo più corretto di procedere e altresì credo che ci sia qualcosa di errato nell'impostazione del db.

In ogni caso prova a vedere qui : demo dove ti mostro molto semplicemente il modo per selezionare più elementi da una o più listBoxes ed impostare il filtro risultate dalle selezioni.

Ho cercato di commentare il codice per rendere il ragionamento applicato di facile comprensione, e spero di esserci riuscito.

Sono convito che l'impegno vada sempre considerato e premiato, e da qui il ragionamento che mi ha spinto verso la demo, però!

Credo che il db debba essere impostato in modo che, indipendentemente dalla complicatissima situazione fiscale italiana, della quale la mia ignoranza è maggiore alla sola padronanza di Access ( quindi vedi un po' come sei messo...), il db ti debba consentire, dicevo, di impostare la posizione fiscale di ogni cliente.

In questo modo, si, impostando un filtro hai la/le posizioni fiscali correttamente restituite, un cross join che restituisce oltre 700.000 righe mi da il sentore che qualcosa di errato per quanto all'impostazione dei dati.

Tutto questo sempre IMHO.

un saluto e buona domenica!

Ciao, Sandro.

Answer 3

Buon pomeriggio, sono ancora qui e provo a rispondere alle domande.

1. La tabella combinazioni ha i campi ID_tipocliente, ID_tipoiva, ID_Tipocontabilità, eccetera, ID_Adempimenti, oltre un campo si/no denominato "escluso"; le oltre 6000 combinazioni sono tutte quelle possibili, quello che discrimina è il campo escluso; esempio: se il cliente è un "Privato" tutti i record con l'_IDTipoiva corrispondente a "mensile" o "trimestrale" avranno il campo escluso posto su vero;
2. Quando inserisco un nuovo cliente seleziono le sue caratteristiche nella maschera "Elenco clienti" e di fatto "traccio il suo profilo" dal punto di vista degli adempimenti, salvo alcune combinazioni che non sono "prevedibili"; esempio: un cliente privato può fare o il modello Unico o il 730; oppure la giungla dell'IMU/Tasi talmente complessa da renderla incodificabile; da qui l'esigenza di selezionare o deselezionare alcuni adempimenti (diciamo a mano) rispetto a quelli che scaturiscono dalla tabella combinazioni;
3. Query filtro: è basata sulle tabelle "combinazioni" e "clienti" in relazione tra loro per il tramite degli ID_tipocliente, ID_tipoIva eccetera; è filtrata con l'ID del nuovo cliente inserito e con il campo "escluso" della tabella combinazioni impostato su falso; quindi, una volta inserito il nuovo cliente, questa Query elenca gli adempimenti a lui collegati;
4. procedura: inserisco il nuovo cliente e apro la maschera che elenca gli adempimenti: se va bene accodo, altrimenti apro la popup "m_accoda2", seleziono o deseleziono a seconda delle esigenze e accodo.

E qui sorge il problema: i dati vanno accodati nella tabella "adempimentipercliente" nella quale ho la necessità di accodare, oltre all'ID del cliente e agli IDadempimenti, una serie di altri campi.

L'idea sarebbe di aggiungere i campi mancanti da accodare nella Query filtro, in modo da averli tutti disponibili, ma ovviamente, date le mie scarse conoscenze e la quasi assoluta incapacità di comprendere il codice legato al cmdInsert, non ne sono capace, per cui chiedo umilmente aiuto.

Grazie di nuovo.

Andrea

Answer 4

ciao Andrea,

Sandro, ti risparmio un po' di scocciatura: finalmente sono riuscito a visualizzare ciò che volevo !

Ora mi accingo a modificare l'accodamento.

....condividi le soluzioni, grazie :-).

[...]

Il problema si crea quando tratto un nuovo cliente: una volta inserite tutte le sue caratteristiche una Query filtro estrae la combinazione di adempimenti per quel cliente

[...]

quando inserisci un nuovo cliente, come discrimini gli adempimenti da assegnargli? nel senso come agisce la query che filtra gli adempimenti da assegnare da quelli da non assegnare?

[...]

Il tuo suggerimento nel database che hai postato è esattamente quello che mi serve, ma la maschera popup dovrebbe poter elencare il nome degli adempimenti (come hai scritto tu Imu, Tasi, Unico, eccetera) ma non tutti, se possibile solo quelli già filtrati dalla Query per quel cliente.

[...]

Bene, ma ancora quale metodo utilizzare per filtrare solo gli adempimenti di quel cliente?

E' il campo ID_tipocliente che associa questo piuttosto che quell'adempimento?

Qui, maschera clienti3 ho inserito un'ulteriore sviluppo che permette di accodare al cliente gli adempimenti tratti dalla tabella adempimenti e controlla, di non accodare gli stessi adempimenti più volte.

La listbox mostra ovviamente tutti gli adempimenti da assegnare: credo però che se le combinazioni sono davvero 6000...forse la soluzione con una listbox possa non essere così appropriata...

Comunque, se ci dai qualche risposta circa i questi sopra posti capiamo meglio.

[...]

Mi spiace averti annoiato così a lungo ma era necessario affinché tu potessi capire il problema

[...]

nessun problema, io mi diverto sempre un sacco :-)

[...]

Grazie per ora

Andrea

[...]

prego!

ciao, Sandro.

Answer 5

Sandro, ti risparmio un po' di scocciatura: finalmente sono riuscito a visualizzare ciò che volevo !

Ora mi accingo a modificare l'accodamento.

Grazie per ora

Andrea