Newsgroup: it.comp.appl.access
Titolo: numerazione buoni x 12/24 mesi

ho un db anagrafico e stampo dei buoni annuali ognuno per ogni individuo
che per un anno ne stampo 12... mi chiedevo se fosse possibile inserire
nel db un campo/controllo che mi stampi la dicitura 1/1 - 1/2 - 1/3 
etc..
fino ad 1/12...
� possibile ??
Giuseppe

 Giuseppe
se è solo questione di stampa, non hai bisogno di un campo... basta
una label d'appoggio...
con un semplice ciclo :
Dim conta as Integer
For conta=1 to 12
.... stampi il report e ti porti dietro la variabile conta che userai
come "1/" & conta
Next conta

 Giuseppe
se � solo questione di stampa, non hai bisogno di un campo... basta
una label d'appoggio...
con un semplice ciclo :
Dim conta as Integer
For conta=1 to 12
.... stampi il report e ti porti dietro la variabile conta che userai
come "1/" & conta
Next conta
------------------------
ti ringrazio molto della risposta, ma rettifico la mia richiesta in 
quanto non sono stato molto preciso
devo purtroppo dividere il db in 2 fasi di stampa... ecco perch� penso 
serva un campo/controllo in quanto dei circa 400 utenti che ho nel Db ad 
alcuni va dato un buono al mese ad altri 2 sempre cmq per un totale di 
12 all'anno oppure di 24...
quindi mi servirebbe a questo punto dire in fase di stampa ... stampa 
prima gli utenti a cui va consegnato 1 buono al mese.. quindi 1/12 - 
2/12 etc...
e poi effettuare la stampa di quelli a cui devo consegnare 2 buoni ossia 
1/24 - 2/24 - 3/24 etc..
si potrebbe fare anche con la tua soluzione oppure serve in effetti un 
campo in tabella ??
in attesa delle tue spiegazioni ti prego di esprimerti in modo 
elementare e in quanto sono poco pratico di access.
Giuseppe 

 Giuseppe
Ok elementare al massimo...
Per avere un comportamento diverso, rispetto alle diverse esigenze, in
generale, c'è bisogno di un elemento descriminante, ovvero un elemento
che identifichi, la tipologia di evento da scaturire... (fin ora è
teoria, access non centra nulla)
In rif. al tuo caso specifico, in fase di stampa devi dire al sistema
che "PIPPO" ha una caratteristica tale per cui deve avere 1 buono (12
nell'anno), mentre "PLUTO" ha una seconda caratteristica tale da
doverne avere 2 di buoni (quindi 24 all'anno)...
questo è quanto...
le strade da percorrere affinchè il sistema sia informato in fase di
stampa della caratteristica di "PIPPO" o di "PLUTO" che ne modificherà
quindi il comportamento, possono essere le più disparate...
puoi infatti nella fase di stampa stessa dire a "volo" al sistema se
per quell'utente deve stamparne 24 o 12, oppure registrare la
caratteristica discriminante all'interno del record dell'utente,
affinchè in fase di stampa il sistema la recuperi, e verifichi se
stampare 12 o 24 buoni...
il discorso è ad esempio :
Dim MaxBuoni as Integer
MaxBuoni = 12
Dim conta as Integer
For conta=1 to MaxBuoni
.... stampi il report e ti porti dietro la variabile conta che userai
come "1/" & conta
Next conta
per impostare la variabile MaxBuoni assegnandogli da codice una
discriminante a volo, possiamo usare una InputBox, e sostituire la
riga :
MaxBuoni = 12
con
MaxBuoni = InputBox("Immettere valori", "ATTENZIONE", "0")
in maniera tale che il sistema chieda a te in fase di stampa quanti
buoni deve avere...

buoni deve avere...
invece quanto sopra non s� applicarlo... il mio db � abbastanza semplice 
e piccolino
potresti dirmi in maniera pratica come fare quanto da te proposto ??
Giuseppe 

 ha scritto nel messaggio

-----------------
ciao Pablitomf.. certo sarai molto impegato a rispondere ai vari utenti 
di NG..
quando hai tempo e voglia potresti spiegarmi il procedimento per 
applicare
quanto mi hai suggerito ???
ti ringrazio tantissimo...
Giuseppe 

 Giuseppe
Ma te l'ho già scritta...
Vai nella sezione "MODULI", clicca su "NUOVO" e incollaci questo :
Option Compare Database
Public VARBUONI As Integer
Public VARCONTA As Integer
così facendo crei 2 variabili utili per tutto il DB e da recuperare
ogni qualvolta ti servono, visto che sono pubbliche
Salva il Modulo e chiamalo come ti pare (Es. VariabiliGlobali)
Vai nella sezione "MASCHERE", clicca su "NUOVO" e creati una nuova
FORM "PROVASTAMPA"...
Aprila in Struttura e inseriscigli un PULSANTE
sull'evento CLIK del PULSANTE (Proprietà del pulsante/Scheda Eventi/
clicca sui 3 puntini alla sinistra della riga) ci incolli questo
codice :
    VARBUONI = 0
    VARBUONI = InputBox("Immettere valori", "ATTENZIONE", "0")
    VARCONTA = 1
    For VARCONTA = 1 To VARBUONI
        Me.Form.Caption = "STAMPA BUONO 1/" & VARCONTA
        DoCmd.OpenReport "TuoNomeReport"
        DoEvents
    Next VARCONTA
Vai nella sezione "REPORT", e apri in struttura il report per cui vuoi
la stampa della dicitura "1/1"..."1/12"..."1/24"
individua il "NOME" del campo/etichetta in cui vuoi compaia la
dicitura stessa... (Ipotizziamo si chiami "TuoCampo")
su evento Apertura (Proprietà del Report/Scheda Eventi/clicca sui 3
puntini alla sinistra della riga) ci incolli questo codice :
Me.TuoCampo.Caption = "1/" & VARCONTA '(se non è una label devi
togliere .Caption dal codice)
salva tutto, e prova ad aprire la form che hai creato a a cliccare sul
pulsante...
Ciao

 Giuseppe
Ma te l'ho gi� scritta...
Vai nella sezione "MODULI", clicca su "NUOVO" e incollaci questo :
Option Compare Database
Public VARBUONI As Integer
Public VARCONTA As Integer
cos� facendo crei 2 variabili utili per tutto il DB e da recuperare
ogni qualvolta ti servono, visto che sono pubbliche
Salva il Modulo e chiamalo come ti pare (Es. VariabiliGlobali)
Vai nella sezione "MASCHERE", clicca su "NUOVO" e creati una nuova
FORM "PROVASTAMPA"...
Aprila in Struttura e inseriscigli un PULSANTE
sull'evento CLIK del PULSANTE (Propriet� del pulsante/Scheda Eventi/
clicca sui 3 puntini alla sinistra della riga) ci incolli questo
codice :
    VARBUONI = 0
    VARBUONI = InputBox("Immettere valori", "ATTENZIONE", "0")
    VARCONTA = 1
    For VARCONTA = 1 To VARBUONI
        Me.Form.Caption = "STAMPA BUONO 1/" & VARCONTA
        DoCmd.OpenReport "TuoNomeReport"
        DoEvents
    Next VARCONTA
Vai nella sezione "REPORT", e apri in struttura il report per cui vuoi
la stampa della dicitura "1/1"..."1/12"..."1/24"
individua il "NOME" del campo/etichetta in cui vuoi compaia la
dicitura stessa... (Ipotizziamo si chiami "TuoCampo")
su evento Apertura (Propriet� del Report/Scheda Eventi/clicca sui 3
puntini alla sinistra della riga) ci incolli questo codice :
Me.TuoCampo.Caption = "1/" & VARCONTA '(se non � una label devi
togliere .Caption dal codice)
salva tutto, e prova ad aprire la form che hai creato a a cliccare sul
pulsante...
-------------
porca miseria... scusa forse il server si � mangiato qualche messaggio..
ti ringrazio... oggi provo a vedere se ci riesco altrimenti riposto in 
NG ..
grazie di nuovo e buon WE
Giuseppe

 ha scritto nel messaggio �
.> CUT <<
Ma te l'ho gi� scritta...
Vai nella sezione "MODULI", clicca su "NUOVO" e incollaci questo :
Option Compare Database
Public VARBUONI As Integer
Public VARCONTA As Integer
cos� facendo crei 2 variabili utili per tutto il DB e da recuperare
ogni qualvolta ti servono, visto che sono pubbliche
Salva il Modulo e chiamalo come ti pare (Es. VariabiliGlobali)
Vai nella sezione "MASCHERE", clicca su "NUOVO" e creati una nuova
FORM "PROVASTAMPA"...
Aprila in Struttura e inseriscigli un PULSANTE
sull'evento CLIK del PULSANTE (Propriet� del pulsante/Scheda Eventi/
clicca sui 3 puntini alla sinistra della riga) ci incolli questo
codice :
    VARBUONI = 0
    VARBUONI = InputBox("Immettere valori", "ATTENZIONE", "0")
    VARCONTA = 1
    For VARCONTA = 1 To VARBUONI
        Me.Form.Caption = "STAMPA BUONO 1/" & VARCONTA
        DoCmd.OpenReport "TuoNomeReport"
        DoEvents
    Next VARCONTA
Vai nella sezione "REPORT", e apri in struttura il report per cui vuoi
la stampa della dicitura "1/1"..."1/12"..."1/24"
individua il "NOME" del campo/etichetta in cui vuoi compaia la
dicitura stessa... (Ipotizziamo si chiami "TuoCampo")
su evento Apertura (Propriet� del Report/Scheda Eventi/clicca sui 3
puntini alla sinistra della riga) ci incolli questo codice :
Me.TuoCampo.Caption = "1/" & VARCONTA '(se non � una label devi
togliere .Caption dal codice)
salva tutto, e prova ad aprire la form che hai creato a a cliccare sul
pulsante...
-----------
ciao Pablitomf.. sono alcuni giorni che provo a districarmi di quanto mi 
hai suggerito
ma non riesco... ho fatto tutto passo passo, mi ero solo impiantato 
nella sezione Report..
ma poi ho fatto... ma clikkando sul bottone della form esce una finestra 
"immettere valori"
di default vi � uno zero.. ma provando a inserire altro mi da errore di 
debug..
cosa altro potrei fare ??
Giuseppe
ps.. se vuoi ti mando il db � piccolino..