Newsgroup: it.comp.appl.access
Titolo: come effettuare stampe multiple etc.

90 gg;>
anche se a me servirebbe solo la scadenza tra >80gg <90 gg in maniera da
poter stampare le ricette solo in questo range di scadenza...
 in sostanza il mio problema è che devo poter stampare tutti i pazienti
(mediamente sono un centinaio da stampare, anche se il Db ne contiene
circa 3500, ma devono essere poi stampati sempre a scadenza di 3 mesi)
che si trovano in questa fascia di scadenza ,
 però la cosa penso + difficile è che una volta stampati infine.... e
qui penso sia difficile... una volta stampati gli utenti in  scadenza
questi dovrebbero ritornare non + in scadenza ma essere nel database
prossimi alla scadenza dei successivi 3 mesi dalla data di stampa...
ho già una tabella Anagrafe ed una tabella Prodotti che includono l'
ID...
la tabella Prodotti include un campo Data erogazione ricetta che poi
sarebbe la data  di stampa...
il mio problema è come stampare tutti assieme quel range di pazienti che
nella scadenza di >80gg <90gg ed una volta stampati ritornare ad essere
stampabili
tra 80gg e 90gg dopo...
spero di essermi spiegato e spero anche che si possa fare, altrimenti
accetto suggerimenti su come agire in maniera "Manuale".  :-(()
 grazie e ciao
ps- chiunque lo desiderasse sono disposto ad inviare il Db per avere una
visione + chiara di quanto ho spiegato.

 ha scritto nel messaggio 
news:5lQfi.47730$U01.4...@twister1.libero.it...

senza entrare nei dettagli:
devi crearti una tabella che contenga:
CLIENTE o (codiceCliente)
dataStampa
proxScad  ----> dove metterai l'intervallo in giorni
a questo punto potrai, tramite query, controllare chi è in scadenza e 
quando.
Ogni volta che deciderai il ciclo di stampe dovrai aggiungere un record per 
ogni paziente 'stampato' !
IvanDaBologna 

 ha scritto nel messaggio news:5lQfi.47730$U01.4...@twister1.libero.it...

Ho come un dejavu (SuperPippo@_at Home); o mi sbaglio?
Ciao.
-- 
Sergio MAZZA 

 record per ogni paziente 'stampato' !
scusami ma questo non l'ho capito...
grazie x l'aiuto...
Giuseppe

 Sergio MAZZA
-------------
certo.. :-))  è l'indirizzo email di casa...
Ciao 

 Ciao
Ciao.
-- 
Sergio MAZZA 

<90gg dopo...
---------------
+++++++++++++
Guarda che ti ho risposto alla tua risposta di sopra...e cmq lungi da me 
che tu mi sia antipatico...
e poi per quale motivo.... ci mancherebbe altro... posto in NG x 
chiedere aiuto dato la mia scarsa
conoscenza di Access...
riprendendo il discorso, è x me difficile esporre il problema...
oltre che metterlo in pratica... ma penso cmq che in tabella vada anche 
creato un campo data prossima scadenza ??
Ciao e grazie per la pazienza dimostrata...
G

 G
Ciao.
-- 
Sergio MAZZA 

 DateAdd aggiungendo i giorni)...
----------------
Ok Sergio... allora ho creato un campo nella Tabprodotti data_prox 
scadenza
e l'ho aggiunto anche nella Qry_Scad... vedi il codice...
SELECT Anagrafe.TxTCognome, Anagrafe.TxTNome, Tabprodotti.Prodotto, 
Tabprodotti.CodASL, Tabprodotti.CodEsenzione, 
Max(Tabprodotti.[data_erogazione ricetta]) AS [MaxDidata_erogazione 
ricetta], Tabprodotti.[data_prox scadenza], 
Min(DateDiff("d",[data_erogazione ricetta],Date())) AS gg, 
IIf(Min(DateDiff("d",[data_erogazione ricetta],Date()))<31,1,0) AS gg30, 
IIf(Min(DateDiff("d",[data_erogazione ricetta],Date()))>30 And 
Min(DateDiff("d",[data_erogazione ricetta],Date()))<61,2,0) AS gg3060, 
IIf(Min(DateDiff("d",[data_erogazione ricetta],Date()))>60 And 
Min(DateDiff("d",[data_erogazione ricetta],Date()))<91,3,0) AS gg6090, 
IIf(Min(DateDiff("d",[data_erogazione ricetta],Date()))>90,4,0) AS gg90
FROM Anagrafe INNER JOIN Tabprodotti ON 
Anagrafe.ID_Anagrafe=Tabprodotti.IdAnagrafica
GROUP BY Anagrafe.TxTCognome, Anagrafe.TxTNome, Tabprodotti.Prodotto, 
Tabprodotti.CodASL, Tabprodotti.CodEsenzione, Tabprodotti.[data_prox 
scadenza];
la funzione DateAdd dove la inserisco ??
considera che ho una  Frm_Scadenze che ha come origine la query di 
sopra...
Ciao 

 Ciao
la funzione la devi eseguire dopo che hai effettuato la stampa:
es.
'<-- qui, l'istruzione per eseguire la stampa
'--> aggiorno la [data_prox scadenza] aggiungendoci 30 giorni per tutti i 
record presenti in
'--> Tabprodotti  con IdAnagrafica = all'IdAnagrafica visualizzata sulla 
form
Currentdb.Execute "Update Tabprodotti Set [data_prox 
scadenza]=DateAdd('d',[data_prox scadenza],30);("d",date,30) Where 
IdAnagrafica=" & me!IdAnagrafica
Me.Requery '<-- aggiorno la form
Ciao.
-- 
Sergio MAZZA 

 Me.Requery '<-- aggiorno la form
----------------------------
scusami Sergio... ma non ho capito un bel nulla...!!
comincio a sentirmi leggermente scoraggiato...:-()
potresti magari dirmi una cosa alla volta parlando terra-terra ???
sempre se hai un pň di pazienza...
Ciao 

 sempre se hai un pò di pazienza...
Io sono qui fino alle 15:30.


 Cosa non ti è chiaro?
---------------------
Ok Sergio, arieccomi... in sostanza non mi è chiaro da dove devo 
cominciare...
cosa devo fare per primo...(sono una frana in Access :-(( ))
potresti spiegarmi terra-terra i passaggi come se li spiegassi ad un 
coccio ??
tipo aprire/creare  la tabella, la query, la maschera, etc. etc..
grazie 

 grazie
Partiamo dalla base; l'analisi del problema: aggiornare un campo dopo aver 
stampato un report (filtrato).
Come lo stampi il report? A mano dalla finestra database? Oppure tramite un 
bottone e quindi utilizzando codice VBA?
Lo fai a mano? Siamo in alto mare.
Lo fai col bottone? Siamo un passo avanti.
Visto che l'operazione: stampa -> aggiornamento campo deve essere 
trasparente all'utente, la faremo nell'evento "su clic" del bottone che 
manda in stampa.
Quindi, nell'evento "su clic" ci dovrà essere il codice VBA:
'--> apro il report e lo stampo (se annulli è un altro problema)
DoCmd.OpenReport "nomeReport",,,"stringa filtro"
'--> aggiorno la [data_prox scadenza] aggiungendoci 30 giorni per tutti i 
record presenti in
'--> Tabprodotti  con IdAnagrafica = all'IdAnagrafica visualizzata sulla 
form
Currentdb.Execute "Update Tabprodotti Set [data_prox 
scadenza]=DateAdd('d',[data_prox scadenza],30);("d",date,30) Where 
IdAnagrafica=" & me!IdAnagrafica
Me.Requery '<-- aggiorno la form
Che ho aggiunto? Nulla! Solo il ragionamento...
(ripeto) Il codice è un esempio, tu devi verificare che i nomi degli oggetti 
(tabelle/query/campi/etc. etc.) siano quelli che ti servono...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
Ciao Sergio... sono al Pc dalle 14.30... ora devo uscire a fare delle 
commissioni...
altrimenti la moglie mi spela vivo...
se posso riprendo + tardi altrimenti domani dal lavoro...
certo se non vuoi rispondermi + sei libero di farlo (non mi offenderei, 
hai molta pazienza..)
in quanto la cosa stà diventando lunga...
Ciao Giuseppe 

 Ciao Giuseppe
Ciao.
-- 
Sergio MAZZA