Bonjour à vous tous,
j'ai créé un programme avec ms access qui utilise des formulaires dans lesquels se trouvent des fichier swf.
ce programme s'ouvre automatiquement chaque jour et
depuis les dernières mise à jour de Windows 10
un message d'avertissement
"autoriser la lecture
je reconnais ce contenu"
bloque l’exécution du programme.
je n'arrive pas à voir ou dans office je peux autoriser le contenu flash player et shockwave pour éviter l'affichage de ce message.
merci d'avance à vous de m'aiguiller vers la solution de ce réel problème
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Option Compare Database Private Sub Form_Load() Dim hauteurecrvar As Long Dim largeurecrvar As Long If CurrentProject.AllForms!parametrefrm.IsLoaded Then largeurecrvar = forms!parametrefrm!LARGECRAN2 hauteurecrvar = forms!parametrefrm!HAUTECRAN2 Else largeurecrvar = 1600 hauteurecrvar = 900 End If ShockwaveFlash1.Height = 6700 / 1600 * largeurecrvar ' Forms!parametrefrm!LARGECRAN2 '6000 'rapport de 1.4224751067 ShockwaveFlash1.Width = 4710 / 900 * hauteurecrvar '4218 '4921 'Chargement du fichier .swf ShockwaveFlash1.Movie = forms!parametrefrm!cheminmontreswf 'Lecture ShockwaveFlash1.Play Me.TimerInterval = 1000 'Modifier le cadrage ShockwaveFlash1.ScaleMode = 1 End Sub '------------------- Private Sub Form_Open(Cancel As Integer) proResolution Me End Sub '------------------- Private Sub Form_Timer() Me.diap = diapoplay If Me.diap = True Then ShockwaveFlash1.Play If Me.diap = False Then ShockwaveFlash1.Stop End Sub
Partager