Qui est connecté a vos base access ( ldb )

Soyez le premier à donner votre avis sur cette source.

Vue 14 921 fois - Téléchargée 2 017 fois

Description

Ce Petit Programme utilise le .LDB ( Creer automatiquement et Obligatoirement lorsque quelqu'un consulte un .MDB )
Permet ensuite l' envoie d'un Message Net Send à un PC.....

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

codaxlogin
Messages postés
1
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
15 novembre 2008
-
Excellent utilitaire
Grand bravo
Note : 10/10

suggestion : Pouvoir forcer la déconnexion de tous les utilisateurs

De toute façon encore merci pour sa mise en ligne
GERONIMO99
Messages postés
5
Date d'inscription
mardi 26 avril 2005
Statut
Membre
Dernière intervention
11 octobre 2009
-
22/9/2006
Sous TSE avec Windows server 2000, cela ne semble pas fonctionner - Quelqu'un a t il une idée ?
Il y a peut être une différence avec Windows server 2003.
Merci d'avance
phantom_2005
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Statut
Membre
Dernière intervention
1 septembre 2010
1 -
Très bien la nouvelle version

Dommage que les noms des utilisateurs soient en fait les noms des PCs

Mais bon
8/10

@+
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8 -
oups effectivement !!

j'ai fé ça en vitesses avec un copier/coller
tbbuim1
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
7 -
Il y a une erreur sur le NetSend... :p
Et oui, si tu veux faire un Netsend pour chaque liste il faut la passer en paramètre de la fonction MessageNetSend... Car actuellemennt, il y a ListLDB1.Text, hors si l'on clic sur la LBD2 c pas bon :(
----
Public Sub MessageNetSend(ctl As Control)
Dim txtMessage As String
txtMessage = InputBox("Message a envoyer par NetSend à l'utilisateur", "N E T S E N D")
Shell "cmd.exe /c " & """" & "net send " & ctl.Text & " " & txtMessage & """", vbHide
End Sub
-----
Private Sub ListLDB1,2,3_DblClick()
MessageNetSend ListLDB1,2,3
End Sub

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.