QUI EST CONNECTÉ A VOS BASE ACCESS ( LDB )

Commentaire de dragon le 04/01/2005 19:19:37

tiens ça em dit dequoi ça, il y a un programme presque pareil en tout point a ma job, avec les utilisateur soupsonnée ne plus

ta source est basé sur une source venant du net ??? ou c'est seulement un hasard ???

Commentaire de ITALIA le 05/01/2005 08:27:25

Bien vu dragon !
J'ai jamais dis être le créateur....
Je l'ai juste amélioré pour mes besoins perso

et en plus ça manqué un peu sur ce site

Commentaire de ITALIA le 05/01/2005 10:02:02

quand t'as enormément de personnes connectées à une même Base ça facilite la lecture.

et perso la version de ce programme que j'utilise analyse une dizaine de base en même temps..
a ce moment la on voit vraiment l'utilité ;-))

et c'est sur le net send c'est un petit plus....
comme tous les petit plus il facilite légérement la vie...

Commentaire de tbbuim1 le 05/01/2005 14:26:39

Private Sub ListLDB1_DblClick()
Dim txtMessage As String
txtMessage = InputBox("Message a envoyé par NetSend à l'utilisateur", "N E T S E N D")
Shell "cmd.exe /c " & """" & "net send " & ListLDB1.Text & " " & txtMessage & """", vbHide
End Sub

Rajouter cette fonction, elle vous permettra d'envoyer un netsend en double cliquant sur le nom de l'utilisateur

Commentaire de tbbuim1 le 05/01/2005 14:42:19

jmlucienvb> Pas besoin de l'IP pour envoyer un net send le login ou le nom de la machine de l'utilisateur suffisent.

Italia> On ne voit pas les .mdb en fichier caché dans la liste :(, ne serait-il pas plus judicieux de faire un CommonDialog pour pouvoir choisir directement la base que l'on veut voir et récupérer par la même occasion le répertoire au cas ou l'on veut visualiser d'autres sources sur le même rep..?

Commentaire de ITALIA le 05/01/2005 15:32:30

>>> tbbuim1 : Mise à Jour Effectuée

Commentaire de jmlucienvb le 06/01/2005 07:45:21

>>>Italia : Marche plus (sous 2000) dans cette nouvelle version
le prog se termine sans affichage de la base ouverte et le sablier reste actif.
Jmlucienvb

Commentaire de tbbuim1 le 06/01/2005 19:22:28

Jsuis sous 2000 et ça marche nikel.
As-tu le COMDLG32.OCX?

Commentaire de tbbuim1 le 07/01/2005 10:20:57

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

Commentaire de phantom_2005 le 07/01/2005 15:56:26

Très bien la nouvelle version

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

Mais bon
8/10

@+