Izdelava projektnega načrta

V tej vadnici ustvarite tabelo opravil in tabelo odvisnosti, na obrazec postavite kontrolnik WklGantt, ga vežete in v pogledu obrazca z miško spremenite načrt, pri čemer odvisno opravilo samodejno sledi. Za vse skupaj potrebujete približno petnajst minut.

• Microsoft 365 Access ali Access Runtime, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.23 ali novejšim, registriranim za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
• Nova podatkovna zbirka na zaupanja vrednem mestu.
• Vsak kontrolnik WKL odpre svoj oblikovalnik na enak način: v pogledu načrta list z lastnostmi (F4), zavihek Drugo (Other), vrstica Po meri (Custom), [...] (Odpiranje oblikovalnika kontrolnika).

V oknu Immediate (Ctrl+G) izvedite te vrstice, eno za drugo:

CurrentDb.Execute "CREATE TABLE tblTasks (TaskID COUNTER PRIMARY KEY, ParentID LONG, TaskName TEXT(50), StartDate DATETIME, FinishDate DATETIME, Done DOUBLE, Resources TEXT(100))"
CurrentDb.Execute "CREATE TABLE tblLinks (LinkID COUNTER PRIMARY KEY, FromID LONG, ToID LONG, LinkType LONG, Lag DOUBLE)"
CurrentDb.Execute "INSERT INTO tblTasks (ParentID, TaskName, StartDate, FinishDate, Done) VALUES (0, 'Projekt', #10/5/2026#, #10/12/2026#, 0)"
CurrentDb.Execute "INSERT INTO tblTasks (ParentID, TaskName, StartDate, FinishDate, Done) VALUES (1, 'Načrtovanje', #10/5/2026#, #10/6/2026#, 100)"
CurrentDb.Execute "INSERT INTO tblTasks (ParentID, TaskName, StartDate, FinishDate, Done, Resources) VALUES (1, 'Izvedba', #10/7/2026#, #10/9/2026#, 40, 'Novak')"
CurrentDb.Execute "INSERT INTO tblTasks (ParentID, TaskName, StartDate, FinishDate, Done) VALUES (1, 'Prevzem', #10/12/2026#, #10/12/2026#, 0)"
CurrentDb.Execute "INSERT INTO tblLinks (FromID, ToID, LinkType, Lag) VALUES (2, 3, 0, 0)"
CurrentDb.Execute "INSERT INTO tblLinks (FromID, ToID, LinkType, Lag) VALUES (3, 4, 0, 0)"

LinkType 0 pomeni konec–začetek. Konec je zadnji delovni dan opravila, brez časa.

Ustvarite prazen obrazec, ga shranite kot frmPlan in ostanite v pogledu načrta. Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX (Form Design › Controls › ActiveX Controls), označite WKL Gantt in kliknite V redu. Kontrolnik narišite čez vso širino obrazca in ga poimenujte Gantt1. Shranite obrazec.

Obrazec naj ostane odprt v pogledu načrta. Vstavite standardni modul s to proceduro, postavite kazalec vanjo in pritisnite F5:

Public Sub DefinePlan()
With Forms!frmPlan!Gantt1.Object
    .RecordSource = "tblTasks"
    .KeyField = "TaskID": .ParentField = "ParentID": .TextField = "TaskName"
    .ExpandLevel = 9
    .StartField = "StartDate": .FinishField = "FinishDate": .ProgressField = "Done"
    .ResourcesField = "Resources"
    .DependencySource = "tblLinks"
    .PredecessorField = "FromID": .SuccessorField = "ToID"
    .LinkTypeField = "LinkType": .LagField = "Lag"
    .ScheduleMode = wgsAutomatic
    .ShowCriticalPath = True
    .Columns.Add("TaskName", "Opravilo").Width = 2200
    .Columns.Add("StartDate", "Začetek").Format = "Short Date"
    .Columns.Add("FinishDate", "Konec").Format = "Short Date"
    .TreeColumn = "TaskName"
End With
DoCmd.Close acForm, "frmPlan", acSaveYes
End Sub

Enake nastavitve lahko naredite brez kode: list z lastnostmi, vrstica Po meri [...] in strani oblikovalnika Vir zapisov, Stolpci, Opravila, Odvisnosti ter Koledar in načrtovanje.

Odprite frmPlan v pogledu obrazca. Pokažite na sredino palice Izvedba, pritisnite levo tipko miške, povlecite palico za en dan v desno in jo spustite.

• Pred 4. korakom: Projekt kot povzetna palica traja od 5. 10. do 12. 10. 2026; Načrtovanje je dokončano (temna palica), Izvedba je dokončana 40-odstotno, desno od nje piše „Novak“, Prevzem je 12. 10.; puščice tečejo Načrtovanje › Izvedba › Prevzem; vsa tri opravila so kritična (rdeča).
• Med vlečenjem črtkana palica in zaslonski namig prikazujeta nova datuma.
• Po 4. koraku: Izvedba traja od 8. 10. do 12. 10. (čez vikend); Prevzem se je premaknil na 13. 10., ker je načrt samodejen; Projekt se konča 13. 10. tblTasks vsebuje nove datume. Opravilo, ki ga premaknete ročno, dobi omejitev „začetek ne prej kot“, kot v Microsoft Projectu. Omejitev se shrani samo, če sta preslikani ConstraintTypeField in ConstraintDateField; brez njiju naslednji ukaz Znova načrtuj projekt opravilo Izvedba premakne nazaj takoj za Načrtovanje.

• Načrtovanje opravil z odvisnostmi: ročni način, besedilo predhodnikov, koledar, ukazi priročnega menija.
• Izvoz grafikona v Excel, sliko ali PDF.
• Izmenjava načrtov s programom Microsoft Project.
• Pregled pojmov.