Newsgroup: it.comp.appl.access
Titolo: record duplicati e stampa ultimi record immessi

Innanzitutto grazie per chiunque voglia gentilmente darmi qualche
dritta, sono alle prime armi e ho qualche problema nel gestire un db
per carico e scarico merci.
Ho letto parecchio sull'ng e su sito comune però non ho risolto 2
problemi:
1) un prodotto viene inserito nel db con una maschera, diciamo che di
questo prodotto ne ho una quantità X . Quando scarico, ne scarico uno
alla volta in momenti diversi. Mi serve sapere la data di scarico di
ognuno degli X prodotti identici.
Mi conviene inserire X record identici?, se si è possibile farlo con
una maschera in cui sia possibile specificare X?
2) devo anche stampare le etichette in cui sono presenti alcuni campi,
e posso farlo al momento del carico del prodotto.
come posso fare un report di questo tipo?
Grazie 
Fabià
8-)> Fabià

"fabià" <fabi...@SPAMyahoo.com> ha scritto nel messaggio
news:3c506e50...@powernews.inwind.it...

Per 1) io farei così:
tabella Prodotti - contentente i dati relativi al prodotto
tabella Movimenti - contentente i dati relativi al movimento
(carico-scarico-data). Ovviamente correlata alla tabella Prodotti.
Con questi dati ti tiri fuori ciò che ti serve. L'idea di creare X record
identici è, secondo me, in antitesi con la filosofia dei database
relazionali
Per 2) non ho capito cosa vuoi fare
Poolo

8-)> Fabià
Saluti.
Emanuele.

 istruzioni
Fabio WROTE:
a proposito , perchè nella autocomposizione etichetta esiste un metodo per
duplicare le etichette in base ad una variabile quantità????
no... lo chiedevo perchè io utilizzo un metodo astruso....
ma ho guardato e mi sembra che non ci sia niente di simile



per tornare al discorso sulla duplicazione delle etichette in base ad un
valore quantità io fatto la seguente:
1) ho creato una tabella d'appoggio alla tabella Magazzino, chiamata
gestione etichette che conterrà solo le etichette da stampare alla fine
verrà ripulita.
2) una maschera chiamata appunto gestione Etichette con la tabella di cui al
punto UNO
3) Importante: nella TBL Magazzino ho impostato un campo check (SI/NO) che
alla fine della stampa delle etichette viene agiornato consentendo così di
avere sotto controllo gli articoli ancora non etichettati
4) nella maschera etichette ho creato3 tasti comandi...: 1 per importare da
tbl Magazzino i dati da stampare, 2 per duplicare i record, 3 per aprire il
report etichette
nel comando perduplicare ho inserito questo codice:
Dim i As Integer
Dim a As Integer
Dim cur As Integer
Dim quan As Integer
i = 2
cur = 1
Dim dc As Integer
    Dim dbs As Database, rst As Recordset
    ' Restituisce il riferimento al database corrente.
    Set dbs = CurrentDb
    ' Apre un oggetto Recordset di tipo tabella.
    Set rst = dbs.OpenRecordset("Etichette")
    'Debug.Print rst.RecordCount
    rst.Close
    Set dbs = Nothing
 dc = DCount("[Articolo]", "Etichette", "")
limbo:
      For a = i To Me![Quantità]
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Next a
While Not cur >= dc
cur = cur + 1
Debug.Print cur
DoCmd.GoToRecord , , acGoTo, cur
GoTo limbo
Wend
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
Exit_Comando14_Click:
    Exit Sub
Err_Comando14_Click:
    MsgBox Err.Description
    Resume Exit_Comando14_Click
    (queste righe non fanno altro che selezionare tutti i record iniziali ed
in base alla quantità fanno copia incolla N-1 volte tanto quanto in
quantità)
........... lo sò è un pò asurdo ma allora con le mie scarse conoscenze di
Access
è stato l'unico metodo che ho trovato.....
onestamente mi interesserebbe anche a me semplificare un pò le operazioni
quindi se qualcuno mi potesse dare un aiutino GRAZIE!!!!!!!!!!!!!

report etichette
CUT
non era sufficiente mettere un campo nretichette da stampare sulla
tabella merce?
se ci scirvi le devi stampare altrimenti no e sai già quante...
per ripetere una etichetta usi questo metodo...
un report etichetta con il campo neetichette di cui sopra invisibile e
poi il seguente codice che ti stampa le etichette che ti servono di
ogni campo
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount < Me.nretichette Then
    Me.NextRecord = False
    PrintCount = PrintCount + 1
Else
    PrintCount = 0
End If
End Sub
alla fine puoi cancellare il nretichette 
con un semplice db.execute update
se vuoi tenere traccia di quelle che hai stampato puoi mettere altri
campi ed aggiornarli alla bisogna...
forse questo metodo è meno astruso....
Saluti.
Emanuele.