Progrmı agda bir bilgisayarda klasöre yetki vererek paylaşmak istiyorum ancak 1 kullanıcı programı açtığında başkası programı açamıyor, başka bilgisarda paylaşım vererekte denedim olmadı, başka bilgisayarda tabloları bağlayarakta olmadı, anlamsız bir durumla karşılaştım daha önce yaptığım programlarda böyle bir problem olmuyordu. programın izxçindemi bilmeden bir şey yaptım yardım lütfen.....

Sn ocinar
dosyanızın ayarlarında paylaşımı kısıtlayacak herhangi bir ayara rastlamadım, yani dosyanız ağda açılacak biçimde kaydedilmiş, buradaki sorun, paylaşılan klasörün, izinlerinde olabilir, eğer ağınızda yabancı bilgisayar yoksa izini Everyone olarak ayarlayın aksi halde tek tek isim vererek ayarlayın.

evet bu şekilde ayarladım ancak olmadı programın kendisinde yanlış yapılan bir ayar yok değilmi

kodları incelemedim sadece seçeneklere baktım ama hemen kodlarıda inceliyorum.

aldığınız hata mesajını ekleyebilirmisiniz?

herhangi bir hata mesajı yok sadece paylaşıma basınca açmıyor
genel modül içinde
Option Compare Database
Public rst As New ADODB.Recordset
Public IdAl As String
Public Function DomainName() As String
Dim oSysInfo As Object
Set oSysInfo = CreateObject("WinNTSystemInfo")
DomainName = oSysInfo.DomainName
Set oSysInfo = Nothing
End Function
Public Function UserName() As String
Dim oSysInfo As Object
Set oSysInfo = CreateObject("WinNTSystemInfo")
UserName = oSysInfo.UserName
Set oSysInfo = Nothing
End Function
Public Function ComputerName() As String
Dim oSysInfo As Object
Set oSysInfo = CreateObject("WinNTSystemInfo")
ComputerName = oSysInfo.ComputerName
Set oSysInfo = Nothing
End Function
Public Sub Sql_Calistir(varKomut As String)
On Error Resume Next
Dim cmd As ADODB.Command 'kayıt kümesini ve Command nesnesini tanımla
Set cmd = New ADODB.Command 'Command nesnesini örnekle
cmd.CommandText = varKomut 'verilerin nereden alınacağını bildir
cmd.ActiveConnection = CurrentProject.Connection 'bağlantı bilgilerini ayarla
Set rst = cmd.Execute 'Execute metodunu kullanarak sonuç kümesini kayıt kümesi nesnesine getir
HataBul (Err.Number)
End Sub
Function HataBul(HataNo As Integer) As String
If Err.Number = 0 Then
Else
MsgBox "Hata oluştu işlemi Gerçekleştiremedim. " & Err.Number & " " & Err.Description
End If
End Function
var bunun engellemesi olbilirmi