Newsgroup: it.comp.appl.access
Titolo: Stesso evento ogni 10 secondi

Salve a tutti e grazie  sempre per i preziosi consigli :)
Ho il seguente problema:
associato all'evento click ho il seguente codice:
Private Sub Comando4_Click()
Dim DATITR As String
Dim Cvstatus As String
DATITR = "
http://it.finance.yahoo.com/d/quotes.csv
"
CSVstatus = URLDownloadToFile(0, DATITR, "D:\TestEOD\Dati\quotes.csv", 0, 0)
dati = "D:\TestEOD\Dati\quotes.csv"
CurrentDb.Execute "DELETE * From TempTR"
DoCmd.TransferText acImportDelim, "Quotazioni", "TempTR", dati
DoCmd.OpenQuery "AccodaAQuotazioniTR"
CurrentDb.Execute "DELETE * From TempTR"
che funziona egregiamente,
vorrei mettere un "timer" per far eseguire questo codice ogni tot di tempo 
esempio 10 secondi, il massimo sarebbe avere una form con un tasto avvio; 
stop e un countdown "mancano 10 sec..9..8.."
penso che sia possibile in access, mi dite da dove iniziare ??
Grazie

 ha scritto nel messaggio 
news:s4Hth.5244$qN4.1...@twister1.libero.it...

Puoi iniziare impostando su una form l'intervallo di Timer a 1000
Nella Form inserisci una etichetta il cui nome deve essere Clock
Quindi Su Timer vai a scrivere:
Private Sub Form_Timer()
clock.Caption = Time
Dim pippo As String
pippo = Right(Time, 2)
End Sub
Ora sulla tua maschera vedrai il tempo e la variabile pippo sono i secondi
Quindi potresti scrivere la tua procedura cosě
Private Sub Form_Timer()
clock.Caption = Time
Dim pippo As String
pippo = Right(Time, 2)
If pippo="00" then
---- tua procedura---
End if
End Sub
Cosě viene richiamata ogni 60 secondi
Io per ora sono arrivata qui se prosegui fammi sapere
Ciao Sabrina

 ha scritto nel messaggio
news:s4Hth.5244$qN4.1...@twister1.libero.it...

Devi sfruttare l'evento timer delle form, magari una lanciata nascosta.
Sul sito comune ci dovrebbe essere qualche esempio bello pronto
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:QjHth.5266$qN4.1...@twister1.libero.it...

Grazie, ho creato una maschera Esempio, ed ho associato alla funzione Timer 
'MsgBox "OK" ,all'intervallo 2000 ed effettivamente mi compare il messaggio 
OK ogni due secondi. (buon inizio!). 

 ha scritto nel messaggio 
news:ep7ffl$n4c$1...@news.task.gda.pl...

Grazie, ho fatto la maschera e visualizzo l'ora, ora ci lavoro un po..poi ti 
faccio sapere

 Ciao Sabrina
Non dargli il pesce, insegnagli a pescare...
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:TdIth.5210$422....@twister2.libero.it...

 molte funzioni non ho neanche idea che esistono..... 


Sai come l'ho imparato access (pur avendo già basi di conoscenza dei
database relazionali) ?
Spulciamento e navigazione massiccia dell'help on line, consultazione degli
esempi, prove e tentativi.
Così impari veramente e ottieni qualche risultato un po' più sopra la
registrazioni dei compact disc...
Antonio

"Antonio Biso" <ch...@NOSPAMetruria.net> ha scritto nel messaggio 
news:NkJth.5436$qN4.1...@twister1.libero.it...

Sono d'accordissimo con te, dicevo solo che alcune funzioni non sapevo 
neanche esistessero.... 

 ha scritto nel messaggio
news:zrJth.5290$422....@twister2.libero.it...

E siamo allineati.
Come diceva quel saggio: "nessuno nasce imparato!"
Nel tuo caso, visto che parlavi di timer, se mettevi timer come parola
chiave nell'help on line, trovavi un mondo.
E' un po' come quando si fanno le ricerche con i motori di ricerca.
Fantasia...
Antonio