Hi John.
I did have an object reference in vba through tool menu.As you suggested, I've checked on regedit and the library is there with a key.
The problem is two-fold: First of all, I cannot declare and compile successfully with 'Skype4COM.Skype;- it tells me that 'user-defined type not define' message even though Skype4COM is properly referenced and registered. Second of all, when I declare with 'Skype4COMLib.Skype', it compiles just fine and the objects show in the vba intellisense, however, i get the run-time error 429.
the following code-declare, compile successfully and objects are visible in intellisense but it gives me the run-time error '429'
Dim oSkype As SKYPE4COMLib.Skype
Dim oCall As SKYPE4COMLib.Call
Dim oCon As SKYPE4COMLib.Conference
Set oSkype = New SKYPE4COMLib.Skype
If Not oSkype.Client.IsRunning Then
oSkype.Client.Start
End If
---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote:
Beatrice-
For VBA to be able to "see" an object like "Skype4COM.Skype", the dll must be registered in Windows. Try using Regsvr32.
http://stackoverflow.com/questions/4897685/how-do-i-register-a-dll-on-windows-7-64-bit
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of emmanuelbeatrice@...
Sent: Friday, November 29, 2013 5:45 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Run-Time Error '429': ActiveX component cannot create object
Hi, I am trying to use Skype4COM api to handle my callings in access database. and i have done all the proper .dll registrations and object referencing. However, each time the compiler gets to the line: 'Set oskype = CreateObject("Skype4COM.Skype")', it gives me the '429' run time error- no matter whatever way - declare the object. I am using MS Access 2013, both 64-bits. here below is a sample of my code. I ran out of possible troubleshooting ideas on what may cause this run-time error. thank you in advance, Beatricz
Private Sub Call_Click()
Set oskype = CreateObject("Skype4COM.Skype")
If Not oskype.Client.IsRunning Then
oskype.Client.Start
End If
Set oUser = oskype.User("User1")
Set oCall = oskype.PlaceCall(me.Number)
End Sub
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (5) |
Tidak ada komentar:
Posting Komentar