运行时错误'1004'：不存在“活动”字段

Posted 2021-04-26

我在用户的PC上收到此错误。他们正在Windows 7上使用Project2013。在我们自己的带有Windows 10上的Project 2013和Windows 10上的Project 2016的测试机上，我们没有看到相同的错误。

错误到处都是，但是这里的一个例子是FilterEdit：

Sub STAT_Leads_Preds()
    FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Predecessors", Test:="contains", Value:="-", ShowInMenu:=False, ShowSummaryTasks:=False
    FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, FieldName:="", NewFieldName:="Actual Finish", Test:="equals", Value:="NA", Operation:="And", ShowSummaryTasks:=False
    If Not pActive Then
        FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, FieldName:="", NewFieldName:="Active", Test:="equals", Value:="Yes", Operation:="And", ShowSummaryTasks:=False
    Else
    End If
End Sub

目前尚不清楚为什么出现此消息。 "Active" is, in fact, a field.而且，就像我说的，我们在测试机上没有看到这个问题。

作为参考，下面是错误的样子：

答案

看起来像Project Standard没有“活动”字段。我们的解决方案包括使用Application.Edition检查软件版本，该版本可以为one of two values：pjEditionProfessional或pjEditionStandard。

这是代码最终的外观：

Sub STAT_Leads_Preds()
    FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Predecessors", Test:="contains", Value:="-", ShowInMenu:=False, ShowSummaryTasks:=False
    FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, FieldName:="", NewFieldName:="Actual Finish", Test:="equals", Value:="NA", Operation:="And", ShowSummaryTasks:=False
    If Not pActive And Application.Edition = pjEditionProfessional Then
        FilterEdit Name:="STAT_Leads_Preds", TaskFilter:=True, FieldName:="", NewFieldName:="Active", Test:="equals", Value:="Yes", Operation:="And", ShowSummaryTasks:=False
    Else
    End If
End Sub