J'arrive au terme du développement d'une application sous Access et je
rencontre un big problème :
Je dois afficher sur un "Afficheur client", la somme d'un ticket de caisse.
Cet afficheur client est de marque Epson et est relié au PC via le port
COM2.
Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau de
code VB (et non pas VBA) qui est le suivant:
>
MSComm1.PortOpen = True
MSComm1.Output = Chr(12) ' Clear the pole
MSComm1.Output = Line1 ' Display the first line of output
MSComm1.Output = Chr(10) ' Go to the next line
MSComm1.Output = Chr(13) ' Move to the beginning of the line
MSComm1.Output = Line2 ' Display the second line of input
MSComm1.PortOpen = False
>
Malheureusement, même si Access accepte de le compiler, il bug lors de
son exécution.
Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir de
ce mauvais pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Arnaud [lwa]
Bonjour, Pour envoyer une information sur le port série 2, essayer la syntaxe suivante :
Open "COM2:" For Binary As #1 Put #1, , "ce que tu veux" Close #1
ça marche ? a+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour Bernard_Michel,
| Bonjour ! | | J'arrive au terme du développement d'une application sous Access et je | rencontre un big problème : | | Je dois afficher sur un "Afficheur client", la somme d'un ticket de | caisse. Cet afficheur client est de marque Epson et est relié au PC | via le port COM2. | | Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau | de code VB (et non pas VBA) qui est le suivant: | | > | MSComm1.PortOpen = True | | MSComm1.Output = Chr(12) ' Clear the pole | MSComm1.Output = Line1 ' Display the first line of output | MSComm1.Output = Chr(10) ' Go to the next line | MSComm1.Output = Chr(13) ' Move to the beginning of the line | MSComm1.Output = Line2 ' Display the second line of input | | MSComm1.PortOpen = False | > | | Malheureusement, même si Access accepte de le compiler, il bug lors de | son exécution. | | Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir | de ce mauvais pas. | | Bernard.
Bonjour,
Pour envoyer une information sur le port série 2, essayer la syntaxe suivante :
Open "COM2:" For Binary As #1
Put #1, , "ce que tu veux"
Close #1
ça marche ?
a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour Bernard_Michel,
| Bonjour !
|
| J'arrive au terme du développement d'une application sous Access et je
| rencontre un big problème :
|
| Je dois afficher sur un "Afficheur client", la somme d'un ticket de
| caisse. Cet afficheur client est de marque Epson et est relié au PC
| via le port COM2.
|
| Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau
| de code VB (et non pas VBA) qui est le suivant:
|
| >
| MSComm1.PortOpen = True
|
| MSComm1.Output = Chr(12) ' Clear the pole
| MSComm1.Output = Line1 ' Display the first line of output
| MSComm1.Output = Chr(10) ' Go to the next line
| MSComm1.Output = Chr(13) ' Move to the beginning of the line
| MSComm1.Output = Line2 ' Display the second line of input
|
| MSComm1.PortOpen = False
| >
|
| Malheureusement, même si Access accepte de le compiler, il bug lors de
| son exécution.
|
| Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir
| de ce mauvais pas.
|
| Bernard.
Bonjour, Pour envoyer une information sur le port série 2, essayer la syntaxe suivante :
Open "COM2:" For Binary As #1 Put #1, , "ce que tu veux" Close #1
ça marche ? a+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour Bernard_Michel,
| Bonjour ! | | J'arrive au terme du développement d'une application sous Access et je | rencontre un big problème : | | Je dois afficher sur un "Afficheur client", la somme d'un ticket de | caisse. Cet afficheur client est de marque Epson et est relié au PC | via le port COM2. | | Le seul code que j'ai réussi à trouver jusqu'à présent est un morceau | de code VB (et non pas VBA) qui est le suivant: | | > | MSComm1.PortOpen = True | | MSComm1.Output = Chr(12) ' Clear the pole | MSComm1.Output = Line1 ' Display the first line of output | MSComm1.Output = Chr(10) ' Go to the next line | MSComm1.Output = Chr(13) ' Move to the beginning of the line | MSComm1.Output = Line2 ' Display the second line of input | | MSComm1.PortOpen = False | > | | Malheureusement, même si Access accepte de le compiler, il bug lors de | son exécution. | | Mille mercis d'avance à celle ou celui qui pourra m'aider à me sortir | de ce mauvais pas. | | Bernard.