Ошибка выполнения метода FieldNameToFieldConstant 1004

я попытался сделать этот макрос для Microsoft Project, это нормально, если он работает в автономном режиме, но если я попытаюсь работать с сервером проекта, метод вернет ошибку 1004 во время выполнения. проверьте код выше.

Function RetornaValorCampo(NomeCampo As String)
    Dim Campo
    Campo = FieldNameToFieldConstant("NomeCampo", pjTask)
    RetornaValorCampo = ActiveProject.ProjectSummaryTask.GetField(Campo)
End Function

Танки в любую помощь. []


vba runtime ms-project
person Pedro Povoleri    schedule 13.09.2012    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы передаете NomeCampo в качестве параметра функции RetornaValorCampo. При вызове функции FieldNameToFieldConstant вы передаете "NomeCampo" в качестве первого аргумент.

Из-за " символов "NomeCampo" всегда будет строкой "NomeCampo" независимо от того, что вы передали в функцию RetornaValorCampo.

Пытаться:

Campo = FieldNameToFieldConstant(NomeCampo, pjTask)

использовать значение параметра, которое вы передали в

person barrowc    schedule 13.09.2012