Newsgroup: it.comp.appl.access
Titolo: Trasposizione di una colonna in AccessXP

Ciao a tutti!
Ho un problema con una trasposizione di una colonna di una tabella. 
Mi spiego meglio.
La tabella di Origine ha un solo campo IdOrigine con una quindicina di
record.
La tabella che vorrei ottenere contiene un record con 15 campi che
contengono
i valori del campo IdOrigine dei 15 record della tabella di origine.
Tabella di Origine (con 15 record)
-------------
| IdOrigine |
|------------
|    1      |
|    2      |
|    3      |
|    .      |
|    .      |
|    .      |
|   15      |
-------------
Tabella Finale (con 1 record)
---------------------------------
|Campo1 | Campo2 | ... | Campo15|
|--------------------------------
|  1    |   2    | ... |   15   |
|--------------------------------
Ho fatto una prova semplificativa tramite codice Visual Basic in
questa maniera, trovando dei consigli in questo stesso NG:
    Dim PrimaTab As Recordset
    Dim SecondaTab As Recordset
    Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione")
    Set SecondaTab = CurrentDb.OpenRecordSet("TFinale")
    PrimaTab.MoveFirst
    SecondaTab.MoveLast
    SecondaTab!IdStudente1 = PrimaTab.Fields(1)
    PrimaTab.MoveNext
    SecondaTab!IdStudente2 = PrimaTab.Fields(2)
    PrimaTab.Close
    SecondaTab.Close
Ma all'esecuzione del codice tramite un semplice click su un pulsante
di
una maschera mi dice "TIPO NON CORRISPONDENTE" alla riga che contiene
Set PrimaTab=CurrentDb.OpenRecordSet("Trasposizione")
Sinceramente non capisco il motivo. La variabile PrimaTab che ho
dichiarato
è di tipo RecordSet come il tipo restituito dalla parte destra
dell'uguaglianza.
Riuscite a darmi una mano?
Vi ringrazio in anticipo per l'aiuto!
CIAO!
Carlo.

 Carlo.
La via che hai scelto non mi pare la piů efficiente.
Avresti dovuto scandire i campi con un For... Next.
In ogni caso l'errore che ti appare non dipende da
questa circostanza.
Sostituisci con:
    Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione",dbOpenDynaset)
    Set SecondaTab = CurrentDb.OpenRecordSet("TFinale", dbOpenDynaset)
Ciao
Bruno

 ha scritto nel messaggio 
news:9a739421.05041...@posting.google.com...

Credo, ma solo credo, manchino i riferimenti per la creazione del rst (DAO 
nello specifico). Ma non ti fidare, sono scarso. Ciao 

 Bruno
Grazie Bruno!
Avevo provato anche io questa soluzione che mi è venuta in mente
guardando stamane l'help in linea di AccessXP (ho cercato Recordset).
Cmq non funziona ugualmente poichè la sintassi corretta è:
Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione","dbOpenDynaset")
Il fatto è che così facendo mi da errore di conversione di tipi!
Forse ho capito dove sta il problema, e sto cercando (per ora senza
buoni risultati) di risolverlo: è questione di librerie! Questa è la
sintassi della libreria DAO e il recordset è ADODB. La soluzione è
caricare la libreria DAO. In teoria sarebbe da andare in
Strmenti>Riferimenti e impostare un riferimento alla libreria DAO 3.6.
Piccolo problema: in Strumenti non ho "Riferimenti".
Se qualcuno ha qualche altro suggerimento gliene sarei grato!
CIAO!

 Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione","dbOpenDynaset")
Che non sia lě il problema č un fatto, ma la sintassi corretta č:
---------------------------
Set PrimaTab = CurrentDb.OpenRecordSet("Trasposizione",dbOpenDynaset)
---------------------------
provare per credere.
Bruno