Newsgroup: it.comp.appl.access
Titolo: Query programmata

Ciao a tutti,
secondo voi è possibile lanciare una query in automatico un giorno
prestabilito per esempio lunedì mattina che riporti poi i risultati della
query in una tabella?
Mi spiego meglio:
Io avrei bisogno che in automatico il sistema mi conti quante attività ho da
svolgere e mi riporti questo dato in una tabella per creare delle
statistiche.
Ad oggi la query è associata ad un report.
Secondo voi è possibile?
Andrebbe bene anche se la query partisse la prima volta di ogni giorno che
apro il db riportando però i risultati riferiti alla prima apertura del db
senza aggiornarlo ad ogni apertura.
Grazie a tutti
Luca
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio news:213Z215Z179Z170...@usenet.libero.it...

si è possibile...
ovvio che il programma deve essere già aperto
poi inserisci una maschera con timer che controlla la data ogni tot secondi
controlli quella data (guarda sulla guida weekday) che giorno è e se soddisfa tutte le tue opzioni lanci query e report...
esempio di controllo:
public controllo as boolean 'da inserire in un modulo generale o un modulo di form che resti aperto
all'apertura del db lanci da qualche parte
controllo = false
nella maschera con timer metti
if controllo = false then
    if weekday(date) = vbmonday then
        docmd.openquery "nomequery"
        docmd.openreport "nomereport",,acviewprevie
        controllo = true
    end if
end if
dovrebbe funzionare..
ciao
Nick


MAssimiliano

 Luca
Per la prima soluzione chiedi maggiori informazioni sulla creazione e
pianificazione dello script vbs.
Per la seconda puoi usare una sub che venga eseguita ad ogni apertura,
lanci la query di aggiornamento e poi aggiorni un campo data in una
tabella con la data dell'ultimo aggiornamento delle statistiche.
Quando parte la sub come prima cosa controlla la data dell'ultimo
aggiornamento, e se è uguale alla data odierna esce senza fare niente
altrimenti aggiorna i dati.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio news:lTCXc.12615$B06....@news.edisontel.com...

fin qui non arrivo ;)
ciao
Nick

"Nick" <senz...@chiedetesul.NG> ha scritto nel
messaggio
news:6iDXc.66253$OH4.1...@twister1.libero.it...

Se Karl è l'archivio "on liVe " delle knowledge di
M$, io posso essere quello di icaa.
Di Giorgio rancati e Sergio MAZZA
Dim DbEng    'DbEndine DAO 3.6
Dim Db          'Database Dao
Dim Rs           'Recordset Dao
Set DbEng = CreateObject("DAO.DBengine.36")
Set Db =
DbEng.OpenDatabase("C:\Documenti\calcologiorni.Mdb
")
Set Rs = Db.OpenRecordset("Select * From Scadenze
Where Scadenza=" &
Clng(date))
If Rs.bof=false Then
   MsgBox "Attenzione rilevate scadenze in data "
& Date
 End If
Rs.Close
Db.Close
Set Rs = Nothing
Set Db = Nothing
Set DbEng = Nothing
ciao
MAssimiliano


ma questo lo lanci daun altro db di access?
o la sintassi dei vbs è uguale?
e come lo creo il vbs?
scusami ma non li conosco proprio... (forse è meglio aprire un nuovo post?)
ciao
Nick


grazie a tutti per aver risposto....
purtroppo non conosco moltissimo access e ho qualche dubbio.
Teniamo buona la seconda possibilità...che mi sembra + semplice da
realizzare:
Nella maschera di apertura chiamata "HOME" ad ogni apertura lancio una query
chiamata "Statistiche" per riportare nella tabella chiamata "risutlati" i
dati della query.
come faccio poi a inserire il controllo per l'aggiornamento dei dati?
Se qualcuno a tempo e voglia sarebbe così gentile da magari spiegarmi
qualche passaggio in più.
Grazie ancora a tutti
Luca
PS: piano piano sto imparando...


"Nick" <senz...@chiedetesul.NG> ha scritto nel
messaggio
news:pBDXc.66417$OH4.1...@twister1.libero.it...

L'istruzione è gia per il vbs.
Apri Notepad copiaci dentro il tutto e dopo
rinominalo con l'estensione vbs
L'iconcina cambierà con un foglio con dentro una
spirale
MAssimiliano

 PS: piano piano sto imparando...
Fai una tabella chiamata opzioni, mettici un campo ultimo_aggiornamento di
tipo data e inserisci un solo record vuoto o con una data vecchia come
01/08/2004.
Nel codice dovrai leggere quella data, se è antecedente alla data corrente
vorrà dire che quel giorno non è ancora stato fatto l'aggiornamento quindi
lanci la query e poi scrivi in tabella la data corrente nel campo
ultimo_aggiornamento.
Aggio=nz(dlookup("ultimo_aggiornamento","opzioni"))
if date()-aggio>0 then
  docmd.openquery("aggiorna le statistiche")
  SQL="UPDATE opzioni SET ultimo_aggiornamento=#" & _
      format(date(),"mm/dd/yyyy") & "#;"
  currentdb.execute SQL
end if
