Discussion :

[ClaudeLELOUP]

Bonjour,
Au comptoir en face du client, je voudrais présenter à l’écran, un formulaire reprenant les caractéristiques de sa commande.
Dans un champ je voudrais la saisie digitale de la signature manuscrite du client pour marquer son accord.

Quelqu’un a-t-il une expérience dans ce domaine ?
Peut-il m’orienter pour le choix d'un périphérique (petit budget) ?
Est-ce « réalisable » ? (sans être informaticien, je me sens relativement à l’aise avec Access)

[Dolphy35]

Salut,

Bonjour,
Au comptoir en face du client, je voudrais présenter à l’écran, un formulaire reprenant les caractéristiques de sa commande.
Dans un champ je voudrais la saisie digitale de la signature manuscrite du client pour marquer son accord.

Quelqu’un a-t-il une expérience dans ce domaine ?
Peut-il m’orienter pour le choix d'un périphérique (petit budget) ?
Est-ce « réalisable » ? (sans être informaticien, je me sens relativement à l’aise avec Access)

Sacré projet. je n'ai aucune expérience dans ce domaine mais à mon avis il te faudra une tablette PC, ensuite tout dépend comme les infos sont capter par le PC, source TWAIN ou autre.
Je ne vois pas comment capter une signature manuscrite autrement.

Tiens nous au courant

Dolphy

[ClaudeLELOUP]

Merci pour ce message.
Je reviens si je trouve une solution élégante.
Bonne journée.

[ClaudeLELOUP]

Bonjour à tous,
Voici comment je m'y suis pris.
L’idée
-une tablette bas de gamme: 40 € (on peut facilement trouver plus cher)
-la signature relative à chaque bon est stockée dans un fichier « N°.bmp » (dans un sous-répertoire « signatures »)
-la signature est recueillie dans MsPaint via la tablette
-le formulaire « bon de commande » contient l’image liée (N°.bmp ad hoc) et un bouton « signer »

Les étapes
-le bon de commande est complété à l’écran
-click sur le bouton « signer »
-Access crée un fichier N°.bmp avec la N° du bon de commande (copie de PourSigner.bmp qui est une page blanche)
-Access ouvre et cède la main à MsPaint qui s’ouvre avec la page blanche
-le client signe sur la tablette
-Crt+S (pour sauver l’image de la signature) ; Alt + F4 (pour sortir de MsPaint)
-Access reprend la main
-le formulaire revient à l’écran et l’image de la signature apparaît

code du bouton "signer"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Signer_Click()
Dim CheminSignature, CheminModèle
Dim fso As FileSystemObject
Dim lhProcess As Long
Dim lProcessID As Long
Dim lpExitCode As Long
Dim ExPgm
If Me.Montant = 0 Then
MsgBox "Le montant est à zéro", vbCritical
Exit Sub
End If
Me.Signature.Picture = "(aucune)"
'copier le modèle
Set fso = New FileSystemObject
CheminModèle = CurrentProject.Path & "\IMAGES\PourSigner.bmp"
CheminSignature = CurrentProject.Path & "\SIGNATURES\" & Me.N° & ".bmp"
fso.CopyFile CheminModèle, CheminSignature
Set fso = Nothing
'Ouvrir MsPaint et contrôler sa fin
'--(code récupéré dans FAQ)--------
    lProcessID = Shell("mspaint.exe " & CheminSignature, vbMaximizedFocus)
'Ouverture d'un processus sur le programme ouvert + récupération du handle du processus
    'La récupération du handle est nécessaire pour obtenir des informations sur celui-ci
    lhProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, lProcessID)
    'Boucle tant que la variable lpExitCode <> STATUS_PENDING (&H103&)
    Do
        'Récupération du code de sortie du processus
            'Si programme ouvert -> la variable lpExitCode = STATUS_PENDING
            'Sinon -> la variable lpExitCode = 0. Donc fin de la boucle
        Call GetExitCodeProcess(lhProcess, lpExitCode)
        DoEvents 
    Loop While lpExitCode = STATUS_PENDING
    Call CloseHandle(lhProcess) 'Ferme le handle du processus
'Mettre le formulaire à jour
Me.Signature.Picture = CheminSignature
End Sub

code du formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Current()
On Error GoTo GestionErreur
'si nouvel enregistrement
If IsNull(Me.IDENTIFICATION) Then
   Me.Signature.Picture = "(aucune)"
   Exit Sub
End If
'montrer Bouton A payer si vente à crédit
If Me.ModeDePaiement = "A crédit" Then
   Me.Signer.Visible = True
Else
   Me.Signer.Visible = False
End If
'aménagement de la signature
Me.Signature.Picture = CurrentProject.Path & "\SIGNATURES\" _
                                           & Me.N° & ".bmp"
Exit Sub
GestionErreur:
Select Case err.Number
Case 2220 'la signature n'existe pas
Me.Signature.Picture = "(aucune)"
Case Else
MsgBox "erreur : " & err.Number & err.Description
End Select
End Sub

Bien à vous.

[Dolphy35]

Salut,

à toi de nous donner la suite de tes recherches et merci d'avoir posée ta réponse.

Bonne continuation

Dolphy