Hata Mesajı: "Program falan kullanıcının bilgisayarında açık"

[arnavut]

Lütfen Yardım!!! "Program falan kullanıcının bilgisayarında açık"

Merhaba,

Ağ üzerinde çalışan ürün takip programımı bir kullanıcı açtığında eğer o an için ağ üzerinde başka bir bilgisayarda açıksa, açık olan bilgisayarın adını yada kullanıcı adını belirten aşağıdaki gibi bir hata mesajı çıkmasını sağlayabilirmiyiz ?!?

"Program şu anda [Bilgisayar Adı YADA Kullanıcı Adı] tarafından kullanılıyor! "

Yardımlarınız için şimdiden teşekkürler.

 

[arnavut]

Arkadaşlar acil yardıma ihtiyacım var bu konuda.
olabilecek birşeymi bu sizce ??

 

[alialp]

Tüm kullanıcıların PC lerindeki accessleri aynı versiyona ve aynı dile getirin.
Access options ayarlarınızın ekteki resimdeki gibi olduğunu varsayıyorum (değilse değiştiriniz)

 

[arnavut]

Merhaba sayın, alialp

Yanıtınız için çok teşekkür ederim ama istediğim şey bu değil aslında.

Ofisteki tüm bilgisayarlardaki access ayarları aynı ve ayarlar sizin örneğinizdeki gibi.

benim istediğim aslında sistemsel bir uyarı değil. Access programı zaten bir bilgisayarda açıkken *.ldb formatlı bir dosya oluşturuluyor. Bu dosyanın içinde hangi bilgisayarda açıksa o bilgisayarın ad bilgisi yer alıyor. Benim sorum aslında burada başlıyor. Bu dosyanın içinden bilgisayar adını okuyup bir uyarı mesajında kullanabilir miyiz???

 

[Zeki Gürsoy]

Merhaba sayın, alialp

Yanıtınız için çok teşekkür ederim ama istediğim şey bu değil aslında.

Ofisteki tüm bilgisayarlardaki access ayarları aynı ve ayarlar sizin örneğinizdeki gibi.

benim istediğim aslında sistemsel bir uyarı değil. Access programı zaten bir bilgisayarda açıkken *.ldb formatlı bir dosya oluşturuluyor. Bu dosyanın içinde hangi bilgisayarda açıksa o bilgisayarın ad bilgisi yer alıyor. Benim sorum aslında burada başlıyor. Bu dosyanın içinden bilgisayar adını okuyup bir uyarı mesajında kullanabilir miyiz???

".ldb" nin text içerdiğini bilmiyordum. Sanırım aşağıdaki yapıya ihtiyacınız var.

Sub Test()
    MsgBox GetUsersInfo("zeki")
End Sub

Function GetUsersInfo(MyPC_Name As String) As String
Dim data$, p$, x$, y$, r$

p = CurrentProject.Path & "\" & Replace(CurrentProject.Name, ".mdb", ".ldb")
r = " PC ADI ; KULLANICI " & Chr(13)
r = r & "=============" & Chr(13)

[COLOR=DarkGreen]'/* Dosyayı açan kendi bilgisayarınız ise; */[/COLOR]
If Environ$("COMPUTERNAME") = MyPC_Name Then
    Open p For Input As #1
        While Not EOF(1)
            Input #1, data
            x = Left$(data, InStr(1, data, " ") - 1)
            y = Trim$(Mid$(data, Len(x) + 1, Len(data)))
            r = r & x & " ; " & y & Chr(13)
        Wend
    Close #1
    
    GetUsersInfo = r
End If

End Function

 

[arnavut]

Merhaba Zeki bey,

çok teşekkür ederim ilginiz için.
yalnız nasıl uygulayacağım bu kodu? açılışta olayına mı yazmalıyım, yoksa module'mü yaratmalıyım. Biraz açabilirseniz sevinirim.

 

[modalı]

Sayın arnavut,

Aşağıdaki kodlarla ldb den bilgi çekebiliyorsunuz.

Sub TestReadLDB()
Debug.Print ReadLDBData
End Sub

Function ReadLDBData() As String
Dim StrLDBData As String
Dim strLDBName As String
Dim lngBreakAt As Long
Dim lngFileHandle As Long
Dim strTemp As String
lngBreakAt = InStr(1, CurrentProject.FullName, ".", vbTextCompare)
strLDBName = Left$(CurrentProject.FullName, lngBreakAt) & "ldb"
lngFileHandle = FreeFile
Open strLDBName For Input As #lngFileHandle
Do While Not EOF(lngFileHandle)
 Input #lngFileHandle, strTemp
 StrLDBData = StrLDBData & strTemp
Loop
Close #lngFileHandle
ReadLDBData = StrLDBData
End Function

Deneyemediğim için ne geldiğini bilemiyorum. Eğer herhangi bir ldb den çekip iletirseniz yardımcı olmaya çalışırım.

Bencede, önce bir form açılır bu bilgi çekilir geliştireceğimiz algoritmayla da isim alınarak bir ileti kutusunda gösterilebilir. İstenirse de uygulama kapatılır.

İyi çalışmalar

 

[Zeki Gürsoy]

Merhaba Zeki bey,

çok teşekkür ederim ilginiz için.
yalnız nasıl uygulayacağım bu kodu? açılışta olayına mı yazmalıyım, yoksa module'mü yaratmalıyım. Biraz açabilirseniz sevinirim.

Örneğin bu şekilde kullanabilirsiniz..

 

[arnavut]

Merhaba,
Zeki bey yardımınız için teşekkür ederim.
Kodu programda deneyeceğim.

Bu arada sayın Modalı ilginiz için çok teşekkürler.
Verdiğiniz kodu denedim ama çalıştıramadım.
Nerede hata yaptığımı anlamadım

 

[karam]

bu benimde işime yarar zeki arkasaşım eline sağlık