Newsgroup: it.comp.appl.access
Titolo: Combo che legge il filtro di una query

Ho una maschera in Access con inserita all'interno una combo non associata
Nelle proprietą della maschera ci puo' essere, in determinate situazioni, un
filtro che seleziona SOLO determinati record di un archivio clienti.
La combo, purtroppo, riporta TUTTI i nominativi presenti nell'archivio
clienti non avendo un collegamento dinamico con la query contenuta nella
maschera.
Non so come rendere dinamica la combo in modo che, al variare del filtro
presente sulla maschera, riporti nell'elenco a tendina SOLO i reconds
filtrati.
Allego la routine presente attualmente sulla combo:
---------------------
Private Sub SceltaCliente_AfterUpdate()
On Error GoTo ErrorHandler
   Dim strSearch As String
   strSearch = "[IDCliente] = " & Me![SceltaCliente]
   'Find the record that matches the control
   Me.Requery
   Me.RecordsetClone.FindFirst strSearch
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Me.SceltaCliente = Null
ErrorHandlerExit:
   Exit Sub
ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit
End Sub
---------------------------------
Se qualcuno mi da dei suggerimenti lo ringrazio.
Flavio

 filtrati.
Modifica la query della combo mettendo gli stessi filtri usati per la
maschera
Antonio

 ha scritto nel messaggio
news:qLOcc.112264$Kc3.3...@twister2.libero.it...

Hai ragione, ma il problema č che la maschera puo' aver associate query
diverse di volta in volta.
Questo perchč la maschera viene aperta da dei bottoni (associati a query
filtrate) diversi di volta in volta.
Percio' nella maschera si possono presentare delle situazioni diverse.
Flavio

 Percio' nella maschera si possono presentare delle situazioni diverse.
Ti avevo già detto di spiegare che tipo di filtri usi nel dettaglio
Antonio

 ha scritto nel messaggio
news:eWVcc.115928$FJ6.4...@twister1.libero.it...

Antonio, scusa per la mia insistenza, ma forse non so spiegarmi bene, ci
riprovo...
Uso 3 bottoni (su una maschera "menu A" che poi porta nella maschera B di
cui sopra:
a) il primo lancia una query 1 "tutti" che seleziona "tutti" i record in
ordine alfabetico senza nessun criterio;
b) il secondo lancia una query 2 "importanti" che seleziona in ordine alfabe
tico "solo i record con una opzione si/no VERO su campo importante"
c) il terzo lancia una query 3 "da aggiornare" che seleziona in ordine
alfabetico "solo i record con una opzione si/no VERO su campo da aggiornare"
Giunti nella maschera B (quella del problema) c'è la combo per permette di
selezionare i record. Ma è una combo non associata che NON PUO' AVERE varie
query ma deve relazionarsi con la query (1 o 2 o 3) che trova nella maschera
B, per poter selezionare i record associati a tale query.
Spero di riuscire a far capire il problema....
Flavio

Flavio_tv wrote:

...e quando chiami (openform) il form B passa, sull'openargs, il nome 
della query (che a quel punto dovresti sapere), sulla load di B 
inserisci quel nome sul  rowsource del combo.
--
a.cara

 ha scritto nel messaggio
news:c51hvf$2lsahk$1...@ID-163946.news.uni-berlin.de...

Forse ho intuito la soluzione ma non ci capisco molto.
Ti allego la routine del bottone "Importanti" e la routine della combo, per
un aiuto:
---------------------------------------------------------
Private Sub Importante_Click()
On Error GoTo Err_Importante_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Cliente"
    DoCmd.OpenForm stDocName, , , "Importante=True"
Exit_Importante_Click:
    Exit Sub
Err_Importante_Click:
    MsgBox Err.Description
    Resume Exit_Importante_Click
End Sub
------------------------------------------------------------
Private Sub SceltaCliente_AfterUpdate()
On Error GoTo ErrorHandler
   Dim strSearch As String
   strSearch = "[IDCliente] = " & Me![SceltaCliente]
   'Find the record that matches the control
   Me.Requery
   Me.RecordsetClone.FindFirst strSearch
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Me.SceltaCliente = Null
ErrorHandlerExit:
   Exit Sub
ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit
End Sub
-----------------------------------
Grazie.
Flavio

 inserisci quel nome sul  rowsource del combo.
E bravo: io da grande demiurgo riesco faticosamente dopo innumerevoli
tentativi a tirargli fuori quello che doveva dire e tu... ZAC... mi freghi
l'intervento risolutore!!!
Non si fa... non si fa...
Antonio

 ha scritto nel messaggio
news:bLYcc.116270$FJ6.4...@twister1.libero.it...

Lo so che non sono ancora navigato di Access (lo sto imparando solo da 3
mesi...),
ma voi che siete gli specialist del NG datemi se potete le istruzioni per
applicare la soluzione.
Grazie ancora a Alessandro e Antonio.
Flavio

 ha scritto nel messaggio
news:EWYcc.36818$zm5....@nntpserver.swip.net...

forms("B").combo.rowsource = query
Antonio


ciao Antonio ..... Di fatto non e' stato tanto risolutore .....  mi 
sembra che c'e' ancora molto da lavorare.
Buon proseguimento ;<)
P.S. Non lo faccio piu'
P.P.S. qual'e' lo smailino con la lacrimuccia?
--
a.cara

> P.P.S. qual'e' lo smailino con la lacrimuccia?
;..(
MAssimliano

 ha scritto nel messaggio
news:c531vc$2nuh74$1...@ID-163946.news.uni-berlin.de...

Fallo fallo, cosě mi levi un po' di lavoro. L'onorario resta a me perň...
Antonio

 Antonio
MAssimiliano

 ha scritto nel messaggio
news:v57dc.114598$Kc3.3...@twister2.libero.it...

Mi sa che non è la soluzione al problema e poi come si fa..... sono
ignorante perdonate.
Flavio

 Flavio
Comincia col vedere l'help on line su rowsource
Antonio