Discussion :

[2nis]

Est-il possible d'ouvrir 1 tiroir caisse depuis une appli. Access ?

[mcdotta]

La réponse, tu t'en doute est oui....

Comment ?

Aucune idée, mais je pense que tu dois envoyer une séquence ESC a un port précis ou quelque chose comme ca.

[2nis]

Merci,
pour le reste, je suppose que j'aurai plus d'infos avec le manuel du tiroir?

Il me restera encore à apprendre comment communiquer avec 1 port en VB

[marot_r]

Ceci est une suggestion :

Pour communiquer avec un port regarde si tu peux faire un

Open "COM1:" for Binary as monNumeroDeFichier.

C'est une vielle méthode pour accéder aux port série (ici Com1) d'un système.

A+

[pierreca]

j'ai une application access qui a ouvert quelque milliers de fois le tiroir caisse (toutes les deux/trois minutes depuis plusieurs années)

j'ai "fauché" le composant mscom dans visual basic pour piloter le port serie
il faut enplus récuperer msadodc.ocx
je l'ai installé dans un formulaire que j'ai appelé rs232

' utilisation du composant MSComm (recupere dans Visual Basic) que j'ai appelé rs232

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
 
DoCmd.OpenForm "rs232"
[Forms]![RS232].no_port = 2
[Forms]![RS232].RS232.CommPort = 2
[Forms]![RS232].RS232.Settings = "9600,N,8,1"
[Forms]![RS232].RS232.PortOpen = True
 
j'envoi ensuite une sequence escape
' ouverture tiroir
[Forms]![RS232].envoi = Chr(27) & Chr(112) & Chr(0) & Chr(30) & Chr(10)
[Forms]![RS232].envoi_rs232
DoCmd.close acform,"rs232"
 
attention tous les tiroirs caisse n'ont peut_etre pas la meme sequence escape pour s'ouvrir
 
Public Sub envoi_rs232()
If IsNull(Me.envoi) Then
Exit Sub
End If
If Len(Me.envoi) = 0 Then
Exit Sub
End If
Me.RS232.Output = CStr(Me.envoi)
 
End Sub

remarque: j'utilise le meme composant pour piloter l'imprimante ticket