pb access office XP ->access 97 : la version de visual

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb access office XP ->access 97 : la version de visual

fcoisb

go ! go ! go !

Je vous explique.
J'utilise sous office xp et windows xp un formulaire pour aller chercher une image dans le disque dur et puis aussi pouvoir l'afficher ( différent pour chaque enregistrement et stocké dans un champ texte)

Comme il faut que ça marche sous access 97, je me suis dit bon, je vais faire une simple conversion de la base de données.

Au moment d'essayer (dans une boite informatique)
Malheur, y'a un problème avec le code visual basic qui dit que ça utilise une version trop vielle..

mon code dans ma base de données:

pour afficher l'image à partir du champ texte:

Code :

Private Sub Form_Current()
On Error Resume Next
Me![ImageControlName].Picture = Me![ImagePath]
End Sub
Private Sub ImagePath_AfterUpdate()
On Error Resume Next
Me![ImageControlName].Picture = Me![ImagePath]
End Sub

Et ça c'était avec le controle active x pour ouvrir une boite parcourir et d'afficher également l'image :
(ça vient de [url] http://access.seneque.free.fr/telecharger/images.zip[/url]

Code :

Option Compare Database
Option Explicit
Dim Fichier_Provisoire As String
Dim Hauteur As Long
Dim Largeur As Long
Private Sub Form_Load()
On Error Resume Next
DoCmd.Restore
Largeur = Me.Image1.Width
Hauteur = Me.Image1.Height
Commandeegal_Click
Me.Photo.SpecialEffect = 1
verrouiller_Click
End Sub
Private Sub Photo_AfterUpdate()
Rafraichir_Image
End Sub
//pour donner la possibiliter de cliquer sur le champ texte et qu'une boite parcourir s'ouvre
Private Sub déverrouiller_Click()
Me.Photo.Locked = False
Me.Photo.BackColor = -2147483643
Me.Photo.SpecialEffect = 2
Me.Verrouiller.Enabled = True
Me.Verrouiller.SetFocus
Me.Déverrouiller.Enabled = False
End Sub
//pour empecher que le clique ouvre une boite parcourir:
Private Sub verrouiller_Click()
Me.Photo.Locked = True
Me.Photo.BackColor = 14215660
Me.Photo.SpecialEffect = 1
Me.Déverrouiller.Enabled = True
Me.Déverrouiller.SetFocus
Me.Verrouiller.Enabled = False
End Sub
Private Sub Form_Current()
Rafraichir_Image
End Sub
Private Sub Photo_Click()
On Error Resume Next
If Me.Photo.Locked Then Exit Sub
Fichier_Provisoire = ChoixDuFichier
If Fichier_Provisoire <> "" Then
Me.Photo = Fichier_Provisoire
Rafraichir_Image
End If
End Sub
Public Function ChoixDuFichier() As String
' choix par api
ChoixDuFichier = OpenFile(CurrentProject.Path)
' choix par activex commondialog
' On Error GoTo ChoixDuFichier_Err
' ChoixDuFichier = ""
' Dim Dialogue As Object
' Set Dialogue = Me.Ctl_Dialogue
' Dialogue.ShowOpen
' ChoixDuFichier = Dialogue.filename
' Exit Function
'ChoixDuFichier_Err:
' If Err.Number <> 32755 Then
' MsgBox Err.Number & ": " & Err.Description
' End If
End Function
Private Sub Rafraichir_Image()
Me.Image1.Picture = ""
On Error Resume Next
Me.Image1.Picture = Me.Photo
Me.Image1.HyperlinkAddress = Me.Photo
End Sub
Private Sub Commandeegal_Click()
Dim intWidth As Integer
Dim intHeight As Integer
With Me.Image1
intWidth = Largeur
intHeight = Hauteur
.Width = intWidth
.Height = intHeight
.SizeMode = acOLESizeZoom
End With
DoEvents
End Sub
//pour agrandir l'image
Private Sub CommandePlus_Click()
Dim intWidth As Integer
Dim intHeight As Integer
With Me.Image1
intWidth = .Width
intHeight = .Height
.Width = intWidth * 1.05
.Height = intHeight * 1.05
.SizeMode = acOLESizeZoom
End With
DoEvents
End Sub
//pour rétrécir l'image
Private Sub CommandeMoins_Click()
Dim intWidth As Integer
Dim intHeight As Integer
With Me.Image1
intWidth = .Width
intHeight = .Height
.Width = intWidth / 1.05
.Height = intHeight / 1.05
.SizeMode = acOLESizeZoom
End With
DoEvents
End Sub

Publicité

fcoisb

go ! go ! go !

fcoisb

go ! go ! go !

fcoisb

go ! go ! go !

up c important...

fcoisb

go ! go ! go !

il me semble qu'il avait bloqué déjà la :
OpenFile(CurrentProject.Path) sur currentproject...

fcoisb

go ! go ! go !

quelle est la version de visual fournit avec access 97?

walli

fcoisb a écrit :

quelle est la version de visual fournit avec access 97?

97 aussi normalement [:spamafote]

FORUM HardWare.fr

Programmation

VB/VBA/VBS

pb access office XP ->access 97 : la version de visual

Sujets relatifs
données access -> excel -> access possible sans pertes de données?	[ACCESS 97] modfifier cardinalité
[access] erreur MsgBox	[resolu] [Access] connaitre le nom de la bd active
[Access/ADO/SQL Server] Lancer des Access Reports basés sur SQLServer?	Visual C++ difference entre mode debug et exec
ariver vous a dl la version démo de BorlandC#	[Access] Peut on interfacer access et un domaine?
[CMD] remplacer un fichier par une version plus ancienne ?	Utilisation d'une base de données Access ?
Plus de sujets relatifs à : pb access office XP ->access 97 : la version de visual

Page générée en 0.078 secondes