AccessTr.neT

evet yine yok hiçbir hata mesajıda vvermiyor ikinci kullanıcı açmaya çalıştığında haraket yok
genel modül içinde şöyle bir kod var bu yaparmı

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

arkadaşlar teşekkür ederim sorun çözüldü problem Access dosyasının özelliklerinde kısıtlama varmış teşekkür ederim