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