Newsgroup: it.comp.appl.access
Titolo: Clonare i dati tra due tabelle.

Ciao,
Ho una tabella "Tbl1" con due campi "Data" e "Numero" ed un'altra
tabella "Tbl2" con 45 campi "A1" : "A45".
Per comodità la "Tbl2" la riduco a 4 campi "A1 : A4".
Tramite maschera e sottomaschera visualizzo la "Tbl1" in modo da avere
per ogni data in maschera principale tanti record di "Numero"in
sottomaschera appartenenti alla stessa data.
Data
01/01/2008
 Numero
    2
    3
    4
 Data
02/01/2008
 Numero
    1
    3
 Data
03/01/2008
 Numero
    3
    4
ecc...
Quello che dovrei fare (lo faccio manualmente perchè non ho trovato
altra soluzione) è prendere i numeri del campo "Numero" ed inserirli
nella "Tbl2" in corrispondenza del campo A & stesso numero; in poche
parole, tutti i numeri (records) appartenenti alla prima data
visualizzata (primo record) vanno a finire nel primo record della
"Tbl2" e così via:
A1  A2  A3  A4
       2    3     4
 1          3
             3     4
Spero di essere riuscito a farmi capire.
Grazie a chi vorrà rispondermi.
Ciao Vladimiro.


ps
Se è complicato mi va bene pure non specificare i campi della "Tbl2",
l'importante è che tutti i numeri del primo record appartenenti alla
"Tbl1" vanno a finire al primo record della "Tbl2".
A1  A2  A3  A4
 2    3    4
 1    3
 3    4
Forse è meglio specificare (anche se mi pare ovvio) che i numeri vanno
da 1 a 45 e siccome sono in modalità raggruppamento, nello stesso
record non si ripetono mai.
Di nuovo Vladimiro.


Dim myRs as variant, rsTbl2 as variant, wkData as variant
Set myRs = sottomaschera.recordsetclone
set rsTbl2 = currentdb.openrecordset("Tbl2")
myrs.movefirst
do until myrs.eof
    wkData = myrs!data
    rstbl2.addnew
    do until myrs.eof or wkdata <> myrs!data
         tstbl2("A" & myRs!Numero) = myrs!Numero
	myrs.movenext
	if myrs.eof then exit do
    loop
    rstbl2.update
loop
that's all
Non abituarti, in genere non mi metto a scrivere codice "risolutivo"
--
ac

 loop
--
ac


Ma va, non ci credo nella tua ingenerosità :-)
Siccome non ho il tempo di provare, ci risentiamo eventualmente
stasera.
Mille grazie.
sei grande .... e non ti ci abituare :-[)
Ciao Vladimiro.

 - Mostra testo citato -
Ciao Alessandro, funziona tutto alla grande.
rstbl2!data = wkdata  non serve in quanto la Tbl2 non ha il campo Data
Qui non ho capito:
Set myRs = sottomaschera.recordsetclone
e al posto della sottomaschera ho usato una query.
Non so proprio come ringraziarti.
Appena ho un pò di tempo voglio studiarmi il codice ( ho notato, visto
qualche errore ripetuto, che lo hai scritto di getto e questo sta a
dimostrare che non mi ero sbagliato nel considerarti uno molto esperto
in materia).
:-)
Vladimiro.


Ciao Alessandro, sarà che sono proprio incompetente, ma non riesco a
fare una cosa in apparenza semplice.
Questo amico a cui sto facendo il programma, mi ha chiesto di poter
analizzare 90 numeri al posto dei 45.
Siccome non posso inserire 90 campi in quanto nel report 90 campi
ridotti ai minimi termini non visualizzerebbero i dati al loro interno
e constatato il fatto che i numeri da prelevare per ogni singola data
sarebbero al massimo una ventina, pensavo di implementare la Tbl2 non
per definizone campo: cioè al posto di avere il n.1 in A1, il n.2 in
A2, il n.3 in A3 ecc... avere, a prescindere dal numero, l'occupazione
dei primi campi.
Ad es:
A1  A2  A3  A4
 2    3    4
 1    3
 3    4
Come posso fare?
Ciao Vladimiro.

vlad...@alice.it
 ha scritto:
Vladimiro fai un altro post.
Il tuo amico e' un giocatore accanito.
Se poi gli fai vincere qualche milione di "euri" fatti dare la percentuale.
--
ac

 
vladil...@alice.it
 ha scritto:

Bingo!!!!!!!!
Più che un giocatore, è convinto nello studio delle probabilità.
Rimango sempre dell'idea che seppur una moneta buttata per aria n
volte alla fine avrà lo stesso numero di testa e croce, indovinare il
momento in cui esce testa o croce, come probabilità avrà sempre il
50%.
Lui è convinto di no.
Vladimiro.