Newsgroup: it.comp.appl.access
Titolo: Records da ripetere

Ciao A tutti,
Ho creato un del codice che però non funziona !!!!
Function ContaEtichetteQry() As Long
Dim dbs As Database, RS As Recordset, RSS As Recordset, cod As Integer,
Icount As Integer, Qty As Integer, codProdotto As Integer
On Error GoTo Err_ContaEtichetteQry
ContaEtichetteQry = 0
Set dbs = CurrentDb
Set RS = dbs.OpenRecordset("[Etichette_Ordine_Query]")
Set RSS = CurrentDb.OpenRecordset("SELECT Quantità FROM
Etichette_Ordine_Query ORDER BY Quantità;")
  ' apre la tabella: tbl_IDtmp (con gli ID crescenti)
  If Not (RS.EOF) Then
  ' prende come ID il primo record
    RS.MoveFirst
    codProdotto = RS!cod
    Qty = RSS!Quantità
    ' e cancella il record
  Else
    ' altrimenti apre la tabella: tbl_categorie_numerico (con gli ID
crescenti)
    RS.Close
  Set RS = CurrentDb.OpenRecordset("SELECT IDCliente FROM
IncassiInSpedizione_CampiIncrociati ORDER bY IDCliente;")
  Set RS = CurrentDb.OpenRecordset("SELECT cod FROM Etichette_Ordine_Query
order by cod;")
    'se la tabella e' vuota, il valore dell'ID sara' 1
    If RS.EOF Then
          Qty = 1
    Else
    ' altrimenti cerca l'ultimo ID
          RS.MoveLast
    ' il valore dell'ID sara' pari al valore del record + 1
  Do Until RS.BOF
    Set RS = CurrentDb.OpenRecordset("SELECT cod FROM Etichette Ordine Query
ORDER BY cod;")
    Icount = 0
    Do Until Qty = Icount
        Set RS = CurrentDb.OpenRecordset("INSERT INTO[Etichette Ordine
TMP](NomeSocieta,Formato,UninatàMisura,Marca,Nome,Caratteristica,Colore,Cara
tt,Names,Quantità,FornitNome,FornitNome,FornitIndirizzo,FornitCAP,FornitCitt
a,FornitStato,FornitTel,FornitFax,FornitTel,FornitMail,FornitWWW,Legge)" & _
        "SELECT
Ordini.NomeSocietà,Ordini.Formato,Ordini.UnitàDiMisura,[Listino-Bis].Marca,[
Listino-Bis].Nome,[Listino-BisCaratteristica].Caratteristica,Colore.Colore,[
Listino-BisCaratteristica]![Caratteristica]AS Caratt,[Ordini]![Nome]AS
Names,Ordini.Quantità,[Sag_INFO]![SAG]AS
FornitNome,Sag_INFO.SAG,Sag_INFO.Indirizzo,Sag_INFO.cap,
Sag_INFO.citta,Sag_INFO.stato,Sag_INFO.tel1,Sag_INFO.fax1,[Sag_INFO]![tel1]A
S
FornitTel,Sag_INFO.eMail,Sag_INFO.www,Sag_INFO.LeggeFROMSag_INFO,[Listino-Bi
sCaratteristica]INNER JOIN(Colore INNER JOIN([Listino-Bis]INNER JOIN Ordini
ON[Listino-Bis].Nome=Ordini.Nome)ON
Colore.Colore=Ordini.Colore)ON[Listino-BisCaratteristica].ID=[Listino-Bis].[
Listino-BisCaratteristica_ID]WHERE(((Ordini.NomeSocietà)=[Forms]![Ordini]![N
omeSocieta]));")
        Icount = Icount + 1
    Loop
    RS.MovePrevious
    Loop
    End If
  End If
Do Until RS.BOF
    Set RS = CurrentDb.OpenRecordset("SELECT cod FROM Etichette Ordine Query
ORDER BY cod;")
    Icount = 0
    Do Until Qty = Icount
        Set RS = CurrentDb.OpenRecordset("INSERT INTO[Etichette Ordine
TMP](NomeSocieta,Formato,UninatàMisura,Marca,Nome,Caratteristica,Colore,Cara
tt,Names,Quantità,FornitNome,FornitNome,FornitIndirizzo,FornitCAP,FornitCitt
a,FornitStato,FornitTel,FornitFax,FornitTel,FornitMail,FornitWWW,Legge)" & _
        "SELECT
Ordini.NomeSocietà,Ordini.Formato,Ordini.UnitàDiMisura,[Listino-Bis].Marca,[
Listino-Bis].Nome,[Listino-BisCaratteristica].Caratteristica,Colore.Colore,[
Listino-BisCaratteristica]![Caratteristica]AS Caratt,[Ordini]![Nome]AS
Names,Ordini.Quantità,[Sag_INFO]![SAG]AS
FornitNome,Sag_INFO.SAG,Sag_INFO.Indirizzo,Sag_INFO.cap,
Sag_INFO.citta,Sag_INFO.stato,Sag_INFO.tel1,Sag_INFO.fax1,[Sag_INFO]![tel1]A
S
FornitTel,Sag_INFO.eMail,Sag_INFO.www,Sag_INFO.LeggeFROMSag_INFO,[Listino-Bi
sCaratteristica]INNER JOIN(Colore INNER JOIN([Listino-Bis]INNER JOIN Ordini
ON[Listino-Bis].Nome=Ordini.Nome)ON
Colore.Colore=Ordini.Colore)ON[Listino-BisCaratteristica].ID=[Listino-Bis].[
Listino-BisCaratteristica_ID]WHERE(((Ordini.NomeSocietà)=[Forms]![Ordini]![N
omeSocieta]));")
        Icount = Icount + 1
    Loop
    RS.MovePrevious
    Loop
'Set RS = Nothing
Err_ContaEtichetteQry:
Exit Function
End Function
ho creato una query con numerosi campi tra cui: NomeProdotto, Quantità,
etc..
Esiste la possibilità, attraverso un del codiceVB od una macro per esempio,
di poter leggere il
valore "Quantità" relativamente a ciascun record della query, e lanciare
cosi una query di accodamento (in una tabella omologa) tante volte quanto
vale il campo "Quantità" ? Come ?
Ossia, inserisco in tabella (quindi nella query ) un ordine di :
NomeProdotto    Quantità    Colore
Barattolo A            10            neutro
Barattolo B            22            neutro
Barattolo B            15            Black
......
...
Voglio ottenere da un report, per ciascun record, tante etichette quanto
vale il numero di pezzi (quantità) inserito.
Grazie anticipato a coloro che collaboreranno
Simon


Ciao Simon,
guarda *Stampare N volte la stessa etichetta*  nella sezione Reports di
questo link 
http://www.sitocomune.com
Ciao Giorgio

 ha scritto nel messaggio
news:cn87on$qp$1...@lacerta.tiscalinet.it...

Ciao Simon,
si può fare ma forse fai prima ad andare al leggerti questo articolo su
www.sitocomune.com
 Sezione Reports
Stampare N volte la stessa etichetta...
con qualche piccola modifica dovresti riuscire ad adattarla al tuo caso,
senza creare tabelle temporanee.
Saluti
Cinzia