Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и Excel / 12 сообщений из 12, страница 1 из 1
11.11.2004, 14:16:31
    #32777579
Ольга!
Ольга!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
ПРивет!
Кто знает подскажите в чём ошибка.
В форме в Access из списка выбираю значение, в зависимости от этого значения у меня открываются разные листы в книге Excel,ну вообщем, они то открываются, появляется сообщение об ошибке
"База данных приведена пользователем 'Admin' на компьютере '---' в состояние, препятствующее её открытию или блокировке"
База не многопользовательская.
Код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Set appExcel = New Excel.Application
Set db = Workspaces(0).OpenDatabase("C:\62\Анализы.mdb")
Set r = db.OpenRecordset("Date")
'добавляем новую дату в в таблицу Date
    r.AddNew
    r![Дата] = Forms!Access_Excel.txtAreaCode
    r.Update
r.Close

'открытие листа Excel в зависимости от выбора установки в списке

  Select Case [Forms]![Access_Excel]![txtAreaCodeInst]
   Case 5
      appExcel.Workbooks.Open Filename:="C:\62\Blank.xls", ReadOnly:=True
      appExcel.Visible = True
      Workbooks("Blank.xls").Sheets("Blank24_6").Activate
   Case 1
      appExcel.Workbooks.Open Filename:="C:\62\Blank.xls", ReadOnly:=True
      appExcel.Visible = True
      Workbooks("Blank.xls").Sheets("BlankАBT2").Activate
 End Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 10:54:13
    #32779018
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
Set db = Workspaces(0).OpenDatabase("C:\62\Анализы.mdb")

это значит что эта база уже открыта
если хочешь использовать данные базы из которой запущен код делай
так

Set db = currentdb()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 13:59:54
    #32779655
Ольга!
Ольга!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
АлексейК,спасибо за совет,я уже разобралась (дело было в другом).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 14:08:23
    #32779682
Shurgenz
Shurgenz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
А вот это нечестно, Оленька. А если у кого-либо другого будет подобная трабла, он поищет в форуме и найдет как решение Ваше многозначительное
автор...уже разобралась (дело было в другом).

Некрасиво
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 14:11:43
    #32779694
Любитель фоток
Любитель фоток
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
Да Ольга нечестно...
*думает что бы еще написать прежде чем попросить фотку.... Ничего не придумывает*
А фотку?!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:40:13
    #32780044
Ольга!
Ольга!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
Ну хорошо!
Просто мне кажется это к делу не относится.
1.В листах Excel-я у меня были русские и английские буквы,исправила
2.В коде поставила
appExcel.Workbooks("Blank.xls").Sheets("Blank24_6").Activate
вместо
Workbooks("Blank.xls").Sheets("Blank24_6").Activate
3.Таблицу "Date" назвала не зарезервированным словом "Date1"
А фотку...да пожалуйста,где твой e-mail
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:41:33
    #32780049
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
зы а фотку можно приаттачить к сообщению и поместить в профиль
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:42:47
    #32780054
Ольга!
Ольга!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
В понедельник,посмотрим...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:45:00
    #32780063
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
а счас нельзя посмотреть? ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:46:28
    #32780067
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
что то наблудается похотливое настроение у мужской половины форума
видимо в природе что - то
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:47:58
    #32780074
Shurgenz
Shurgenz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
а чего блудливого то? анреал то за неделю приелся уже... а фотка - это уже почти реал :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2004, 15:48:52
    #32780078
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и Excel
да пятница-тяпница, сам же сказал :)

правда у нас завтра раб. день и время только 14:49 :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и Excel / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 353ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670399]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 229ms
total:  353ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]