Skip to main content

AccessTr.neT


Ağda paylaşım

Ağda paylaşım

Çözüldü #7
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
ocinar, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
arkadaşlar teşekkür ederim sorun çözüldü problem Access dosyasının özelliklerinde kısıtlama varmış teşekkür ederim
ocinar, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da