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

pb access office XP ->access 97 : la version de visual - VB/VBA/VBS - Programmation

Marsh Posté le 19-11-2003 à 15:27:08    

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 :
  1. Private Sub Form_Current()
  2. On Error Resume Next
  3. Me![ImageControlName].Picture = Me![ImagePath]
  4. End Sub
  6. Private Sub ImagePath_AfterUpdate()
  7. On Error Resume Next
  8. Me![ImageControlName].Picture = Me![ImagePath]
  9. 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 :
  1. Option Compare Database
  2. Option Explicit
  3. Dim Fichier_Provisoire As String
  4. Dim Hauteur As Long
  5. Dim Largeur As Long
  7. Private Sub Form_Load()
  8. On Error Resume Next
  9.    DoCmd.Restore
  10.    Largeur = Me.Image1.Width
  11.    Hauteur = Me.Image1.Height
  12.    Commandeegal_Click
  13.    Me.Photo.SpecialEffect = 1
  14.    verrouiller_Click
  15. End Sub
  17. Private Sub Photo_AfterUpdate()
  18.    Rafraichir_Image
  19. End Sub
  22. //pour donner la possibiliter de cliquer sur le champ texte et qu'une boite parcourir s'ouvre
  23. Private Sub déverrouiller_Click()
  24.    Me.Photo.Locked = False
  25.    Me.Photo.BackColor = -2147483643
  26.    Me.Photo.SpecialEffect = 2
  27.    Me.Verrouiller.Enabled = True
  28.    Me.Verrouiller.SetFocus
  29.    Me.Déverrouiller.Enabled = False
  30. End Sub
  33. //pour empecher que le clique ouvre une boite parcourir:
  34. Private Sub verrouiller_Click()
  35.    Me.Photo.Locked = True
  36.    Me.Photo.BackColor = 14215660
  37.    Me.Photo.SpecialEffect = 1
  38.    Me.Déverrouiller.Enabled = True
  39.    Me.Déverrouiller.SetFocus
  40.    Me.Verrouiller.Enabled = False
  41. End Sub
  43. Private Sub Form_Current()
  44.    Rafraichir_Image
  45. End Sub
  47. Private Sub Photo_Click()
  48. On Error Resume Next
  49.    If Me.Photo.Locked Then Exit Sub
  50.     Fichier_Provisoire = ChoixDuFichier
  51.     If Fichier_Provisoire <> "" Then
  52.       Me.Photo = Fichier_Provisoire
  53.       Rafraichir_Image
  54.     End If
  55. End Sub
  58. Public Function ChoixDuFichier() As String
  59. ' choix par api
  60.     ChoixDuFichier = OpenFile(CurrentProject.Path)
  62. ' choix par activex commondialog
  63. '    On Error GoTo ChoixDuFichier_Err
  64. '    ChoixDuFichier = ""
  65. '    Dim Dialogue    As Object
  66. '    Set Dialogue = Me.Ctl_Dialogue
  67. '    Dialogue.ShowOpen
  68. '    ChoixDuFichier = Dialogue.filename
  69. '    Exit Function
  70. 'ChoixDuFichier_Err:
  71. '    If Err.Number <> 32755 Then
  72. '        MsgBox Err.Number & ": " & Err.Description
  73. '    End If
  74. End Function
  76. Private Sub Rafraichir_Image()
  77.    Me.Image1.Picture = ""
  78.    On Error Resume Next
  79.    Me.Image1.Picture = Me.Photo
  80.    Me.Image1.HyperlinkAddress = Me.Photo
  81. End Sub
  82. Private Sub Commandeegal_Click()
  83. Dim intWidth As Integer
  84. Dim intHeight As Integer
  85. With Me.Image1
  86.     intWidth = Largeur
  87.     intHeight = Hauteur
  88.     .Width = intWidth
  89.     .Height = intHeight
  90.     .SizeMode = acOLESizeZoom
  91. End With
  92. DoEvents
  93. End Sub
  96. //pour agrandir l'image
  97. Private Sub CommandePlus_Click()
  98. Dim intWidth As Integer
  99. Dim intHeight As Integer
  100. With Me.Image1
  101.     intWidth = .Width
  102.     intHeight = .Height
  103.     .Width = intWidth * 1.05
  104.     .Height = intHeight * 1.05
  105.     .SizeMode = acOLESizeZoom
  106. End With
  107. DoEvents
  108. End Sub
  111. //pour rétrécir l'image
  112. Private Sub CommandeMoins_Click()
  113. Dim intWidth As Integer
  114. Dim intHeight As Integer
  115. With Me.Image1
  116.     intWidth = .Width
  117.     intHeight = .Height
  119.     .Width = intWidth / 1.05
  120.     .Height = intHeight / 1.05
  121.     .SizeMode = acOLESizeZoom
  122. End With
  123. DoEvents
  124. End Sub


 

Reply

Marsh Posté le 19-11-2003 à 15:27:08   

Reply

Marsh Posté le 19-11-2003 à 17:19:00    

up

Reply

Marsh Posté le 19-11-2003 à 21:35:58    

up

Reply

Marsh Posté le 19-11-2003 à 23:38:38    

up c important...

Reply

Marsh Posté le 20-11-2003 à 10:20:31    

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

Reply

Marsh Posté le 20-11-2003 à 10:41:47    

quelle est la version de visual fournit avec access 97?

Reply

Marsh Posté le 20-11-2003 à 11:07:55    

fcoisb a écrit :

quelle est la version de visual fournit avec access 97?


 
97 aussi normalement [:spamafote]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed