Tree Control Not working (1 Viewer)

[Exodus]

So the company I work for rolled out Windows and Office updates last night
Now my tree control menu stopped working. We are on windows 7 64bit and office 2010. The node_click sub no longer opens any of my forms. Any suggestions besides the fact that I was using an ActiveX control to begin with. I can't even get a break point to work in the VBA editor. Below is my code.

Private Sub TreeCtl_NodeClick(ByVal mNode As Object)
   
    Dim sFormToOpen As String
    Dim RecordtoSelect As Long
    Dim rstSource As DAO.Recordset
    Dim dbs As DAO.Database
    Dim sFrmVw As Long
      
    
    DoCmd.Hourglass False
    
    Select Case Left(mNode.Key, 1)
        Case "R"
               
            If mNode.Key = "RootNode" Then
                If mNode.Expanded = True Then
                    mNode.Expanded = False
                Else
                    mNode.Expanded = True
                End If
            End If
        
        Case "p"
            If Left(mNode.Key, 1) = "p" Then
               If mNode.Expanded = True Then
                    mNode.Expanded = False
                Else
                    mNode.Expanded = True
                End If
            End If
  
    End Select
    
    
          If mNode.Key = "P|9999" Then
          Import_AmAsset
          End If
    
            If mNode.Key = "P|9000" Then
            If IsLoaded("FindPolls") Then
            DoCmd.Close acForm, "FindPolls"
            End If
            Call ResetToolbars
            Call NormalSetDefaultShrtCutMenu
            DoCmd.Quit
            End If
       
    
    If Left(mNode.Key, 1) = "c" Then
    RecordtoSelect = Right(mNode.Key, 4)
    Else
   ' Exit Sub
    End If
     
    
    Set dbs = CurrentDb()
    Set rstSource = _
        dbs.OpenRecordset("select * from tblMenuForms where Id = " & RecordtoSelect, dbOpenDynaset)

    Select Case Left(mNode.Key, 1)
    
         Case "c"
        
        With rstSource
        
       
        sFormToOpen = !FormName
        sFrmVw = !FrmView
        
       
        DoCmd.OpenForm sFormToOpen, sFrmVw
        
    End With
        
    End Select
    
End Sub

 

[ForesterCA]

I had the same issue...
Try to re-register the control once more:

Start-Run-"regsvr32 C:\windows\system32\mscomctl.ocx"

This did the job for me

 

[shadow9449]

The treeview control is right now a big mess:


Link 1


Link 2

Very helpful link

I have had mixed success with these solutions. I really hope that Microsoft just fixes it as quickly as they broke it rather than "try this, try that" solutions that need to be applied to EVERY computer.

SHADOW

 

[tangcla]

I had the same issue...
Try to re-register the control once more:

Start-Run-"regsvr32 C:\windows\system32\mscomctl.ocx"

This did the job for me

This solution worked for me. I had issues with double-clicking an Access form query.