Ce petit Programme permet d'envoyer des messages sur un réseau local via Net Send à partir d'ACCESS.
Source / Exemple :
Public Function SendMessage(sToUser As String, sFromUser As String, sBody As String) As Boolean
Dim abTo() As Byte, abFrom() As Byte, abBody() As Byte
abTo = sToUser & vbNullChar
abFrom = sFromUser & vbNullChar
abBody = sBody & vbNullChar
If NetMessageBufferSend(ByVal 0&, abTo(0), ByVal 0&, abBody(0), UBound(abBody)) = NERR_Success Then
SendMessage = True
Forms("net send").journal.Caption = "Le message a bien été envoyé"
Else
Forms("net send").journal.Caption = "Une erreur est survenue"
SendMessage = False
End If
End Function
Conclusion :
j'ai utilisé un module de clickpouf pour cacher la fenetre access et ne laisser visible que la fenetre de l'application.
(
http://www.vbfrance.com/codes/ACCESS-CACHER-FENETRE-PRINCIPALE-APPLICATION_18284.aspx)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.