Newsgroup: it.comp.appl.access
Titolo: Animazione nelle form di Alex Baraldi

 NG buonasera!
 Ho scaricato il file "esempio di animazione nelle forms" sul sito di Alex
Baraldi
Ho dei problemi a realizzare la stessa animazione all'interno di una
maschera di un mio db
Allora ho copiato i file immagine nella stessa directory del db e ho
impostato così il comando4
 Private Sub Comando4_Click()
If Me!Comando4 = True Then
        Me.TimerInterval = 300
  Else
        Me.TimerInterval = 0
End If
..............
 Il comando in questione stampa un report da una query, e mi piacerebbe che
mentre il report viene
elaborato, partisse l'animazione.
Ho impostato anche l'evento timer così come nella demo proposta, ma non
funziona.
L'errore che incontro è : proprietà o metodo non supportati dell'oggetto in
corrispondenza di
Questa riga :  If Me!Comando4 = True Then
Il comando 4 risiede in una sottomaschera e all'interno della stessa ci sono
le immagini.
Ho provato anche con
If
me![Forms]![M_per_packing_list_2674]![ST_M_pck_list_2674].[Form]![comando4]
Ma non ci sono.
 Inoltre vorrei sapere se è possile inibire la barra di progressione che si
avvia mentre lanciata un query.
Grazie a chiunque mi aiuterà
Ciao

 ha scritto nel
messaggio news:cmtr33$a05$1...@lacerta.tiscalinet.it...

Ciao Sandro,
prova con
 If me.M_per_packing_list_2674.Form.comando4 = true then
Facci sapere!
Saluti
Cinzia

 ha scritto nel
messaggio news:cmtr33$a05$1...@lacerta.tiscalinet.it...

IF Me![ST_M_pck_list_2674]!Comando4=True then....
Perchè invece di usare nomi poco chiari come "COMANDO4" non
usi fin dall'inizio Nomi significativi...., ti aiuta in modo notevole
e non è solo un Vezzo di programmatori pignoli...!
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


Ciao Cinzia, Ciao Alex:
colgo il suggerimento al volo modifico immediatamente il nome del comando :
Però:
Alla soluzione di Alex
If Me![ST_M_pck_list_2674]!Pcklist = True Then
ho questo problema :
impossibile trovare il campo a cui fa riferimento l'espressione
Alla soluzione di Cinzia
If me.M_per_packing_list_2674.Form.pcklist= true then
 questo :
impossibile trovare il memro o i dati.
BOH?!
Gentilemente per piacere anche questo :


 If Me![ST_M_pck_list_2674]!Pcklist = True Then
Se "ST_M_pck_list_2674" č il Nome dell'Oggetto SubForm e
"Pcklist" č il nome del controllo inserito nella SubForm la sintassi č
corretta e deve funzionare.
Verifica la corretta scrittura o il corretto riferimento all'oggetto.
Ciao
-- 
@Alex (Alessandro Baraldi)


 Grazie , ciao
Non ricordo bene il Codice e non l'ho sott'occhio, ma sicuramente
si può fare anche con un CommandButton, l'unica accortezza è usare
una Variabile di Tipo Boolean a livello di Form e su Click del
CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
usare la variabile al posto del controllo interruttore.
Ciao.
@Alex 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Ciao Alex :
ho provato, ma ma non ci riesco proprio:
allora su apertura faccio questo per rendere invisibili le immagini :
Private Sub Form_Open(Cancel As Integer)
For s = 1 To 6
    Me.Controls("copia" & s).Visible = False
Next s
End Sub
questo su timer :
Private Sub Form_Timer()
If Me.flag = True Then
    If I > 0 Then
        Me.Controls("Copia" & I).Visible = False
        If I = 6 Then I = 0
        End If
    I = I + 1
    Me.Controls("Copia" & I).Visible = True
Else
    Me.TimerInterval = 0
End If
(flag č una casella di controllo)
su click per avviare l'animazione, ma
Private Sub Pcklist_Click()
....
Me.flag = True
Me.TimerInterval = 50
......
end sub
Cosě non ottengo alcuna animazione !
Dove sbaglio ??
Grazie Ciao Sandro

 Grazie Ciao Sandro
Hai chiesto di farlo con un CommandButton..... ora è diventato
una CheckBox....??
Che vuoi fare....??
Con la CheckBox:
Ti bastava COPIARE e sostituire il nome della sub
    Private Sub Animazione_Click()
con quello del tuo controllo CheckBox.
Il fatto è che l'esempio è talmente ridotto come codice che non c'è molto
da inventare....!!!


 Che vuoi fare....??
Lo voglio fare con un CommandButton, ma avevo capito dal
tuo post di stamattina che dovevo utilizzare una sorta ci controllo
aggiuntivo che a seconoda del suo valore,attivava l'animazione
da qui l'utilizzao della CheckBox
riprendo qui il tuo post:
l'unica accortezza č usare
 una Variabile di Tipo Boolean a livello di Form e su Click del
 CmdButton alternare il Valore con NOT NomeVariabile, e nell'evento timer
 usare la variabile al posto del controllo interruttore.
ho intrepretato il suggerimento cosě.
ho capito male allora ?


 ho capito male allora ?
Decisamente.
Una VAriabile di Tipo Boolean non è un Controllo CheckBox anche usando molta
fantasia.
Metti un CommandButton chiamato Animazione al posto dell'Interruttore.
e copia tutto questo codice al posto del precedente.
Option Compare Database
Option Explicit
Private I As Byte
Private flState as Boolean
Private Sub Animazione_Click()
  If flState = True Then
        Me.TimerInterval = 300
  Else
        Me.TimerInterval = 0
  End If
  flstate=not flState
End Sub
Private Sub Form_Timer()
  If I > 0 Then
        Me.Controls("Copia" & I).Visible = False
        If I = 6 Then I = 0
  End If
  I = I + 1
  Me.Controls("Copia" & I).Visible = True
End Sub


 Si puň gestire questa anche questa cosa ?
Stai dando troppa importanza all'estetica.....!!!
Non č possibile quello che chiedi poichč l'azione di Apertura Report
fa sospendere il codice nella Form, che riprende solo ad apertura ultimata.
