Ms Project Runtime Error 1101
SQL Server 2014 Express resources Windows Server 2012 resources Programs MSDN subscriptions Overview Benefits Administrators Students Microsoft Imagine Microsoft Student Partners ISV Startups TechRewards Events Community Magazine Forums Blogs Channel 9 Documentation APIs and reference Dev centers Samples Retired content We’re sorry. The content you requested has been removed. You’ll be auto redirected in 1 second. Ask a question Quick access Forums home Browse forums users FAQ Search related threads Remove From My Forums Answered by: 'Run time error 1101.Argument value not valid. Project Server , Project > Project Customization and Programming Question 0 Sign in to vote Hello, On one PC with Project Pro 2007, this VBA excerptbelow works fine. On two others PC with Project Pro 2010, I get an error on the Set Statement:'Run time error1101. Argument value not valid. Any idea ? Thanks Dim oRes As Resource Dim Asg As Assignment 'Task Assignment Dim Res_Ass As Assignment 'Resource Assignment Dim oTache As Task Dim SousProj As Object .../... For Each oTache In ActiveProject.Subprojects(I).SourceProject.Tasks If Not oTache Is Nothing Then oTache.Text5 = ActiveProject.Subprojects(I).SourceProject.BuiltinDocumentProperties("Comments") For Each Asg In oTache.Assignments Asg.Text5 = ActiveProject.Subprojects(I).SourceProject.BuiltinDocumentProperties("Comments") Asg.Text4 = ActiveProject.Subprojects(I).SourceProject.BuiltinDocumentProperties("Keywords") Set oRes = ActiveProject.Resources(Asg.ResourceID) 'Run time error 1101.Argument value not valid. Erreur d'exécution 1101 Valeur d'argument non valide Edited by WLID1966 Monday, November 19, 2012 10:39 PM Monday, November 19, 2012 10:38 PM Reply | Quote Answers 1 Sign in to vote Set oRes = Asg.Resource should work. OR, oTache belongs to the first sub-project which is likely not active, so don't use activeproject. use: Set oRes = ActiveProject.Subprojects(I).SourceProject.Resources(Asg.ResourceID) To Simplify your code I would add: Dim prjSub as Project Set prjSub = ActiveProject.Subprojects(I).SourceProject Set oRes = prjSub.Resources(Asg.ResourceID) Rod Gill The one and only Project VBA Book Rod Gill Project Management
Marked as answer by WLID1966 Tuesday, November 20, 2012 9:40 AM Tuesday, November 20, 2012 1:35 AM Reply | Quotbe down. Please try the request again. Your cache administrator is webmaster. Generated Thu, 20 Oct 2016 21:58:48 GMT by s_wx1157 (squid/3.5.20)
Project Microsoft Project Developer The argument value is not valid Ask a Question Sign up for Free 223 Experts currently online. Ask Questions for Free! The argument value http://www.textndata.com/forums/argument-value-not-valid-210203.html is not valid - Microsoft Project Developer Hi, I have the following code: Sub Populate_QC3() Dim mytask As Task For Each mytask In ActiveProject.Tasks If Not (mytask Is Nothing) Then mytask.EnterpriseProjectNumber1 = mytask.EnterpriseNumber5 End If Next mytask End Sub When I run the macro I receive the following error: Run-time error '1101': The argument value is not ... Results 1 to 4 of 4 LinkBack ms project LinkBack URL About LinkBacks Bookmark & Share Add Thread to del.icio.usTweet this thread Thread Tools Show Printable Version Email this Page… Subscribe to this Thread… Search Thread Advanced Search Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode 01-18, 12:16 PM #1 The argument value is not valid Hi, I have the following code: Sub Populate_QC3() Dim mytask As Task For Each mytask ms project runtime In ActiveProject.Tasks If Not (mytask Is Nothing) Then mytask.EnterpriseProjectNumber1 = mytask.EnterpriseNumber5 End If Next mytask End Sub When I run the macro I receive the following error: Run-time error '1101': The argument value is not valid Can you help me how to correct the code? Thanks, Rafal rafalag Reply With Quote 01-19, 03:29 AM #2 Re: The argument value is not valid In article