Function AddRefs()
Dim loRef As Access.Reference
Dim intCount As Integer
Dim intX As Integer
Dim blnBroke As Boolean
Dim strPath As String
 
On Error Resume Next
 
'
Debug.Print "----------------- Eklenen Referanslar-----------------------"
'
 
With Access.References
.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll"
.AddFromFile "C:\Program Files\Microsoft Office\Office\msacc9.olb"
.AddFromFile "C:\Program Files\Common Files\System\ado\msado15.dll"
.AddFromFile "C:\Program Files\Common Files\System\ado\msado25.tlb"
.AddFromFile "C:\Program Files\Common Files\System\ado\msadox.dll"
.AddFromFile "C:\WINNT\System32\stdole2.tlb"
.AddFromFile "C:\WINNT\System32\scrrun.dll"
End With
 
Call SysCmd(504, 16483)
End Function

Private Sub Komut0_Click()
 
Dim loRef As Access.Reference
Dim intCount As Integer
Dim intX As Integer
Dim blnBroke As Boolean
Dim strPath As String
 
 
 
'
Debug.Print "----------------- Eklenen Referanslar-----------------------"
'
 
With Access.References
.AddFromFile "C:\Windows\System32\WhatsAppApi.dll"
End With
 
Call SysCmd(504, 16483)
 
End Sub

Private Sub Komut0_Click()
On Error GoTo Hata
Dim ref As Reference
Set ref = References.AddFromFile("C:\Windows\System32\WhatsAppApi.dll")
Call SysCmd(504, 16483)
Msgbox "Referans Eklenmiştir."
Exit Sub
Hata:
MsgBox (ErrorMsg)
End Sub