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...