Arkadaşlar mrb. Basit bir projeyi paylaşıma açmıştım. Oturumu açık olan makinayı ana bilgisayardan nasıl tespit edebilirim. Bazen projede değişiklik yapmak istediğimde diğer bilgisayarlarda açık olan varsa kapatılması gerekiyor. Bunun için de tek tek bilgisayarları gezmek zorunda kalıyorum. Bunun tespitini ana bilgisayardan yapıp, ana bilgisayardan diğer makinadaki programı kapatmak mümkün mü? Teşekkür ederim şimdiden

Dim stm As TextStream, fso As FileSystemObject, strLine As String, strChar As String, strArr() As String, nArr As Long, nArrMax As Long, nArrMin As Long

Dim strFilename As String, strMessage As String

strFilename = DFirst("Database", "MSysObjects", "[Type] = 6")

strFilename = Left(strFilename, InStrRev(strFilename, ".")) & "laccdb"



Set fso = New FileSystemObject

Set stm = fso.OpenTextFile(strFilename, ForReading, False, TristateFalse) 



While Not stm.AtEndOfStream

    strChar = stm.Read(1)

    If Asc(strChar) > 13 And Asc(strChar) < 127 Then

        strLine = strLine & strChar

    End If

Wend

strMessage = "Users Logged In: " & vbCrLf

'Debug.Print strLine

strArr = Split(strLine, "Admin", , vbTextCompare)

nArrMax = UBound(strArr)

nArrMin = LBound(strArr)

For nArr = nArrMin To nArrMax  

    strArr(nArr) = Trim(strArr(nArr))  

    If Len(strArr(nArr)) > 1 Then  



        msgbox strMessage & " " & strArr(nArr)



    End If

Next

MsgBox strMessage  

stm.Close

Set stm = Nothing

Set fso = Nothing

Üstteki kod, veritabanına bağlanan bilgisayarların adını gösterir.
Referanslara "Microsoft Scripting Runtime" referansını eklemek gerekli

İlginize tşk ederim. Bu kod için form oluşturacağız doğrumu anladım.

(01/06/2021, 13:21)alperadn01 yazdı: İlginize tşk ederim. Bu kod için form oluşturacağız doğrumu anladım.

Evet, form oluşturmanız gerekli.

(01/06/2021, 15:12)ozanakkaya yazdı:

(01/06/2021, 13:21)alperadn01 yazdı: İlginize tşk ederim. Bu kod için form oluşturacağız doğrumu anladım.

Evet, form oluşturmanız gerekli.

Form oluşturup yüklendiğinde kısmına kodu oluşturdum ancak yapamadım

Yapamadığınız örneği ekleyin. Nerede hata yaptığınızı bakalım.