Bonjour, je rencontre un problème pour migrer une application ACCESS compilée sous la version 2003 qui tournait sous Windows XP vers la version 2010 sous Windows Seven. Il s'agit d'une application de scannage en masse de document (GED). Ni le .mde 2003 ni le .mde 2010 ne permettent d'afficher les images (.TIF) des documents scannés sur le poste en windows 7 . Aucune erreur ne s'affiche. Il ne se passe tout simplement rien. Le formulaire reste à blanc pour la partie image, le reste (texte, boutons...) s'affiche normalement . Quelqu'un a t-il des pistes de solution à proposer ? Merci d'avance.
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 ' =================================== ' Si des images dans le répertoire, parcourt des lignes du tableau Tab_CheminImg() ' pour chaque ligne I, l'image I est chargée dans le formulaire ' limite d'affichage fixé par nbre_imagemax If Me.TxtPasimages.Visible = False Then For indice_tableau = PremiereImage To UBound(Tab_CheminImg) Me.Controls("Img" & indice_image).Picture = Tab_CheminImg(indice_tableau) Me.Controls("Img" & indice_image).Visible = True Nomfichier = ExtraitRangfichier(Tab_CheminImg(indice_tableau)) Me.Controls("Txt" & indice_image & "_inv").Value = Tab_CheminImg(indice_tableau) Me.Controls("Txt" & indice_image & "_inv").Visible = False Me.Controls("Txt" & indice_image).Value = Nomfichier Me.Controls("Txt" & indice_image).Visible = True ' Me.Controls("BtnSup" & indice_image).Visible = True Me.Controls("BtnSup" & indice_image).OnClick = "=supprimer_image(" & Chr(34) & Tab_CheminImg(indice_tableau) & Chr(34) & ")"
Partager