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