ACC: How to Create Tasks in MS Project for Windows Using DDE

MORE INFORMATION

1. Create a new module in a Microsoft Access database. Add the following statement to the Declarations section of the module:

         '------------------------------------------------------------------
         'Declarations Section
         '------------------------------------------------------------------
         Option Explicit
   						

2. Add the following function to the module:
   
   NOTE: In the following sample code, an underscore (_)is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code in Access Basic.

       '---------------------------------------------------------------------
       'Start of Function
       '---------------------------------------------------------------------
   
       Function DDE_CreateTasks (ProjectPath as String)
   
         Const DDE_ERROR = 282               ' Define DDE return error.
         Dim Temp, Mynum, Chan1, Chan2       ' Define variables.
   
         On Error GoTo StartUp               ' If Project is not open, start
                                             ' it.
   
         Chan1 = DDEInitiate("winproj", "system")
         ' Initiate a channel to Project.
   
         On Error GoTo QuitNow
   
         Chan2 = DDEInitiate("winproj", DDERequest(Chan1, "ActiveProject"))
         ' Initiate a channel to the active Project.
   
         For Mynum = 1 To 10
            DDEExecute Chan2, "EditGoto .ID=[" & Mynum & "]"
            ' Go to the task.
            DDEExecute Chan2, "SetField .Field=[Name] .Value=MyNewTask" &_
               Mynum & " .Create=[Yes]"
            ' Create a new task.
            DDEPoke Chan2, "T((" & Mynum & "),(Name,Duration))", "Task_
               Number " & Mynum & Chr(9) & Mynum & "d"
            ' Send information to Project.
         Next
   
         DDETerminateAll                     'Terminate the DDE channel.
   
         Exit Function
   
         QuitNow:
   
            DDETerminateAll                  ' Terminate the DDE channel.
            Exit Function
   
         StartUp:
   
            If Err = DDE_ERROR Then
               Temp = Shell(ProjectPath, 6)  ' Start Project.
               Resume                        ' Re-execute DDEInitiate()
                                             ' function.
            End If
   
       End Function
   						

3. To test this function, type the following line in the Debug window (or Immediate window in versions 1.x and 2.0), and press ENTER

   ?DDE_CreateTasks ("<c:\winproj\winproj.exe>")

   where "<c:\winproj\winproj.exe>" is the path to Project.

    Microsoft Access | Microsoft Project
    ------------------------------------
        1.0, 1.1     |     3.0, 3.0a
           2.0       |  3.0, 3.0a, 4.0
           7.0       |        95
           97        |        95