Alex
Il collegamento alla Gif viene effettuato su load della maschera e le gif risiedono sul PC
Codice:
Me.WebBrw1.ControlSource = "=""" & CurrentProject.Path & "\gif\Bar.gif" & """"
il codice che si scatena su Timer 2000 è questo:
Private Sub Form_Timer()
On Error GoTo GestErr
Dim strSQL As String
Dim rs As DAO.Recordset
strSQL = "SELECT NomeTabella "
strSQL = strSQL & "FROM Bk_ListaTabelle IN '" & StrPathSource & "'"
Set rs = DBEngine(0)(0).OpenRecordset(strSQL)
If rs.EOF Then GoTo Exit_Here
rs.MoveFirst
Do Until rs.EOF
DoCmd.SetWarnings False
DoCmd.CopyObject strPathArrivo, rs!NomeTabella, acTable, rs!NomeTabella
' DoCmd.TransferDatabase acExport, "Microsoft Access", strPathArrivo, acTable, rs!NomeTabella, rs!NomeTabella, False
DoCmd.SetWarnings True
rs.MoveNext
Loop
DoCmd.RunSQL "UPDATE Bk_T_Backup SET Bk_T_Backup.Data = Date(), Bk_T_Backup.Ora = Now() WHERE (((Bk_T_Backup.Idgg)=[Maschere]![Bk2_BackupAttendi]![Ngg]));", -1
DoCmd.Close acForm, "Bk2_BackupAttendi"
Exit_Here:
On Error Resume Next
rs.Close
Set rs = Nothing
GestErr:
If Err.Number <> 0 Then
MsgBox "Errore N° " & Err.Number & vbNewLine & Err.Description
Resume Next
End If
GoTo fine:
fine:
Con queste impostazioni succede:
1 Si apre la form la gif funziona
2 (dopo time 2000) si scatena il codice su timer ma si blocca la Gif
Temo che mi devo arrendere.
Ho provato anche con un "accrocchio" che descrivo :
Apertura con 2 forms una Hidden che esegue il trasferimento dati
l'altra visibile con la gif
Ambedue scatenano l'evento su Timer dopo lo stesso tempo,risultato:
Maschera con gif bloccata fino ad esecuzione trasferimento.