Newsgroup: it.comp.appl.access
Titolo: Captare dei record

gentili utenti del newsgroup, chiedo aiuto:
in una maschera ogni giorno mi ritrovo dei record filtrati...é possibile con un click ottenere i campi primari di questi record [in questo caso il campo é numerico e si chiama <codice>] per poi utilizzarli come criteri di selezione in una query ?
tutti in un solo click...
grazie mille



non ho capito nulla.....
Saluti.
Emanuele.


Es (la tabella mi propone 5-6 record al giorno):
codice nome cognome
codice nome cognome
...
devo assorbire i codici di queste righe proposte(filtrate) per poi
utilizzarli come filtri(criteri) per una query.
E' possibile ? Vi prego, aiuto !
--------------------------------
Inviato via 
http://usenet.libero.it

 Emanuele.
BUBI.....!! ;-)
Siamo in 2...!
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:asiuj4$s8b$2...@lacerta.tiscalinet.it...

Se ho ben capito il tuo problema, potresti provare con la tecnica QBF,
ovvero potresti modificare da codice VBA il codice SQL di una query
preesistente.
Se la query si chiama Query2 e deve visualizzare tutti i record della
Tabella1 che abbiano come valore del campo Codice uno dei valori del campo
Codice contenuti nel recordsetclone della maschera attiva.
Nella maschera in cui visualizzi i record filtrati inserisci un pulsante di
comando; a fronte dell'evento "Su clic" del pulsante di comando genera il
seguente codice VBA:
Dim rst As DAO.Recordset
Dim strLista As String
Dim MyQD As DAO.QueryDef
strLista = ""
Set rst = Me.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
    strLista = strLista & rst!codice & ","
    rst.MoveNext
Loop
strLista = Left(strLista, Len(strLista) - 1)
Set MyQD = CurrentDb().QueryDefs("Query2")
MyQD.SQL = "SELECT * FROM Tabella1 WHERE Codice In (" & strLista & ");"
Set rst = Nothing
Set MyQD = Nothing
Aprendo Query2 vedrai i record selezionati dai valori del campo Codice dei
record filtrati al momento che hai pigiato il pulsante di comando della
maschera; la selezione sarà quella sino a quando non pigerai nuovamente il
pulsante di comando.
Facci sapere se funziona.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Gentilissimo Roberto, hai capito alla perfezione il mio problema, purtroppo
però sono molto ignorante, ho messo il codice e mi dà errore nelle prime
righe di dim DAO del tipo "non riconosciuto"
Cavoli, cosa devo fare ?


 ha scritto nel messaggio
news:80Z204Z138Z82Y1...@usenet.libero.it...

Come potrai notare la routine VBA che ti ho postato fa riferimento alla
libreria Microsoft DAO; pertanto, se usi una versione di Access successiva
ad Access 97, al tuo database devi aggiungere i riferimenti a tale libreria;
se non lo fai ricevi un messaggio di errore (ma quello lo hai già
sperimentato).


... al tuo database devi aggiungere i riferimenti a tale libreria;
[CUT]
Naturalmente devi aggiungere i riferimenti alla libreria Microsoft DAO. ;-)



Egregio maestro,
dove devo andare per mettere i riferimenti ?
porta pazienza, ma sono un caprone.



Apri un qualsiasi modulo, ad esempio quello di cui stiamo parlando; dal menu
Strumenti esegui il comando Riferimenti...; ti si aprirą la finestra di
dialogo Riferimenti che contiene la lista dei riferimenti possibili: cerca
quello di Microsoft DAO e attiva il relativo "svirgolino" a sinistra del
nome; pigia il tasto OK.


 nome; pigia il tasto OK.
Grazie Roberto, se ho altri quesiti sò di trovare una persona disponibile e
sopratutto molto gentile.
Grazie
