Запустить Access Report из Delphi

← →
evgenij_ (2007-04-23 12:45) [0]

Помогите плиз-не могу разобраться с этим.
спс.

← →
Сергей М. © (2007-04-23 12:49) [1]

А сам MSAccess-то при этом инсталлирован ?

← →
evgenij_ (2007-04-23 12:50) [2]

ага

← →
Сергей М. © (2007-04-23 12:54) [3]

http://forum.codenet.ru/showthread.php?t=35746

← →
evgenij_ (2007-04-23 13:23) [4]

Эт все хорошо, но матюкается на
Access.Visible := True;
и
ess.DoCmd.OpenReport("TMP_Docs", acViewPreview, EmptyParam, EmptyParam);

← →
Сергей М. © (2007-04-23 13:26) [5]

> матюкается

Что, неужто вот так прямо и пишет, мол, "матюкаюсь" !?)

← →
evgenij_ (2007-04-23 13:30) [6]

:)
нет
Access.DoCmd.OpenReport("TMP_Docs", acViewPreview, EmptyParam, EmptyParam);

В даный момент не может выполнить команду

а
Access.Visible := True;
недопустимая ссылка на свойство Visible

← →
Сергей М. © (2007-04-23 13:33) [7]

приводи полный свой код ..

← →
evgenij_ (2007-04-23 13:34) [8]

const
acViewNormal = $00000000;
acViewDesign = $00000001;
acViewPreview = $00000002;
acQuitPrompt = $00000000;
acQuitSaveAll = $00000001;
acQuitSaveNone = $00000002;
var Access:Variant;
begin
try
Access:=GetActiveOleObject("Access.Application");
except
Access:=CreateOleObject("Access.Application");
end;
Access.Visible := True;

//Access.OpenCurrentDatabase("manager.mdb", true);
Access.DoCmd.OpenReport("TMP_Docs", acViewPreview, EmptyParam, EmptyParam);

← →
evgenij_ (2007-04-23 13:50) [9]

ну и ?

Что "ну и" ?

Строчка Access.Visible := True; у меня чудесно работает, и у тебя обязана работать.

А вот с какого перепугу ты закомментарил Access.OpenCurrentDatabase - это большой вопрос ...

← →
evgenij_ (2007-04-23 15:50) [11]

> А вот с какого перепугу ты закомментарил Access.OpenCurrentDatabase

а у меня база уже открыта

> а у меня база уже открыта

С чего бы вдруг , если CreateOleObject("Access.Application") ?

Запустить Access Report из Delphi Найти похожие ветки