Newsgroup: it.comp.appl.access
Titolo: scadenze - messaggio automatico

ho un archivio di dipendenti, in questo archivio vi ho un campo data
"fine_servizio" in cui vi è segnata la data in cui un dipendente va in
pensione.
Vorrei, ogni volta che apro il DB, che mi si presenti una lista (report)
in cui tenendo conto della data attuale, mi compaiono i dipendenti che
stanno andando in pensione nel mese corrente o nel giorno corrente. Però,
se non vi è nessun dipendente che rispetti questa condizione, il report
non deve comparire.
come agisco????
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
creati una query e formatta il tuo campo "fine_servizio" come 
Mese = format([fine_servizio];"mmm") e nei criteri dello stessto lo poni =
a format(Date();"mmm") In questo modo avrai la lista di cui parli del mese
corrente.
Questa query la usi come origine dati del Form o del Report che creerai.
Per la visualizzazione del medesimo Form o Report esclusivamente se pieno,
basta, prima di aprirlo consultare la query...
nel senso che potrai fare in apertura del Form principale qualcosa del
tipo : If Not IsNull(DLookup("ID", "Tua_Query")) Then DoCmd.OpenForm
"Tua_Form", , , , , acDialog
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.


 grazie
La cosa è un pò articolata:
1)Devi far eseguire un controllo ad una Funzione Public in
  un Modulo su Macro AutoExec
Verifica la presenza dei Riferimenti DAO:
  Public Function VerificaPensionati() as boolean
     Dim rs     as DAO.Recordset
     Dim sSQL   as String
     sSQL="SELECT Count(*) AS Numero FORM NomeTabella " & _
          "WHERE Month([fine_servizio])=Month(Now())"
     set rs=CurrentDb.OpenRecordset(sSQL,dbreadOnly)
     If rs!Numero=0 Then
         MsgBox "Nessun Pensionamento nel Mese"
         'Apri la Maschera che ti serve
     Else
         'Apri la Maschera che mostra i Pensionati
     End IF
  End Function
Creati una Maschera con origine dati una Query:
SELECT * FROM Tab1 
WHERE Month([fine_servizio])=Month(Now())
ORDER BY [fine_servizio]
Ora se ti costruisci la Maschera in modalità Form Continue
hai la possibilità di usare la Formattazione condizionata
per differenziare a livello grafico 
i Pensionamenti Del GIORNO da quelli del mese evidenziando con COlore
personalizzato quei Records per i quali il Controllo TextBox
associato al campo [fine_servizio]=Fix(Now()) 
Studiati un pò la cosa e facci sapere.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


luigionofrio ha scritto:
[CUT]
Con tutto il rispetto per la soluzione postata da Ale, ma a questo punto
(hai ammesso una poca dimestichezza con certi aspetti di access) credo tu
faccia molto prima a seguire il mio consiglio.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 


 wrote in message
news:d3j0o3$660$
1...@news.newsland.it
[CUT]
Non voglio scoraggiarti, ma concordo con Maurizio.
Purtroppo quanto ti ho suggerito, pur essendo la soluzione
probabilmente più idonea, anche se da ritoccare per quanto
hai segnalato, richiede un minimo di Autonomia per l'uso
degli Oggetti e della programmazione.
La soluzione è sicuramente quella di invitarti a prendere confidenza
con Access e non solo con le AutoComposizioni al fine di
avere una comprensione più agevole del mondo VBA.
Nel frattempo quanto ti ha esposto Maurizio può tamponare
bene la tua esigenza.
Buon Lavoro.


 "Tua_Form", , , , , acDialog
la query che mi hai consigliato, come anche quella di alessandro mi filtra
le date con il mese attuale ma non tiene conto degli anni.
-- 
