Newsgroup: it.comp.appl.access
Titolo: Maschera di selezione multipla + sottocodici...

ciao a tutti... avrei un piccolo problema...
ho creato una Maschera di selezione
multipla . basata su tabella "II_Parte"...
e fin qui tutto ok...la maschera mi mostra
una lista di codici, 171 per l'esattezza...
ed un campo Link...
questo campo Link è ripetuto in un'altra
tabella "I_Parte" ove vi sono dei sottocodici
con relative spiegazioni di questi...
il problema si avvicina molto all'argomento del
"Sito Comune" "come si può filtrare un report
in base alla selezione multipla..etc. etc...
ebbene a me servirebbe poter portare in un Report...
selezionando nella casella multipla uno o più
codici anche i relativi sottocodici presenti
nella tabella I_parte...
è possibile farlo ???
Ciao...

" SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:rbpEa.69354$lK4.2...@twister1.libero.it...

La casella Multipla è una Casella Combinata....????
Ci sono diverse soluzioni per gestire la Selezione
Multipla, io ti presento la mia.
Uso la selezione multipla per costruire una Stringa SQL
ciclando all'interno dell'oggetto CasellaCombinata.
In questo modo dopo aver realizzato il PRedicato SQL
lo do in pasto alla QRY che è l'origine dati del Report.
Private Sub ctList1_Click()
   Dim x As Long
   sSQL = "Select * From TuaTbl Where "  'INSERISCI IL NOME DELLA TUA TBL
   intSel = 0
   For x = 0 To ctList1.ListCount - 1
      If Me.ctList1.Selected(x) Then
         'INSERISCI IL NOME DEL CAMPO DI RIFERIMENTO
         sSQL = sSQL & " OR IdTuaKey = '" & Me.ctList1.ItemData(x) & "'"
         intSel = intSel + 1
      End If
   Next
    'INSERISCI IL NOME DELLA QRY ORIGINE DEL REPORT.
   Currentdb.Querydefs(NomeQRY).SQL=StringaSQL
   Docmd.Openreport..........................
End Sub
Ciao.
@Alex.

 lo do in pasto alla QRY che è l'origine dati del Report.
[cut]
ancora non ti seguo...Cmq.. mi sono dato da fare e ti dico
al punto in cui sono arrivato....
se apro Maschera1 si apre la Casella combinata
e posso selezionare uno o più codici poi con un pulsante
Anteprima report visualizzo i codici...
ma nel report al posto di un campo riferito appunto alla casella
di riepilogo mi occorrerebbe il campo Descizione
di Tabella I_Parte...
e qui mi sono impantanato...
cmq se mi dai il permesso  ti mando il file che sono di pochi
kappa...
Ciao...

" SuperPippo®" <ik0qd...@SPAMlibero.it> ha scritto nel messaggio
news:EdIEa.71085$Ny5.2...@twister2.libero.it...
[CUT]
Scusa per il LAPSUS, mi confondo sempre con Combo e List.....!
In realtà lo puoi fare solo con LIST_BOX nonchè Casella di Riepilogo.
Se metti il codice che ti ho postato nella Form di Selezione, leggendo
bene i commenti per modificare i testi in modo da adattarli alla tua
realtà, quando esegui la Routine questa ti modifica il Predicato della
Qry che sarà l'origine dati del tuo report in modo automatico, non devi fare
nulla
solo generare la Qry senza preoccuparti di perfezionarla....!!!
Riepilogando:
1)Crea una Qry chiamata QryReport con origine la Tabella non filtrata
2)Cra un Pulsante chiamato "FiltraRpt" e sull'evento Click inserisci il
    seguente codice......!
3)Sostituisci il NomeTabella con il reale nome della tua Tabella, quella
della QryReport per intenderci...!
4)Sostituisci il Nome del Campo che hai indicato come PrimaryKey nella
Tabella in modo
    da ottimizzare la ricerca
5)Ricordati di costruire la ListBox in modo che la Prima colonna=PrimaryKey
che sarà anche la
   colonna associata, questo ti semplifica la vita....... se poi non ti
piace vedere il Campo poichè
   non è un campo Parlante allora imponi la larghezza della Colonna=0, e
funzionerà anche se non la
   vedi.
Private Sub FiltraRpt_Click()
   Dim x As Long
  '---------------------------------------------
  'INSERISCI IL NOME DELLA TUA TBL
   sSQL = "Select * From TuaTbl Where "
  '----------------------------------------------
   intSel = 0
   For x = 0 To ctList1.ListCount - 1
      If Me.ctList1.Selected(x) Then
         'INSERISCI IL NOME DEL CAMPO DI RIFERIMENTO
         sSQL = sSQL & " OR CampoPrimaryKey = '" & Me.ctList1.ItemData(x) &
"'"
         intSel = intSel + 1
      End If
   Next
    'INSERISCI IL NOME DELLA QRY ORIGINE DEL REPORT.
   Currentdb.Querydefs(QryReport).SQL=StringaSQL
   Docmd.Openreport..........................
End Sub
Se hai ancora problemi prova ad allegarmi un Esempio in privato e provo ad
aggiustarti il tutto.
Saluti.
@Alex.

SuperPippo.....!!!
Hai hai hai hai......!!!
Credo tu abbia la casella di posta piena....!!!!!!
Mi si incazza ogni Mail ti invio.......
Se mi aggiorni io ho già fatto......!
@Alex.


-------------
strano...oggi la posta l'ho scaricata..
anche se ho messo molti filtri per lo spam...
riprova...
ik0...@libero.it
oppure in ufficio
usl...@libero.it
ti mando anche una e-mail privata...
Ciao...