Newsgroup: it.comp.appl.access
Titolo: Funzione sleep ed apertura maschera

Ciao
Quando lancio la routine di importazione, vorrei impostare una maschera
popup di attesa.
Il problema è che la maschera non riesce ad aprirsi nemmeno
Ho provato ad utilizzare sleep ma non va lo stesso perché la maschera popup
non si apre completamente e non visualizza il controllo di testo all'interno
"Attendere. Importazione in corso"
Come posso fare???
Ciao a tutti
--
Marco
mar...@TOGLIPIPPO.yahoo.it

 
mar...@TOGLIPIPPO.yahoo.it
io ho risolto il problema mettendo 
1 apertura maschera
2 questa procedura
Public Function Attesa5secondi()
Dim PauseTime, Start, Finish, TotalTime
PauseTime = 5   ' Imposta la durata.
    Start = Timer   ' Imposta l'ora di inizio.
    Do While Timer < Start + PauseTime
        DoEvents        ' Passa il controllo ad altri processi.
    Loop
End Function
3 lancio routine
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

"Marco" <Ma...@Marco.it> wrote in message
news:COH_a.242205$
lK4.7...@twister1.libero.it

Hai spostato il prioblema nel posto sbagliato.
Perchè non fai eseguire l'importazione dalla Form
di Attesa...???
Quando hai finito l'importazione abiliti il close.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:ef89bb2f2f8c8bfc4a...@mygate.mailgate.org...

Mi sorprendo a volte di come le cose possano essere complicate per uno e
banali per altri.
La tua soluzione è di una semplicità disarmante.
Grazie, provvedo subito
Marco

 Marco
E' proprio per questo che serve il confronto del NG.
Quando ci batti la testa sei troppo coinvolto dal problema.


 ha scritto nel messaggio
news:53057a18eb7086c189...@mygate.mailgate.org...

Non è tutto oro quello che luccica, purtroppo....
Semplice è semplice, ma non è funzionale e spiego perché:
L'importazione dovrebbe avvenire così:
1) pulsante di comando che apre la maschera di ricerca di Windows (quella di
Stefano Bettini sul SitoComune )
2) selezione del file da importare;
3) apertura del file da importare (in questo caso Excel)
4) controllo del valore di una cella con Msgbox all'utente per chiedere
conferma se si tratta proprio di quel file
5) Se conferma:
        a) apertura maschera "Attendere Prego! (Capisc' 'e Computér, Tu?)
        b)  excel opera delle trasformazioni, produce un txt, si chiude.
        c)  importa ed elimina il file di testo
        d) chiusura maschera "Attendere Prego!" e MsgBox  "Che culo! E'
andato tutto bene"
    else chiude tutto.
Il problema è che se sposto una parte di codice nella maschera "Attendere
Prego!" mi da errore in quanto Excel viene aperto in un'altra maschera. Ho
provato anche a mettere in un modulo
Public ExcelApp as Escel.APplication
ma senza risultato.
Il mio problema è solo che la maschera attendere non ha nemmeno il tempo di
visualizzare l'etichetta "Attendere, importazione in corso" che subito parte
la clessidra, vanificando l'utilità della maschera, anzi facendo sembrare
che si è bloccato (il che è peggio).
Devo rinunciare o ci sono altre strade?
Ciao
Marco

 Semplice è semplice, ma non è funzionale e spiego perché:
[CUT]
Non ho guardato la soluzione di Bettini, ma se funziona
che venga eseguita nella sua Routine o in una Routine della
tua Form non ci sono differenze, è chiaro che andrà adattata
alla tua esigenza, e quì occorre mettere mano al suo codice...!
Quello che luccica può addirittura essere PLATINO...!


 ha scritto nel messaggio
news:b3d32bcabf3f440522...@mygate.mailgate.org...

La soluzione funziona, ma io mi riferivo al problema di Excel che dovrei
aprire e chiudere due volte, una per estrarre il campo di conferma e l'altra
per procedere alle modifiche.
Poi, ho anche iniziato a provare, ma la maschera non finisce nemmeno qui di
caricarsi che già compare la clessidra.
Marco

Marco <Ma...@Marco.it> wrote in message
COH_a.242205$lK4.7...@twister1.libero.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Forms fai il download
del database di esempi allegato alla FAQ intitolata "Esempi di utilizzo
delle forms".
Apri il database scaricato e seleziona il Topic intitolato How to Create a
"Please Wait" message.
Premendo il pulsante di comando Show Example ti verrà mostrato un esempio di
quello che ti serve.
Maggiori dettagli di come è stato realizzato l'esempio li trovi nel link
http://support.microsoft.com/support/kb/articles/Q96/9/9.asp?PR=ACC
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:lzN_a.242748$lK4.7...@twister1.libero.it...

Grazie Roberto
andrò a vedere
Ciao



Ciao Roberto, ti volevo segnalare che il link all'FTP Microsoft non mi porta
a nulla.
L'ho trovato invece all'indirizzo:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com
:
80/support/kb/articles/Q175/0/66.ASP&NoWebContent=1
Ciao

"Marco" <Ma...@Marco.it> ha scritto nel messaggio
news:COH_a.242205$lK4.7...@twister1.libero.it...

Grazie al FRMSMP97.EXE scaricato su suggerimento di Roberto ho risolto.
Il problema era che la maschera non aveva il tempo di caricarsi
completamente (e visualizzare il messaggio di attesa)
prima che partisse tutta la routine di importazione.
La soluzione sta nell'aggiungere, dopo la riga di apertura maschera di
attesa la seguente riga:
DoCmd.RepaintObject acForm, "NOMEMASCHERA"
Saluti a tutti e buon Ferragosto
Marco