Re: [MS_AccessPros] Runtime Error 429: ActiveX component can't create object

 

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:

Public Function TestADODB()

    Dim con As Object

    Dim rs As Object

    Dim stSql As String

    

    Set con = Application.CurrentProject.Connection

    stSql = "SELECT * FROM [Customers] "

    stSql = stSql & " WHERE [ID] < 10 "

    stSql = stSql & " ORDER BY [ID];"

    Set rs = CreateObject("ADODB.Recordset")

    rs.Open stSql, con, 1   ' 1 = adOpenKeyset

    With rs

        Do Until .EOF

            Debug.Print .Fields(0)

            .MoveNext

        Loop

        .Close

    End With    

    Set rs = Nothing

    Set con = Nothing

End Function

Regards,

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of winberry.doyce@con-way.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
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

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of winberry.doyce@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
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: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___