Newsgroup: it.comp.appl.access
Titolo: 2 Domande per iniziare!

Ciao a tutti, e scusate se le mie due domande Vi possono sembrare banali...
1- che query dovrei creare per poter inserire in un unico campo (di un
singolo record) la somma dei contenuti di un singolo campo di una serie di
record??? (GUARDO DI SPIEGARMI MEGLIO!) Esempio: ho 5 record formati
ciascuno da un campo... es.
record 1 - campo 1 - valore "A"
record 2 - campo 1 - valore "B"
... etc...
record 5 - campo 1 - valore "E".
VORREI, tramite una query, creare una tabella con un unico record ed un
unico campo con valore
record 1 - campo 1 - valore "A, B, C, D, E"
OVVERO, la concatenazione dei contenuti di ogni singolo campo di ogni
singolo record
AIUTO! COME POTER FARE?
2- dopo aver fatto una query, avrei bisogno di inserire una numeratore
progressivo in un apposito campo creato per ogni singolo record risultante
dalla query... (GUARDO DI SPIEGARMI MEGLIO!) Esempio: creo una qualsiasi
query e ottengo come risultato una serie di record...
record 1 - campo 1 - campo 2 - campo 3...
record 2 - campo 1 - campo 2 - campo 3...
record 3 - campo 1 - campo 2 - campo 3...
... etc...
vorrei aggiungere ad ogni record un campo contenente un numero progressivo.
COME FARE?
record 1 - campo 1 - campo 2 - campo 3... + campo 4 (valore 1)
record 2 - campo 1 - campo 2 - campo 3... + campo 4 (valore 2)
record 2 - campo 1 - campo 2 - campo 3... + campo 4 (valore 3)
Scusate la banalità delle mie due precedenti domante...
ma stò iniziando solo ora a "SPIPPOLARE" con ACCESS!
Non sono molto pratico (non si è capito, vero?!)
Saluti e grazie per ora...
a buon rendere...
Mrc

 ha scritto nel messaggio
news:bc5jia$qr5$1...@newsread.albacom.net...

Vediamo se posso esserti di aiuto, con una sola query non credo si possa
fare, cmq qui ci sono cervelloni forse ci riescono :P
io posso darti un'alternativa a quello che chiedi, però devi scrivere del
codice:
Le 2 Tabelle di riferimento sono :
Tabella1
   Campo1    (Testo lungo 50)
Tabella2
   Campo1    (Numerico Precisione doppia)
   Campo2    (Testo lungo 50)
Dim dbs As Database
Dim tab1 As Recordset
Dim tab2 As Recordset
Dim Xflg1 As Integer
Dim Risultato As String
Dim ContaRighe As Double
Set dbs = CurrentDb
Set tab1 = dbs.OpenRecordset("SELECT * FROM [Tabella1]")
Set tab2 = dbs.OpenRecordset("tabella2", dbOpenTable)
ContaRighe = 0
Risultato = ""
If tab1.RecordCount > 0 Then
    Do Until tab1.EOF = True
        If Xflg1 = 0 Then
        tab1.MoveFirst
        Xflg1 = 1
        Else
        tab1.MoveNext
        End If
        If tab1.EOF = False Then
        Risultato = Risultato + Trim(tab1!campo1) + ", "
        ContaRighe = ContaRighe + 1
        End If
    Loop
End If
tab2.AddNew
tab2!campo1 = ContaRighe
tab2!campo2 = Risultato
tab2.Update
Spero di averti aiutato, sicuramente altri scrivono meno codice o
addirittura per nulla, questo so fa :)
Cia Marco F.
** Articoli inviato tramite i servizi gratuiti di 
www.x-privat.org
 **

 ha scritto nel messaggio
news:bc5jia$qr5$1...@newsread.albacom.net...
Un'unica risposta: scrivi un subject più significativo e, meglio, splitta in
due post con due domande distinte (se non sono correllate!)
Antonio

 ha scritto nel messaggio
news:PWyHa.97155$lK4.2...@twister1.libero.it...

Antonio!!!......Sei davvero incorregibile!!!! Non cambi mai....
;-)))
D.........