Access 365 Window 10. error code 438.

Question

activating Listview in a form trips code  Seems to point to mscomdtl.ocx problem  this just started at end of July 2018.  Is there a work around

Answer 1

What you call "mscomdtl.ocx" is actually called "mscomctl.ocx"

Did you try the older one in the \windows\syswow64 folder, and using regedit.exe in that same folder. That's the correct folder for 32-bit Access on 64-bit Windows. Also, can you confirm the version, bitness, and build number of Access?

I don't know what you mean with "activating Listview". Is this done via VBA? If so, show us the code. If interactively, what exact steps are you taking?

sorry mscomctl.ocx is the correct name

it opens a tree to build a Assembly with sub parts.

I am running Window 10, fully updated, Microsoft Access 365 Business, recent install  this generated the Code 438 "object does not support this property or method:

Comment: same access program I have developed runs on Windows 7 Access 365 with no issues.

I have been running this program for 18 years.  I wrote and developed the software.

web site:  www.erpqms-aerospace-software.com

Code below

Private Sub Command125_Click()

Dim db As Database, Inv As Recordset

Dim strCriteria, Response As String

On Error GoTo ErrExit

Set db = CurrentDb

If Me!TypeItem = "Assy" Then

BuildAssy:

    DoCmd.OpenForm "frmBOMTree"

    GoTo AltExit

End If

If Me!TypeItem = "Part" Then

    Response = MsgBox("Change Item from Part to Assembly?", vbYesNo)

        If Response = vbYes Then

            strCriteria = "select * from Inventory where InventoryID= " & Me!InventoryID

            Set Inv = db.OpenRecordset(strCriteria)

            Inv.Edit

                Inv!TypeItem = "Assy"

            Inv.Update

            Inv.CLOSE

            DoCmd.OpenForm "frmBOMTree"

            GoTo AltExit

        End If

End If

    MsgBox "Only assemblies parts can have a Bill-of-Material." & Chr(13) _

        & "Request canceled."

AltExit:

Exit Sub

follow up,  original program developed in Access 2007

in debug system shows this code failure:

Private Sub Form_Open(Cancel As Integer)

Set clmx = ListView1.ColumnHeaders. _

Add(, "InvID", "InvID", ListView1.Width * 0.125)

Set clmx = ListView1.ColumnHeaders. _

Add(, "InvName", "InvName", ListView1.Width * 0.2)

Set clmx = ListView1.ColumnHeaders. _

Add(, "Desc", "Description", ListView1.Width * 0.2)

Set clmx = ListView1.ColumnHeaders. _

Add(, "Type", "Type", ListView1.Width * 0.125)

Set clmx = ListView1.ColumnHeaders. _

Add(, "QtyNeed", "QtyNeed", ListView1.Width * 0.125)

ListView1.BorderStyle = ccFixedSingle

ListView1.View = lvwReport

ListView1.SortOrder = 0

ListView1.Sorted = True

If IsLoaded("frmInvMat") Then    'see if call from inventory console

    Me!AssyNo = Forms("frmInvMat")!InventoryName

    Call ASSYNo_AfterUpdate

End If

End Sub

Answer 2

What you call "mscomdtl.ocx" is actually called "mscomctl.ocx"

Did you try the older one in the \windows\syswow64 folder, and using regedit.exe in that same folder. That's the correct folder for 32-bit Access on 64-bit Windows. Also, can you confirm the version, bitness, and build number of Access?

I don't know what you mean with "activating Listview". Is this done via VBA? If so, show us the code. If interactively, what exact steps are you taking?

sorry mscomctl.ocx is the correct name

it opens a tree to build a Assembly with sub parts.

I am running Window 10, fully updated, Microsoft Access 365 Business, recent install  this generated the Code 438 "object does not support this property or method:

Comment: same access program I have developed runs on Windows 7 Access 365 with no issues.

I have been running this program for 18 years.  I wrote and developed the software.

web site:  www.erpqms-aerospace-software.com

Code below

Private Sub Command125_Click()

Dim db As Database, Inv As Recordset

Dim strCriteria, Response As String

On Error GoTo ErrExit

Set db = CurrentDb

If Me!TypeItem = "Assy" Then

BuildAssy:

    DoCmd.OpenForm "frmBOMTree"

    GoTo AltExit

End If

If Me!TypeItem = "Part" Then

    Response = MsgBox("Change Item from Part to Assembly?", vbYesNo)

        If Response = vbYes Then

            strCriteria = "select * from Inventory where InventoryID= " & Me!InventoryID

            Set Inv = db.OpenRecordset(strCriteria)

            Inv.Edit

                Inv!TypeItem = "Assy"

            Inv.Update

            Inv.CLOSE

            DoCmd.OpenForm "frmBOMTree"

            GoTo AltExit

        End If

End If

    MsgBox "Only assemblies parts can have a Bill-of-Material." & Chr(13) _

        & "Request canceled."

AltExit:

Exit Sub

follow up,  original program developed in Access 2007

Answer 3

What you call "mscomdtl.ocx" is actually called "mscomctl.ocx"

Did you try the older one in the \windows\syswow64 folder, and using regedit.exe in that same folder. That's the correct folder for 32-bit Access on 64-bit Windows. Also, can you confirm the version, bitness, and build number of Access?

I don't know what you mean with "activating Listview". Is this done via VBA? If so, show us the code. If interactively, what exact steps are you taking?

sorry mscomctl.ocx is the correct name

it opens a tree to build a Assembly with sub parts.

I am running Window 10, fully updated, Microsoft Access 365 Business, recent install  this generated the Code 438 "object does not support this property or method:

Comment: same access program I have developed runs on Windows 7 Access 365 with no issues.

I have been running this program for 18 years.  I wrote and developed the software.

web site:  www.erpqms-aerospace-software.com

Code below

Private Sub Command125_Click()

Dim db As Database, Inv As Recordset

Dim strCriteria, Response As String

On Error GoTo ErrExit

Set db = CurrentDb

If Me!TypeItem = "Assy" Then

BuildAssy:

    DoCmd.OpenForm "frmBOMTree"

    GoTo AltExit

End If

If Me!TypeItem = "Part" Then

    Response = MsgBox("Change Item from Part to Assembly?", vbYesNo)

        If Response = vbYes Then

            strCriteria = "select * from Inventory where InventoryID= " & Me!InventoryID

            Set Inv = db.OpenRecordset(strCriteria)

            Inv.Edit

                Inv!TypeItem = "Assy"

            Inv.Update

            Inv.CLOSE

            DoCmd.OpenForm "frmBOMTree"

            GoTo AltExit

        End If

End If

    MsgBox "Only assemblies parts can have a Bill-of-Material." & Chr(13) _

        & "Request canceled."

AltExit:

Exit Sub

Answer 4

What you call "mscomdtl.ocx" is actually called "mscomctl.ocx"

Did you try the older one in the \windows\syswow64 folder, and using regedit.exe in that same folder. That's the correct folder for 32-bit Access on 64-bit Windows. Also, can you confirm the version, bitness, and build number of Access?

I don't know what you mean with "activating Listview". Is this done via VBA? If so, show us the code. If interactively, what exact steps are you taking?

Answer 5

activating Listview in a form trips code  Seems to point to mscomdtl.ocx problem  this just started at end of July 2018.  Is there a work around

I have tried bringing in a older mscomdtl.ocx and uninstalling the old one, renaming and re registering the older version.  no luck.  There must be a procedure I am overlooking.   I have 30 customers that will have this issue.  I think it involved a Window update.  Same program running on Window 7 is fine.