numerazione buoni x 12/24 mesi
JOE
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
pablitomf
> 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
JOE
news:cc3ef6fa-e3bf-42cc...@o10g2000yqa.googlegroups.com...
On 3 Nov, 13:40, "JOE" <to...@invalid.it> wrote:
> 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...
> 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
pablitomf
> "pablitomf" <pablit...@virgilio.it> ha scritto nel messaggionews:cc3ef6fa-e3bf-42cc...@o10g2000yqa.googlegroups.com...
> On 3 Nov, 13:40, "JOE" <to...@invalid.it> wrote:
>
> > 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...
> > 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
> 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
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...
JOE
> ------------------------
> ti ringrazio molto della risposta, ma rettifico la mia richiesta in
> quanto non sono stato molto preciso
> 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
>Ok elementare al massimo...
orca miseria.. per te magari 8>))
non ci ho capito qualsi nulla...
>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...
diciamo che fino a qui ti seguo...
>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...
Ok.. ti ho seguito.. fin qui ;.((
>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...
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
JOE
-----------------
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
pablitomf
> di NG..
> quando hai tempo e voglia potresti spiegarmi il procedimento per
> applicare
> quanto mi hai suggerito ???
> ti ringrazio tantissimo...
> 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
JOE
> 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
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
JOE
.> 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..