-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Èíòåðôåéñ Access è MS Project

Âòîðíèê, 26 Àâãóñòà 2014 ã. 00:55 + â öèòàòíèê
Äîáðîãî âðåìåíè ñóòîê!
Ñòîèò çàäà÷à âûãðóçèòü â MS Project 2010 èç MS Access ïðîèçâîäñòâåííûå ìàðøðóòû (íå âàæíî ÷èòàé òàáëè÷íûå äàííûå). Î÷åíü ìàëî óäàëîñü íàðûòü èíôû.
Êîä ïî äîáàâëåíèþ íîâîãî çàäàíèÿ:
Dim pjApp As Object
Set pjApp = CreateObject("MSProject.Application")
pjApp.Visible = True
zadanie = ist![Çàêàçû_Ñîäåðæèìîå_Äåòàëüíî.designation] & ":" & ist![Çàêàçû_Ñîäåðæèìîå_Äåòàëüíî.Name] & "(" & ist![ÂåòêàÌàðøðóòàÒåêñò] & ")"
pjApp.ActiveProject.Tasks.Add zadanie

Ðàáîòàåò. Äàëüøå ïî ïðèìåðó Excel âêëþ÷àþ â Project-e çàïèñü ìàêðîñà âñòàâëÿþ êîëîíêó íàïðèìåð, ïåðåíîøó êîä â Access è íèôèãà íå ðàáîòàåò.
Êîíêðåòíî íàäî:
1. Âñòàâèòü íåñêîëüêî òåêñòîâûõ ñòîëáöîâ
2. Çàïîëíèòü ñòðîêè äàííûìè (ïî ñòîëáöàì)
3. Óñòàíîâèòü ñâÿçè è èåðàðõèþ (óðîâåíü ãðóïïèðîâêè, ïëþñèêè :-) )

 ëèòåðàòóðå â îñíîâíîì êàê ðó÷êàìè äåëàòü. Íàó÷èòå ïëèç! Èëè õîòÿ áû íàïðàâüòå.

åøå ìîìåíò:
íà îô. ñàéòå êîä ïî ðàííåìó ñâÿçûâàíèþ:
Sub ModifyProject_Early()
Dim pjApp As MSProject.Application
Set pjApp = New MSProject.Application
pjApp.Visible = True
pjApp.FileOpen "Clocks.mpp"
pjApp.ActiveProject.Tasks.Add "Wind clocks"
pjApp.FileSave
pjApp.FileClose
pjApp.Quit
End Sub
íå êîìïèëèðóåòñÿ õîòÿ áèáëèîòåêè â references âðîäå ïîäêëþ÷èë. Ïîçäíåå ñâÿçûâàíèå ðàáîòàåò.

Ìîæåò êòî-òî óæå ýòî îñâîèë.
Èíôó ÷åðïàë çäåñü
http://msdn.microsoft.com/en-us/library/office/office.vbapj.chm131265(v=office.15)

ÍÓÆÅÍ ÏÈÍÎÊ! ÏËÈÇ!

http://www.sql.ru/forum/1112551/interfeys-access-i-ms-project


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó