IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Access
  New Posts New Posts RSS Feed - [RISOLTO] Ciclo
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO] Ciclo

 Post Reply Post Reply
Author
Message
andreacaffy View Drop Down
Utente Senior
Utente Senior


Joined: 22/Apr/2009
Location: Italy
Status: Offline
Points: 420
Post Options Post Options   Thanks (0) Thanks(0)   Quote andreacaffy Quote  Post ReplyReply Direct Link To This Post Topic: [RISOLTO] Ciclo
    Posted: 18/Ott/2011 at 17:38

Ragazzi, ho bisogno di voi ancora una volta per due
problemi che non riesco a risolvere.


1) Ho una tabella con colonne c1,c2,c3,c4,c5 e n
righe. Ho anche una colonna rownumber con il numero della
riga e con un recordset ho memorizzato in una variabile
conta il numero totale delle righe. Quindi


riga1   c1  c2 c3 c4 c5


riga 2 c1 c2 c3 c4 c5.


Devo costuire una tabella fatta così (unico campo)


c1(della riga1)


c2


c3


c4


c5


c1 (riga 2)


c2


c3


c4


c5


Come costruisco il ciclo?


2) Ho una query con id_cliente e numero fattura. Per
ogni cliente ci possono essere più fatture,


Ho bisogno di costruire per ogni cliente in un campo
una riga contenente


la stringa PER FATTURA e i numeri di fattura che
trova.


Ad esempio cliente 1   ... PER FATTURA 1 2 (2 RIGHE
NELLA TABELLA INIZIALE)


cliente 2 --- PER FATTURA 3 (1 RIGA NELLA TABELLA
INIZIALE)


cliente 3 --- PER FATTURA 4 5 6 (3 RIGHE)


come faccio?

Back to Top
Sponsored Links


Back to Top
willy55 View Drop Down
Moderatore
Moderatore
Avatar
Esperto di Access

Joined: 03/Ago/2011
Location: Italy
Status: Offline
Points: 10254
Post Options Post Options   Thanks (0) Thanks(0)   Quote willy55 Quote  Post ReplyReply Direct Link To This Post Posted: 18/Ott/2011 at 23:26

Ciao andreacaffy

Devi costruire due cicli fra loro annidati, e tale esigenza mi pare similare per entrami i problemi da te evidenziati.

Vedi questo codice e adattalo alle tue esigenze:


    Dim dbs As Database
    Dim rst As Recordset
    Dim SetDiRecordTemp As Recordset
    Dim strSQL As String
    Set dbs = CurrentDb
    strSQL = "SELECT Anagrafica.ID, Anagrafica.Nominativo, Anagrafica.DataCreazione, Anagrafica.Attività, Anagrafica.Telefono, Anagrafica.Fax " & _
                 "FROM Anagrafica  WHERE (((Anagrafica.ID)<4)); "
    Set rst = dbs.OpenRecordset(strSQL)
    Dim i As Integer, j As Integer
   ' Elenca tutti gli oggetti dell'oggetto Recordset.
   
    '---- Ciclo esterno prende un record nella tabella -----------
    For j = 0 To dbs.Recordsets.Count - 1
        Set SetDiRecordTemp = dbs.Recordsets(j)
        Debug.Print
        Debug.Print "Elenco degli oggetti Recordset nr° ("; j; "): "; SetDiRecordTemp.Name
        Debug.Print
        ' Elenca i campi.
        Debug.Print "Campi: Name, Type, Value"
       
        '---- Ciclo interno prende i campi di ciascun record --------
        For i = 0 To SetDiRecordTemp.Fields.Count - 1
             Debug.Print "Nome: "; SetDiRecordTemp.Fields(i).Name
             Debug.Print "Tipo: "; SetDiRecordTemp.Fields(i).Type
             Debug.Print "Valore: "; SetDiRecordTemp.Fields(i).Value
        Next i
    Next j

Buon lavoro 

 

 

Willy
Back to Top
andreacaffy View Drop Down
Utente Senior
Utente Senior


Joined: 22/Apr/2009
Location: Italy
Status: Offline
Points: 420
Post Options Post Options   Thanks (0) Thanks(0)   Quote andreacaffy Quote  Post ReplyReply Direct Link To This Post Posted: 19/Ott/2011 at 15:42
Grazie

Ho risolto in questo modo:
http://www.mediafire.com/?d1g99wz73pqonc3

Bisogna creare un campo in ogni tabella con la
numerazione dei record inseriti da 1...

ora nella demo ID è contatore e non va bene.

Questa è la base, poi è da sviluppare secondo le esigenze
di ciascuno.

Io ho usato SQL e quindi aggiunto nella tabella tramite
una query passthrouh il campo numriga come
row_number() over (order by id) as numriga
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,064 seconds.