На всякий случай уточню, что это может понадобиться на компьютере или мобильном устройстве в сети, на котором нет нашей программы, но есть Excel (иначе просто открыть "Склад(остатки)", выбрать вариант отчета "В ценах прайс-листа" и нажать "В Excel").
1. Придется переименовать файл базы данных. Для этого программу закрыть, в настройках Windows снять отметку "Скрывать расширения файлов", изменить расширение .xdb на .mdb, щелкнуть по нему ПКМ - "Открыть с помощью" и указать нашу программу (она запомнит новое имя файла, в следующий раз можно запускать обычным образом).
2. - Скопировать текст ниже.
- Нажать в программе Ctrl+F10,
- вставить текст, нажать "ОК".
Dim Q As DAO.QueryDef, SQLstr As String
SQLstr="SELECT Articles.TextName AS FullName, Articles.BarCode, Articles.Code, Sum(Data_Articles.Quantity*Data_Articles.Sign) AS Stock, PriceListes.Price1 AS Price FROM ((Articles INNER JOIN PriceListes ON Articles.ID = PriceListes.ArticleID) INNER JOIN Units ON Articles.UnitID = Units.ID) INNER JOIN Data_Articles ON Articles.ID = Data_Articles.ArticleID GROUP BY Articles.TextName, Articles.BarCode, Articles.Code, PriceListes.Price1"
Q = DB.CreateQueryDef("Склад")
Q.SQL = SQLstr
3. В Excel - Данные, Из Access.
- 1.png (27.26 КБ) Просмотров: 2014
Открыть наш файл .mdb (не знаю, можно ли с устройства под Android войти в сеть и указать файл на другом компьютере).
На следующем шаге была засада - Excel пытается открыть этот файл с монопольным доступом, при нажатии "Проверить соединение" говорит, что файл используется.
- 2.png (18.31 КБ) Просмотров: 2014
Нужно перейти на вкладку "Дополнительно", там будет стоять отметка "Shsre deny write", снять ее и нажать ОК.
- 3.png (14.28 КБ) Просмотров: 2014
Но если с этим разобраться, то дальше все просто - выбрать таблицу "Склад" и т.д.
- 4.png (15.22 КБ) Просмотров: 2014
Сохранить файл, в следующий раз нажимать "Обновить".
- 5.png (44.92 КБ) Просмотров: 2014
P.S.
Можно не переименовывать файл. В Excel - "Из других источников", Выбрать "Из мастера".
- 7.png (62.2 КБ) Просмотров: 2013
Выбрать "Дополнительно".
- 8.png (15.21 КБ) Просмотров: 2013
Выбрать провайдера данных "MS Jet", далее все так же.
- 6.png (19.38 КБ) Просмотров: 2013