Pilotage scanner et stockage d'image dans Access ? [Access] - VB/VBA/VBS - Programmation
Marsh Posté le 22-04-2007 à 09:48:21
En insérant ce code comme procédure sur un bouton, on ouvre l'assistant de scanner ou on ouvre l'image dont on a stocké l'adresse dans la zone texte [AdresseImage] faisant référence au champ de la table
Private Sub Image_Click()
On Error GoTo Err_Image_Click
Dim stAppName As String
If IsNull(Me![AdresseImage]) Then
stAppName = "wiaacmgr.exe" 'Choisi l'application
msgbox ("Nommer l'image:" & Me![N°Appareil])'Rentrer manuellement un N°
Call Shell(stAppName, 1) 'Lance l'application
Me!AdresseImage = "G:\SCANNER\" & Me![N°Appareil] & ".jpg"
Else
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe " & Me![AdresseImage]
Call Shell(stAppName, 1) 'Affiche l'image dans Internet Explorer
End If
Exit_Image_Click:
Exit Sub
Err_Image_Click:
msgbox Err.Description
Resume Exit_Image_Click
End Sub
Je cherche à améliorer mais voici ou j'en suis.
Marsh Posté le 29-05-2008 à 15:25:09
je pense que ton programme ne marche pas sur exel est que c'est vlabale dans tous l'office, car je n'ai pas d'access pour pouvoir t'aider
Marsh Posté le 30-05-2008 à 19:17:23
rayanekoeuralbi a écrit : je pense que ton programme ne marche pas sur exel est que c'est vlabale dans tous l'office, car je n'ai pas d'access pour pouvoir t'aider |
personne ne réponds allez un peu de courage on y arrive
Marsh Posté le 10-03-2007 à 11:54:41
Bonjour.
J'ai une petite appli à faire avec Access. J'ai besoin de stoquer des images de documents scannés, et cela sans que cela soit compliqué à l'utilisation (utilisateur cible non informaticien).
Mon idée est d'avoir un formulaire avec un bouton, quand je clique dessus cela permet de scanner et stoquer le résultat (dans la BDD ou en fichier), et ensuite de pouvoir visualiser / imprimer l'image toujours depuis l'applis access.
Si vous avez des tuyaux pour arriver à ce résultat ou pour s'en approcher...