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

Grazie a Mimmo e a Sandro, grazie veramente. Tutte e due le soluzioni sono molto interessanti, la prima per l'estrema semplicità la seconda per applicazioni in problematiche anche diverse.

A questo proposito però, vista la mia profonda ignoranza, ho dei dubbi interpretativi sul funzionamento dell'esempio che Sandro ha postato, in particolare il codice collegato al CMDInsert.

Tutto bene con la maschera Popup, tutto bene con i vari comandi seleziona e deseleziona tutto, un po' meno bene, per usare un eufemismo, sul CMDInsert.

Le mie conoscenze sono troppo distanti per provare a comprenderne il contenuto; qualcosa capisco altro zero.

Chiederei però un chiarimento:

strSql = "insert into " & frm.RecordSource & "1(" & strSql & ") select " & strSql & " from " & frm.RecordSource & " where idcliente='" & frm.Controls("idcliente") & "'"

dovrebbe essere la parte di codice che lancia l'accodamento giusto ? Se così è vorrei poterlo adattare ad altre mie esigenze, tipo modificare la tabella di destinazione, per cui necessiterei di una "traduzione" per comuni mortali, categoria cui mio malgrado appartengo.

Grazie ancora

Andrea

Answer 4

ciao Andrea,

a me verrebbe in mente di aprire una form PopUP in cui piazzare una listbox che si popola con i campi della tabella associata alla form che mostra dati del cliente da accodare.

Da questa form PopUp selezionare i campi che vuoi accodare e...accodarli con una action query.

Potresti prevedere la possibilità di piazzare due command buttons che ti premettono di selezionare tutti i campi oppure di deselezionarli.

Vedi se Questo esempio ti è di aiuto.

ciao, Sandro.

Answer 5

Ciao Andrea,

una possibilità potrebbe essere di aggiungere un campo Selezionato di tipo si/no nella tabella "Combinazioni" da riportare nelle maschera per selezionare/deselezionare i singoli o tutti gli elementi (quindi una check-box).

Mimmo