R
Robert
At Line 109, what causes the error message:
Run-time error '438':
Object doesn't support this property or method
and what do I need to learn to have been able to identify the error?
1 Option Explicit
2 Dim strFanType As String
3 Dim boolSum As Boolean
4 Dim gboolboolCrit As Boolean
5 Dim T, TT, Tselect As Task
..
..
..
100 'Walks through all predecessors to a task and marks their flag5 as true
101 Sub FanBackward(T As Task, boolCrit As Boolean)
102 Dim TT As Task
103 T.Flag5 = True
104 For Each TT In T.PredecessorTasks
105 If TT.Flag5 <> True Then
106 If Not boolCrit Then
107 FanBackward TT, boolCrit
108 End If
109 If boolCrit And TT.boolCritical Then
110 FanBackward TT, boolCrit
111 End If
112 End If
113 Next TT
114 End Sub
Run-time error '438':
Object doesn't support this property or method
and what do I need to learn to have been able to identify the error?
1 Option Explicit
2 Dim strFanType As String
3 Dim boolSum As Boolean
4 Dim gboolboolCrit As Boolean
5 Dim T, TT, Tselect As Task
..
..
..
100 'Walks through all predecessors to a task and marks their flag5 as true
101 Sub FanBackward(T As Task, boolCrit As Boolean)
102 Dim TT As Task
103 T.Flag5 = True
104 For Each TT In T.PredecessorTasks
105 If TT.Flag5 <> True Then
106 If Not boolCrit Then
107 FanBackward TT, boolCrit
108 End If
109 If boolCrit And TT.boolCritical Then
110 FanBackward TT, boolCrit
111 End If
112 End If
113 Next TT
114 End Sub