Newsgroup: it.comp.appl.access
Titolo: Restituzione elenco di campi selzionati

Buongiorno a tutti,
sto cercando di risolvere questo problema, ma i miei pochi neuroni 
funzionanti sono in ferie.
Ah Antonio, come ti capisco in questi momenti...
Ho bisogno di una funzione che vada a scorrere l'elenco di record 
selezionati di una sottomaschera e
mi restituisca un controllo della stessa.
Quindi ho una maschera fattura, seleziono i record della sottomaschera e 
premo Canc per eliminarli:
Mi serve sapere l'elenco dei controlli "codiceProd" che ho eliminato.
Siccome dovrei usarla in diverse maschere vorrei crearmi una funzione e 
passarle solo i parametri del nome controllo e della maschera.
Sto litigando con for each ....itemselected
ma per adesso sta vincendo lui.
Come potrei fare?
Grazie dell'attenzione.
MAssimliano

 MAssimliano
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 bel Format non sarebbe male :-D
Arrivi tardi, č che ci sono momemti in cui anche reboot č un "problemissimo"
MAssimiliano

MA ha scritto:

Potresti fare che, per esempio, sull'evento eliminazione (delete) della
sottomaschera scrivi
    codicieliminati = codicieliminati & Me.codiceProd & ", "
e su afterdelconfirm scrivi
    msgbox "Hai eliminato: " & codicieliminati
Per scriverne una sola e usarla in diverse maschere vedi il mio esempio
www.sitocomune.com
 Modules 5.22.
Ciao.
Namor
-- 
namor at inwind punto it


 Che vuoi dire che se fossi tifoso della Juve mi comprerei l'arbitro?
Certo.


 ma per adesso sta vincendo lui.
Se ti capisco bene forsi ti aiuta
www.donkarl.com/it
 FAQ 4.40 Recuperare una selezione multipla di record
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)


Proprio questo.
Grazie Karl, ricordavo che l'avevamo tradotto ma non ero riuscito a 
trovarlo.
Solo che avendo letto FAQ 4.40ero andato su quelle del sitocomune, sai si 
confondono...
;-P
Grazie
MAssimiliano 

 ;-P
Madonna del Carmelo!
Non sai che ho una cerca veloceveloce sul sito? (p.e. bastava "selezione")
-- 
cu
Cetti



Pefetto, funziona benissimo.
Però sempre nell'ottica di voler avere una funzione unica,
come gli dico che la maschera su cui deve poggiare il recordset è quella 
selezionata?
Ora gli sto dicendo
Dim F as Form
Dim Rs as recordset
e poi dispongo
F = Forms!miaForm!miaSubform
Non posso passargli parametri percè l'ho inserito in pulsante Autokeys che 
vale ovunque, quindi non ho discriminanti se non la sub selezioanta
Grazie
MAssimiliano

 Non sai che ho una cerca veloceveloce sul sito? (p.e. bastava "selezione")
Karl scherzavo.
Chi è ti insegna queste esclamazioni??? Sib?
MAssimiliano

> Cetti 

 selezioanta
Come quasi sempre non so se ti capisco bene. ;-)
Parli di un pulsante in una barra degli strumenti o cos'è
"pulsante Autokeys"? Conosco solo il macro "Autokeys".
Se veramente non è possibile di passare un parametro forse
puoi usare Screen.ActiveForm ecc. nella funzione. Eventualmente
in un Select Case ... per eseguire codici diversi per le vari situazioni.



---
Daniele 

 in un Select Case ... per eseguire codici diversi per le vari situazioni.
No perchè così passa la Maschera a me serve la submask
Il select già l'avevo preventivato
MAssimiliano


 Il select già l'avevo preventivato
Fose anche qui non capisco perché non vedo il problema di scrivere:
Select Case 
Screen.ActiveForm.Name
    Case "miaForm"
        F = Forms!miaForm!miaSubform
    Case "tuaForm"
        ...
    Case Else
        F = Screen.ActiveForm
End Select


 End Select
Si Karl, c'ero su questo e lo uso spesso, è che mi sarebbe piaciuto avere il 
nome della sottomaschera
selezionata perchè in una maschera posso avere diverse sottomaschere.
MAssimiliano

 maschera posso avere diverse sottomaschere.
Forse dentro il primo ti server un altro Select...Case o If...Then
con qc. come: F = Screen.ActiveControl.Parent
che ti dà o la maschera o la sottomaschera dove si trova il controllo.


 -- 
Niente
   Select Case 
Screen.ActiveForm.name
        Case "Acquisto"
            F = Screen.ActiveControl.Parent
    End Select
Mi dà errore: Uso non valido di proprierty.
Infatti anche se metto msgbox Screen.ActiveControl.Parent
mi dà errore mentre se ho 
Screen.ActiveControl.Name
è corretto
MAssimiliano

 ha scritto nel messaggio 
news:ApEXd.4537$tY2...@news.edisontel.com...

Scusami ho sbagliato l'istruzione dimenticando di inserire "Set" F ...
MAssimiliano