Duane,
I actually have two of those checked. Version 2.8 and 6.0 multidimensional. I currently have the PC running an Office repair right now which takes 2-3 hours because my download speed is so slow. I tried my test_ADODB on another PC and it works fine there. Something about this PC or this Office install I'm thinking. However I do have this same problem on another new PC in my engineering department. It is Windows 7 though. I'm hoping the Office repair will fix it. If not, do you have any other ideas?
Doyce
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
Doyce,
I would try set a reference to the Microsoft ActiveX Dataobjects library.
Duane
Sent: Monday, April 16, 2018 12:59 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Runtime Error 429: ActiveX component can't create object
Duane,
I have all of these references checked and I copied this code into a new module and tested it. I'm getting the same runtime error with this test code. I have tried putting a copy of the database on my local hard drive and have verified that it is in a trusted folder.
Since that didn't work, I create a new database and copied the customers table from another db into it. I created a new module and pasted your test code into it. It gives the same error. Something else must be going on here. Do you have another suggestion? Should I try an Office repair?
Doyce
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
I'm on Windows 10 and Access 2016 with references set to
-Visual Basic For Applications
-Microsoft Access 16.0 Object Library
-OLE Automation
-Microsoft Office 16.0 Access database engine Object Library
I copied the code to a standard module and simply changed the SQL statement and it worked as expected.
I typically run as simple of code as I can to test. You might want to try create the following with a simple table:
Regards,
Duane
Sent: Monday, April 16, 2018 10:14 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Runtime Error 429: ActiveX component can't create object
Hi Duane,
Thanks for responding. Yes, I complied the code. Debug-Compile. Here is the procedure where it is stopping. This is code that Access created with the switchboard.
Private Sub FillOptions()
' Fill in the options for this switchboard page.
' The number of buttons on the form.
Const conNumButtons = 8
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
' Set the focus to the first button on the form,
' and then hide all of the buttons on the form
' but the first. You can't hide the field with the focus.
Me![Option1].SetFocus
For intOption = 2 To conNumButtons
Me("Option" & intOption).Visible = False
Me("OptionLabel" & intOption).Visible = False
Next intOption
' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset
' If there are no options for this Switchboard Page,
' display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me![OptionLabel1].Caption = "There are no items for this switchboard page"
Else
While (Not (rs.EOF))
Me("Option" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Visible = True
Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]
rs.MoveNext
Wend
End If
' Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
I also just opened a different database on this PC that is doing the same thing.
Doyce
---In MS_Access_Professionals@yahoogroups.com, <duanehookom@...> wrote :
Hi Doyce,
Can you share a little more code? I assume by "recompiled the database" you meant you compiled your code?
Regards,
Duane
Sent: Monday, April 16, 2018 8:40 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Runtime Error 429: ActiveX component can't create object
Hello Friends,
I'm testing a new Windows 10 PC. All my others are Windows 7. I have one database that is throwing up a Run-time error 429 when opening and trying to load the switchboard. If I hit debug, it goes to this line on the switchboard form:
Set RS = CreateObject("ADODB.Recordset")
I've looked for missing references but can't find any. I've recompiled the database and tried a compact and repair. No luck. It opens fine on my Windows 7 PC using the same user login. What should I try next?
Doyce
Posted by: winberry.doyce@con-way.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (7) |
Tidak ada komentar:
Posting Komentar