+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Paylaşım (/konu-paylasim.html)
Sayfalar:
1
2
Paylaşım - alperadn01 - 20/05/2021
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
RE: Paylaşım - ozanakkaya - 21/05/2021
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
RE: Paylaşım - alperadn01 - 01/06/2021
İlginize tşk ederim. Bu kod için form oluşturacağız doğrumu anladım.
RE: Paylaşım - ozanakkaya - 01/06/2021
(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.
RE: Paylaşım - alperadn01 - 01/06/2021
(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
RE: Paylaşım - ozanakkaya - 01/06/2021
Yapamadığınız örneği ekleyin. Nerede hata yaptığınızı bakalım.