Скачать: CL | DM;

Запустить 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]

ну и ?

---

← →
Сергей М. ©   (2007-04-23 14:01) [10]

Что "ну и" ?

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

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

---

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

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

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

---

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

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.037 c