Hi all,
Please can someone assist.
I have two word / excel applications (word calls excel), one of the apps works, the other does not.
I traced it down to the object references
One has Microsoft object library 14 - this is the one that works
Second one has Microsoft object library 15 - which does not work.
When I attempt to install the 14 object library, it reverts to 15 automatically(ACEDAO.DLL)
However my code in the second app wont compile because of invalid references.
Any Ideas on how to fix this.
The code reads as follows:
Private Sub listview_transbanker_Change()
On Error Resume Next
Err.Clear
If Me.listview_transbanker.ListIndex <> -1 Then
Me.txt_Email.Value = transbanker(Me.listview_transbanker.ListIndex, 1)
Me.txt_tel.ForeColor = RGB(0, 0, 0)
Else
Me.listview_transbanker.Value = "Select banker"
End If
On Error GoTo 0
End Sub
It fails on the .listindex and message box says message or data object not found.
Any suggestions would be greatly appreciated. TIA
Please can someone assist.
I have two word / excel applications (word calls excel), one of the apps works, the other does not.
I traced it down to the object references
One has Microsoft object library 14 - this is the one that works
Second one has Microsoft object library 15 - which does not work.
When I attempt to install the 14 object library, it reverts to 15 automatically(ACEDAO.DLL)
However my code in the second app wont compile because of invalid references.
Any Ideas on how to fix this.
The code reads as follows:
Private Sub listview_transbanker_Change()
On Error Resume Next
Err.Clear
If Me.listview_transbanker.ListIndex <> -1 Then
Me.txt_Email.Value = transbanker(Me.listview_transbanker.ListIndex, 1)
Me.txt_tel.ForeColor = RGB(0, 0, 0)
Else
Me.listview_transbanker.Value = "Select banker"
End If
On Error GoTo 0
End Sub
It fails on the .listindex and message box says message or data object not found.
Any suggestions would be greatly appreciated. TIA