Ağda kullanılan bu program da evrak kayıt girişi yapılmakta, program üzerinden sayı alınıp kaydedilmekte, o yüzden her seferinde tek kullanıcının kullanabilmesi gerekiyor.Teşekkür ederim.

Başka bir forumda bir arkadaşın aşağıdaki gibi bir yardımı olmuştu ama Access işlev hatası verdi.

Option Compare Database
Public Function trz()
yol = "D:\Paylaşım\Kayıt.ldb"
If Dir(yol) <> "" Then
evn = FreeFile
Open yol For Input As #evn
Do Until EOF(evn)
Line Input #evn, kullanici
yaz = yaz & kullanici
Loop
Close evn
MsgBox "Dosya şu anda aşağıdaki kişi/kişiler tarafından kullanılmaktadır. " & vbCrLf & vbCrLf & yaz, 64, "VBA"
End If
End Function

Bu fonksiyonu Access açılışında otomatik çalışan makroya (Autoexec) kaydettim ancak aşağıdaki hataları verdi.