Newsgroup: it.comp.appl.access
Titolo: Mostra campi query da form

Ciao a tutti,
dovrei estrarre dati da una query dove decido i campi da tirar fuori da
una form. Qualcuno ha idea di come si possa fare?
Grazie
Paolo

 ha scritto nel messaggio
news:1117463262.6...@g47g2000cwa.googlegroups.com...

Beh occorerebbe capire come o dove hai disponibile
l'Elenco dei Campi e come vuoi utilizzarli....!!!!
Se fosse una ListBox in Multiselezione sarebbe semplice
ti basterebbe ciclare gli ITEMS e passare il NomeCampo
al Record puntato dal Recordset.
In questo modo potresti sfruttare per popolare la ListBox
la propriet? RowSourceType="Elenco Campi" e
il ControlSource=NomeQuery.
Ora per? manca il COME usare il suggerimento, serve
che chiarisci come vuoi finalizzare il tutto.
Questo server per Iterare gli Items Selected, ma senza ulteriori
chiarimenti.......
   For Each varTable In Me!NomeListBox.ItemsSelected()
        MsgBox "NomeCampo= " & Me!NomeListBox.ItemData(varTable)
   Next varTable
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

In realtà ho una tabella con una serie di campi (a,b,c, etc)
Attraverso una form, con un flag per ogni campo della tabella, dovrei
poter decidere quali campi visualizzare (tipo il flag presente sulla
query "mostra") e poi il tutto trasferirlo in automatico in Excel
creando un file.
Questo sarebbe il fine.
Grazie
Paolo

 ha scritto nel messaggio
news:1117464380....@g43g2000cwa.googlegroups.com...

Grazie
Paolo
Credo che per ottenere una migliore flessibilità faresti meglio
a prendere in esame il mio suggerimento, quanto proponi è
statico, ma pur sempre funzionale.
In ogni caso creati una Maschera non associata, inserisci
tante CheckBox(Controllo Flag) quanti sono i campi che vuoi
gestire e dagli lo stesso nome dei Campi della Tabella, ma non
associarli.
Crea una Query chiamala "qryToExcel", e scrivi questo
codice SQL all'interno:
Select * From NomeTabella Where 1=0;
salvala con il nome che ti ho suggerito.
Quindi crei via codice la stringa SQL della Query
dalla Maschera tramite la funzione sotto
da inserire nell'evento CLICK del Button
Crea Excel:
Private Sub NomeCommandButton_Click()
    Dim ctl as Access.Control
    Dim sSQL as string
    SSQL="SELECT "
    For each ctl in Me.Controls
        if ctl.controlType=acCheckBox then
            sSQL=ssql & ctl.Name & ", "
       End if
    Next
    sSQL=Mid$(sSQL,1,Len(sSQL)-3)
    sSQL=sSQL & " FROM NomeTabella"
    CurrentDb.QueryDefs("qryToExcel").SQL=sSQL
    DoCmd.TransferSpreadsheet acExport, _
                                              acSpreadsheetTypeExcel97,
_
                                              "qryToExcel", _
"C:\Programmi\NomeFile.xls", _
                                              True
End Sub
Vedi se funziona come chiedevi.


Dunque, ho fatto tutto come hai scritto, ma mi esporta tutto, non solo
quello che fleggo. Sbaglio qualcosa?
Inoltre, come posso fare in modo che mi chieda di cambiare nome se il
file nella dy prestabilita esiste già?
Grazie
Paolo

 Paolo
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 tra i miei poteri...!
Magari se invece di diventare amico delle Api, fossi diventato amico di
quello stramaledetto
uccellino che non aveva mai niente da fare e spifferava tutto a mia a madre
quando ero piccolo...
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

Mi confermi che anche nell'evento CLICK del Button "Crea Excel" devo
cambiare solo il NomeTabella?
Grazie ancora...
Paolo

 wrote in message
news:1117541688.5...@g14g2000cwa.googlegroups.com

Devi cambiare tutti i riferimenti che io ho indicato come
generici:
Nometabella il Nome del Pulsante che chiama l'evento Click
e tutto quanto non presente nel tuo progetto e che ho
dovuto indicare con un NomeFittizio...!!!


Scusate ma posso capire anche io? :)
Praticamente cosa deve fare il tipo?
[QUOTO]
Attraverso una form, con un flag per ogni campo della tabella, dovrei
poter decidere quali campi visualizzare (tipo il flag presente sulla
query "mostra") e poi il tutto trasferirlo in automatico in Excel
creando un file.
visualizzare dove? e traferire il tutto, 'tutto' cosa? cioè....non ho
capito :)

Un pò di pazienza e forse ce la faccio...
Per il resto non c'è problema ma è in questa parte di codice che
credo di dover solo cambiare il NomeTabella anche perchè ho
difficoltà ad interpretarla. Se non è così di pregherei di darmi
ancora questa indicazione:
    Dim ctl as Access.Control
    Dim sSQL as string
    SSQL="SELECT "
    For each ctl in Me.Controls
        if ctl.controlType=acCheckBox then
            sSQL=ssql & ctl.Name & ", "
       End if
    Next
    sSQL=Mid$(sSQL,1,Len(sSQL)-3)
    sSQL=sSQL & " FROM NomeTabella"
    CurrentDb.QueryDefs("qryToExce­l").SQL=sSQL
    DoCmd.TransferSpreadsheet acExport, _
                                              acSpreadsheetTypeExcel97,
_
                                              "qryToExcel", _
Grazie
Paolo

 Paolo
Si Paolo è così, mi viene solo il dubbio dovuto
al fatto che non l'ho provato della costruzione della
stringa SQL corretta quì:
sSQL=Mid$(sSQL,1,Len(sSQL)-3)
sSQL=sSQL & " FROM NomeTabella"
Prova a mettere un MsgBox per vedere se la sintassi
è corretta, se non mancano spazi o altro.
Eventualmente mandami il Demo(ridotto al minimo) che
lo guardo.
