ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и Excel
12 сообщений из 12, страница 1 из 1
Access и Excel
    #32777579
Ольга!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ольга!
Участник
ПРивет!
Кто знает подскажите в чём ошибка.
В форме в 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
11.11.2004, 14:16:31
| Ответить | Цитировать | Написать  
Access и Excel
    #32779018
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
Set db = Workspaces(0).OpenDatabase("C:\62\Анализы.mdb")

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

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

Некрасиво
...
Рейтинг: 0 / 0
12.11.2004, 14:08:23
| Ответить | Цитировать | Написать  
Access и Excel
    #32779694
Любитель фоток
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любитель фоток
Гость
Да Ольга нечестно...
*думает что бы еще написать прежде чем попросить фотку.... Ничего не придумывает*
А фотку?!
...
Рейтинг: 0 / 0
12.11.2004, 14:11:43
| Ответить | Цитировать | Написать  
Access и Excel
    #32780044
Ольга!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ольга!
Участник
Ну хорошо!
Просто мне кажется это к делу не относится.
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:40:13
| Ответить | Цитировать | Написать  
Access и Excel
    #32780049
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
зы а фотку можно приаттачить к сообщению и поместить в профиль
...
Рейтинг: 0 / 0
12.11.2004, 15:41:33
| Ответить | Цитировать | Написать  
Access и Excel
    #32780054
Ольга!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ольга!
Участник
В понедельник,посмотрим...
...
Рейтинг: 0 / 0
12.11.2004, 15:42:47
| Ответить | Цитировать | Написать  
Access и Excel
    #32780063
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
а счас нельзя посмотреть? ;)
...
Рейтинг: 0 / 0
12.11.2004, 15:45:00
| Ответить | Цитировать | Написать  
Access и Excel
    #32780067
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
что то наблудается похотливое настроение у мужской половины форума
видимо в природе что - то
...
Рейтинг: 0 / 0
12.11.2004, 15:46:28
| Ответить | Цитировать | Написать  
Access и Excel
    #32780074
Фотография Shurgenz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shurgenz
Участник
а чего блудливого то? анреал то за неделю приелся уже... а фотка - это уже почти реал :)
...
Рейтинг: 0 / 0
12.11.2004, 15:47:58
| Ответить | Цитировать | Написать  
Access и Excel
    #32780078
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
да пятница-тяпница, сам же сказал :)

правда у нас завтра раб. день и время только 14:49 :)
...
Рейтинг: 0 / 0
12.11.2004, 15:48:52
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Access и Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32779655&tid=1670399]:
 0ms
get settings:
 10ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 5ms
others: 234ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


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