Newsgroup: it.comp.appl.access
Titolo: Apertura e chiusura popup

Salve a tutti avete presente quei popup che si aprono all'avvio di un prog.
shareware nei quali viene effettuato un countdown al termine del quale si
avvia il programma vero e proprio?
Beh stavo pensando di implementare una funzione simile solo che non so da
dove iniziare...qualcuno ha un idea.. ? Può essere una kikka da inserire nel
proprio progetto soprattutto se di prova.
Grazie a tutti CiAuZzzZ.

 Grazie a tutti CiAuZzzZ.
Un countdown basato su che... sul tempo trascorso? sul caricamento dati
tabelle? finto? per bellezza? per esigenza? a barre o a numeri che si
incrementano? di presentazione programma? di controllo versioni? che ti
serve?
-- 
Pablitomf
Chi la dura la vince ;-)
Voglia di lavorar Saltame addosso, lavora babbo mio che io non posso.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Crei la maschera popup e poi vai in Strumenti->Avvio->Visualizza 
maschera/pagina e scrivi il nome della maschera popup
Per quel che riguarda la maschera popup, puoi associare all'evento click 
sulla maschera o timer della maschera stessa, l'evento di chiusura di 
questa e di apertura di un altra. Es:
Private Sub Form_Click()
  DoCmd.OpenForm "MascheraPopUp"
  DoCmd.Close acForm, "MascheraPrincipale"
End Sub
Ciauz

--
'gnurant come una cucuzza
Inviato da 
www.mynewsgate.net

 
Ho invertito i nomi delle due maschere...ovviamente devi chiudere la 
maschera popup e aprire quella principale...sorry :o)
Ciauz


 ha scritto nel messaggio
news:zeukc.124188$hc5.5...@news3.tin.it...

Allora vediamo un pò....all'apertura della form "popup" comincerà un
countdown diciamo a partire da 10 ...una volta finito il countdown
(countdown o conto alla rovescia) automaticamente si chiuderà la finestra
popup per avviarsi un altra form "principale" quindi pablito il countdown fa
un pò tu se finto o se per bellezza (che poi è la stessa cosa) se per
esigenza (beh direi altrimenti che ci stà a fare) .
Spero di essere stato + chiaro.
CiAuZzZzz

 ha scritto nel messaggio
news:zeukc.124188$hc5.5...@news3.tin.it...

Su un sito tedesco ho trovato un codice VB che dovrebbe fare al caso mio
solo che non funge:
Option Explicit
Private nSek As Integer
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000   ' entspricht einer Sekunde
  ' Countdown  nSek = 10
  Label1.Caption = CStr(nSek)
End Sub
Private Sub Timer1_Timer()
  ' und wieder eine Sekunde vorbei
  nSek = nSek - 1
  Label1.Caption = CStr(nSek)
  ' Falls 10 Sekunden erreicht, Timer deaktivieren
  If nSek < 1 Then Timer1.Enabled = False
End Sub
fatemi sapere CiAuzZzzZ

 Grazie a tutti CiAuZzzZ.
Allora...
1. Creati la form
2. nel suo modulo:
    Private Sub Form_Open(Cancel As Integer)
        Me.TimerInterval = 3000
    End Sub
3000 č il tempo in millisecondi in cui la form resta aperta (3 secondi)
modifica il valore a tuo piacimento
    Private Sub Form_Timer()
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "nome form principale", acNormal
    End Sub
Ciao
-- 
«K@rLo»©

 «K@rLo»©
Grazie mille K@rLo mi sei stato di vero aiuto...un ultima cosa...nel caso
volessi far vedere (sempre nel popup) un countdown numerico ? Giusto per far
capire all'utente che passati tot secondi scomparirŕ quella finestra..
Grazie anticipatamente...CiAuZzZz


1.aggiungi una label (lblCountDown) alla form
2.dichiara nella sezione generale del modulo:
    Dim iCount as Integer
cambia la sub Form_open come sotto
     Private Sub Form_Open(Cancel As Integer)
         Me.TimerInterval = 1000
        iCount=5    'secondi che vuoi resti visualizzata
    End Sub
e form_timer cosě:
    Private Sub Form_Timer()
        iCount=iCount-1
        Me.lblCountDown.Caption=iCount
        if  iCount=0 then
             DoCmd.Close acForm, Me.Name
             DoCmd.OpenForm "nome form principale", acNormal
        End if
    End Sub
Questo potrevve essere un modo (ce ne sono anche altri) semplice
Ciao
-- 
«K@rLo»©