Записи Друзья Комментарии
rss sql ru access programming
Аватар rss_sql_ru_access_programming

 -Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Invalid link!








Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.
[Обновить трансляцию]

Нравится

Помогите с запросом
Четверг, 01 Июня 2017 г. 10:06 + в цитатник
Добрый день

Помогите пожалуйста с запросом, либо подскажите как иначе можно решить мою задачу.
Мне нужно вывести в запросе все маркировки инструментов и указать их суммарное кол-во в цехе и на складе. Должно получиться примерно так:

SELECT instrument.Markirovka, instrument.kolvo_sklad, Sum(ceh.kolvo) AS [Sum-kolvo]
FROM instrument INNER JOIN ceh ON instrument.id_instr = ceh.id_instr
GROUP BY instrument.Markirovka, instrument.kolvo_sklad;


Только данный запрос не выведет вообще маркировки инструмента, записи о котором отсутствуют в таблице ceh. А мне бы нужно в случае, если нет записей об инструменте в таблице ceh выводить kolvo_ceh=0. Как это можно сделать?

Немного поясню назначение таблиц. В таблице instrument хранятся все наименования инструмента и их кол-во на складе. В таблице ceh хранятся записи какой инструмент какому из рабочих выдан и в каком количестве.

http://www.sql.ru/forum/1261782/pomogite-s-zaprosom
Нравится

Access+Mssql+данные в бинарном виде=иероглифы
Четверг, 01 Июня 2017 г. 09:01 + в цитатник
Добрый день подскажите пожалуйста, подключаюсь из access 2016 к MSSQL 2008 к таблице в режиме чтения, там где данные в бинарном виде выводятся иероглифы
что можно поделать?
Картинка с другого сайта.

http://www.sql.ru/forum/1261772/access-mssql-dannye-v-binarnom-vide-ieroglify
Нравится

Подчиненная форма по перекрестному запросу с условием
Четверг, 01 Июня 2017 г. 04:51 + в цитатник
Доброго времени суток. на вкладке анализ структуры формы main я выбираю регион и показатель. В зависимости от этого у меня работает перекрестный запрос (ZStrData_Cross). Можно ли как-то создать подчиненную форму на основе этого запроса? Чтобы я на вкладке анализ структуры данных выбирал регион и показатель, а внизу отображались данные из запроса (на подобии вкладки Анализ данных)
Базу прилагаю -
https://drive.google.com/open?id=0B_bBwCfw-ZAQUnRRRVZUXzZYOVk

http://www.sql.ru/forum/1261767/podchinennaya-forma-po-perekrestnomu-zaprosu-s-usloviem
Нравится

Загрузка из WORD
Среда, 31 Мая 2017 г. 22:24 + в цитатник
Добрый вечер.

Есть куча отсканированный инвойсов в формате word. каждый инвойс - это одна страница, на которой есть таблица из 6 столбцов и 3-5 строк.

Каким образом можно данные из этих таблиц импортировть в access?

Спасибо

http://www.sql.ru/forum/1261752/zagruzka-iz-word
Нравится

Динамический отчет в Excel.
Среда, 31 Мая 2017 г. 13:13 + в цитатник
Прошу помощи. Пытаюсь динамически сделать в Excel отчете границы у ячеек. 
Set xl = CreateObject("Excel.Application")
Set MyRange = xl.Range("A1", "G" & rs.RecordCount + 1)
    MyRange.Borders(xlDiagonalDown).LineStyle = xlNone
    MyRange.Borders(xlDiagonalUp).LineStyle = xlNone
With MyRange.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With



MyRange.Borders(xlDiagonalDown).LineStyle = xlNone

выдетает ошибка 

Application defined or object defined error


смотрела многие примеры, отличий не вижу, смотрела как макрос отрабатывает если создавать границы из самого Excel ... Все идентично.... может не хватает каких то описаний или подключённых библиотек

http://www.sql.ru/forum/1261705/dinamicheskiy-otchet-v-excel
Нравится

Добавление в таблицу данных из массива без повторов
Среда, 31 Мая 2017 г. 09:56 + в цитатник
Добавляю в таблицу Output_data данные следующим способом:

Dim db As Database
Dim varArray() As Variant
Dim per1 As Variant
Dim strSQL As String
Dim tdf As DAO.Recordset
Dim rstData As DAO.Recordset
Dim eData As Integer
Dim fData As Integer
Dim efields As Integer

Set db = CurrentDb()
efields = 10
strSQL = "SELECT Data.id_incoming_indicator, Data.id_region, Data.id_item_str, Data.twelvemonth, Data.id_unit, Data.ind_value, unit.name_unit, IncInd.name_incoming_indicator, StrItem.name_item_str, Data.id_data FROM unit INNER JOIN (StrItem INNER JOIN (IncInd INNER JOIN Data ON IncInd.id_incoming_indicator = Data.id_incoming_indicator) ON StrItem.id_item_str = Data.id_item_str) ON unit.id_unit = Data.id_unit WHERE (((Data.id_incoming_indicator)=" & [Forms]![main]![Data].[Form]![p1] & ") AND ((Data.id_region)=" & [Forms]![main]![Data].[Form]![p2] & ") AND ((StrItem.name_item_str)='-'));"

Set rstData = db.OpenRecordset(strSQL, dbOpenDynaset)

If rstData.RecordCount = 0 Then
    rstData.Close
    MsgBox "Недостаточно данных", 64
    Exit Sub
End If

rstData.MoveLast
rstData.MoveFirst
eData = rstData.RecordCount

If rstData.RecordCount = 1 Then
    rstData.Close
    MsgBox "Недостаточно данных", 64
    Exit Sub
End If

ReDim varArray(efields, eData)
varArray = rstData.GetRows(eData)
per1 = varArray(4, i)

Set tds = db.OpenRecordset("Output_data", dbOpenDynaset)


If (p31 = 1) And (p7 = 1) Then
For i = 1 To eData - 1
tds.AddNew
tds!out_value = varArray(5, i) - varArray(5, i - 1)
tds!id_output_indicator = 1
tds!id_outindtype = 1
tds!id_data = varArray(9, i)
tds!twelvemonth2 = varArray(3, i - 1)
tds!id_unit = per1
tds.Update
'End If
Next i
End If

If (p31 = 3) And (p7 = 1) Then
tds.AddNew
tds!out_value = ((varArray(5, eData - 1) - varArray(5, 0)) / (eData - 1))
tds!id_output_indicator = 1
tds!id_outindtype = 3
tds!id_data = varArray(9, eData - 1)
tds!twelvemonth2 = varArray(3, 0)
tds!id_unit = per1
tds.Update
End If

If (p31 = 2) And (p7 = 1) Then
For i = 1 To eData - 1
tds.AddNew
tds!out_value = varArray(5, i) - varArray(5, 0)
tds!id_output_indicator = 1
tds!id_outindtype = 2
tds!id_data = varArray(9, i)
tds!twelvemonth2 = varArray(3, 0)
tds!id_unit = per1
tds.Update
Next i
End If

Set tdsData = Nothing

rstData.Close
Set rstData = Nothing

Можно ли добавить какие то условия, чтобы повторяющиеся значения не добавлялись?
Базу прилагаю на гугл диске https://drive.google.com/open?id=0B_bBwCfw-ZAQUnRRRVZUXzZYOVk

http://www.sql.ru/forum/1261679/dobavlenie-v-tablicu-dannyh-iz-massiva-bez-povtorov
Нравится

Изменение или блокировка поля в форме в зависимости от другого поля
Вторник, 30 Мая 2017 г. 18:13 + в цитатник
Доброго времени суток, знатоки.
Пожалуйста, подскажите, как сделать так чтобы если поле водитель пустое, то поле статус блокируется для ввода, или например = "в ожидании", если поле водитель не пустое, то поле статус открыто для ввода данных.

http://www.sql.ru/forum/1261629/izmenenie-ili-blokirovka-polya-v-forme-v-zavisimosti-ot-drugogo-polya
Нравится

Возможно ли задать двустороннюю печать в аксе ?
Вторник, 30 Мая 2017 г. 17:41 + в цитатник
Здравствуйте, знатоки.


Админы достали. Накатили новый драйвер на принтсервер, и после этого поломалась двусторонняя печать.

Есть ли какая-то возможность задать из кода настройки печати ?

http://www.sql.ru/forum/1261624/vozmozhno-li-zadat-dvustoronnuu-pechat-v-akse
Нравится

Странный вывод запроса.
Вторник, 30 Мая 2017 г. 15:32 + в цитатник
В базе данных построены два запроса, каждый из которых собирает некоторый набор записей.
Эти запросы используются как источник данных третьего запроса, причём применяется LEFT JOIN. Соответственно я ожидаю, что для тех записей одного подзапроса, которым нет соответствия во втором подзапросе, на месте полей вывода из второго подзапроса будет Null... а вот хрен! И я не понимаю, почему...

Теперь конкретно.

Вот первый подзапрос
+ SubQuery1
SELECT Панели.Наименование & ' - ' & Порты.Порт AS Порт1, Порты.Код
FROM Панели 
INNER JOIN Порты ON Панели.Код = Порты.Панель

Вот второй подзапрос
+ SubQuery2
SELECT Кроссировки.Порт1, Панели.Наименование & ' - ' & Порты.Порт AS Порт2
FROM Панели 
INNER JOIN 	(
			Порты 
			INNER JOIN Кроссировки ON Порты.Код = Кроссировки.Порт2
			) ON Панели.Код = Порты.Панель

Вот запрос, использующий их:
+ Кроссирование-1
SELECT SubQuery1.Порт1 AS Порт1, SubQuery2.Порт2 AS Порт2, SubQuery1.Код AS Код1, SubQuery2.Порт1 AS Код2
FROM SubQuery1 
LEFT JOIN SubQuery2 ON SubQuery1.Код = SubQuery2.Порт1;

или он же, но с подстановкой текста:
+ Кроссирование-2
SELECT SubQuery1.Порт1 AS Порт1, SubQuery2.Порт2 AS Порт2, SubQuery1.Код AS Код1, SubQuery2.Порт1 AS Код2
FROM 	(
		SELECT Панели.Наименование & ' - ' & Порты.Порт AS Порт1, Порты.Код
		FROM Панели 
		INNER JOIN Порты ON Панели.Код = Порты.Панель
		) AS SubQuery1 
LEFT JOIN 	(
			SELECT Кроссировки.Порт1, Панели.Наименование & ' - ' & Порты.Порт AS Порт2
			FROM Панели 
			INNER JOIN 	(
						Порты 
						INNER JOIN Кроссировки ON Порты.Код = Кроссировки.Порт2
						) ON Панели.Код = Порты.Панель
			) AS SubQuery2 ON SubQuery1.Код = SubQuery2.Порт1;


Понятно, для тех записей первого подзапроса, которым нет соответствия во втором, я в полях SubQuery2.Порт2 AS Порт2 и SubQuery2.Порт1 AS Код2 ожидаю увидеть Null... и в поле SubQuery2.Порт1 AS Код2 я этот Null и получаю... но вижу вместо него в поле SubQuery2.Порт2 AS Порт2 литерал " - ".

Наблюдение демонстрирует скриншот ("Кроссирование-2" - это имя сохранённого статически последнего запроса, который с подстановками).

ПОЧЕМУ???

http://www.sql.ru/forum/1261598/strannyy-vyvod-zaprosa
Нравится

Фильтрация при загрузке формы
Вторник, 30 Мая 2017 г. 12:54 + в цитатник
Добрый день, знающие люди!
Подскажите, пожалуйста, как поставить фильтр по имени пользователя в форме.

http://www.sql.ru/forum/1261568/filtraciya-pri-zagruzke-formy
Нравится

Поделитесь опытом - как одним запросом свести данные в несколько столбцов
Вторник, 30 Мая 2017 г. 08:43 + в цитатник
Нужна Ваша помощь, кто как делает? Хотя бы направьте...

Подскажите, как одним запросом свести таблицу с данными к своду в виде в приложенном файле.

http://www.sql.ru/forum/1261529/podelites-opytom-kak-odnim-zaprosom-svesti-dannye-v-neskolko-stolbcov
Нравится

БД access + Win10
Понедельник, 29 Мая 2017 г. 10:33 + в цитатник
Доброго дня!

Есть некая складская база данных с расширением accdr, до перехода на Win10 все прекрасно работало, все макросы запускались.
После того как на рабочем ПК обновили ОС до Win10 , БД перестала запускаться. Сначала ругалась на отсутствие файла MSCOMCTL.OCX, я добавил этот файлик, зарегистрировал его в системе.
Теперь запускается начальный интерфейс , но с предупреждением что макросы отключены ( только для ACCDE), после включения - происходит сжатие БД и вылет с общей ошибкой "Приложение остановлено из-за ошибки выполнения".

Т.к. этот ПК рабочий - я очень сильно ограничен в действиях в плане установки/переустановки софта, бд мне досталась от прошлого сотрудника, который её и создал.

В References отсутствуют библиотеки со значением "Missing", установлены последние обновления Win/Office, обновлен Net Framework. Я думаю что проблема в каких-либо отсутствующих файлах, т.к. есть сотрудники, у которых на Win10 все это дело прекрасно работает.

Подскажите, пожалуйста, в каком направлении стоит двигаться, уже столько сайтов и форумов просмотрел, ничего дельного не нашёл.

http://www.sql.ru/forum/1261424/bd-access-win10
Нравится

Сравнение 1С и Access
Понедельник, 29 Мая 2017 г. 08:57 + в цитатник
На предприятии сделали файл Excel, и в него менеджеры стали записывать сколько продукции завод должен выпустить.
Потом выяснили, что это очень интересно производственникам. Потом производственники захотели в него писать, кто изготавливает данное изделие.
Потом вспомнили, что очень важно из каких комплектующих состоит изделие - на случай ремонта.
Потом вспомнили, что кто то имеет право на запись, кто то не имеет. Excel блокирует запись в файл.

Возник вопрос, на какую платформу перенести это, на Access или на 1С?

http://www.sql.ru/forum/1261417/sravnenie-1s-i-access
Нравится

Добавить в таблицу записи которые не были ранее добавленны
Воскресенье, 28 Мая 2017 г. 16:28 + в цитатник
Приветствую.

У меня етсть запрос
автор
INSERT INTO Доска ( [Ид дерева], Длина, Ширина, Толщина, [Кол-во], Тип )
SELECT Дерево.Код, Дерево.Длина, Дерево.Толщина, Дерево.Толщина, 0 AS Выражение1, Дерево.Тип
FROM Дерево;


Запрос вызывается много раз, поэтому каждый раз появляются дубли записей.
Надо сделать так что бы при добавлении если такое [Ид дерева] уже есть в таблице [Доска] то строка не добавлялась.

http://www.sql.ru/forum/1261386/dobavit-v-tablicu-zapisi-kotorye-ne-byli-ranee-dobavlenny
Нравится

Run-time error '94'
Воскресенье, 28 Мая 2017 г. 09:11 + в цитатник
Здравствуйте,
Помогите исправить:

Private Sub Form_Current()

Dim varRef As Date
varRef = Me.ReferralDate
If Me.ReferralDate = IsNull(varRef) Then
Me.ReferralDate.Enabled = False
End If

End Sub

Заранеее спасибо!

http://www.sql.ru/forum/1261371/run-time-error-94
Нравится

Отчет - подсчёт итогов
Суббота, 27 Мая 2017 г. 16:33 + в цитатник
Здравствуйте!
Столкнулся с проблемой суммирования данных в отчёте.
Не правильно считается два результата (указанны красной рамкой):
Картинка с другого сайта.

Структура отчёта имеет такой вид (неправильно работающие поля в примечании отчета не видны - удалил):
Картинка с другого сайта.

База состоит из 4-х таблиц:
Картинка с другого сайта.

Данные для отчета формируются используя цепочку из 3-х запросов:
1
SELECT DISTINCTROW тМенеджеры.ID, тМенеджеры.Менеджеры, 
First(тДанные.ID) AS [First - тДанные_ID], 
Sum(тДанные.КоличествоКлиентов) AS SumКлиентов, 
Sum(тДанные.Сумма) AS SumСумма
FROM тМенеджеры INNER JOIN тДанные ON тМенеджеры.ID = тДанные.ID_tbl_1
GROUP BY тМенеджеры.ID, тМенеджеры.Менеджеры;

2
SELECT тПрофиль.Коэффициент, тНабор.ID_tbl_2, тНабор.IDпрофиля, тНабор.Площадь, 
[Коэффициент]*[Площадь] AS Баллы
FROM тПрофиль INNER JOIN тНабор ON тПрофиль.ID = тНабор.IDпрофиля;

3
SELECT [1].Менеджеры, [1].SumКлиентов, [1].SumСумма, [2].IDпрофиля, 
Sum([2].Площадь) AS SumПлощадь, 
Sum([2].Баллы) AS SumБаллы
FROM 1 INNER JOIN 2 ON [1].[First - тДанные_ID] = [2].ID_tbl_2
GROUP BY [1].Менеджеры, [1].SumКлиентов, [1].SumСумма, [2].IDпрофиля
ORDER BY [1].SumСумма DESC , Sum([2].Площадь) DESC;

Данные по запросу "3" имеют такой вид:
Картинка с другого сайта.

В примечании отчёта использовал для суммирования следующие поля
для ОбщейСуммы: =Sum([SumСумма])
для СуммыКлиентов: =Sum([SumКлиентов]) - вот они и считают неверно.

Пробовал группировать данные по разному... Уже сломал всю голову. Вчера день убил на создание запросов. Сегодня - на создание отчёта.
Помогите разобраться, пожалуйста! Хотелось бы решить эту задачу без использования подчиненных отчетов.
Базу прилагаю в архиве.

http://www.sql.ru/forum/1261354/otchet-podschyot-itogov
Нравится

Требуется утилита (драйвер) к сканеру штрих-кодов
Пятница, 26 Мая 2017 г. 18:35 + в цитатник
Всем доброго времени суток, форумчане.
Хотим внедрить сканер штрих-кодов для операций учета готовой продукции.
Штрих-код наносится и считывается с бумажного носителя.
Изначально код формируется и наносится на бумагу программно. Этот вопрос решен.

Проблема состоит в следующем.
Необходим сканер и утилита (драйвер) к нему с помощью которого можно загрузить коды изделий в сканер, а затем после их сканирования снова загрузить их в базу. База данных MS Access, в которой всего две простенькие таблички - для загрузки данных и для их выгрузки.
Сканер будет закупаться в зависимости от решения этого вопроса.

Есть много предложений для 1С, но этот вариант не катит, так как уже разработано приложение в Access для ведения учета и данные нужны именно в его формате.
Кто может помочь? Таблички со структурой базы готов выслать тому, кто заинтересуется. По оплате - вопрос отдельный и решается персонально.

http://www.sql.ru/forum/1261302/trebuetsya-utilita-drayver-k-skaneru-shtrih-kodov
Нравится

Очень простой вопрос - Какой макрокомандой задать свойство видимости "надписи"?
Пятница, 26 Мая 2017 г. 12:42 + в цитатник
Как мкарокомандой сделать типа этого?

Формы!Выбор Данных!Надпись11.visible=False

Или как макрокомандой поменять текст в textbox ?

Примечание! Вопрос не про VBA ))

http://www.sql.ru/forum/1261254/ochen-prostoy-vopros-kakoy-makrokomandoy-zadat-svoystvo-vidimosti-nadpisi
Нравится

Добавление в таблицу данных из массива
Пятница, 26 Мая 2017 г. 11:30 + в цитатник
Добрый день, не подскажите можно ли с помощью VBA заполнить данные таблицы, которая уже существует в базе и ее структура определена?
В качестве примера: хочу добавить в таблицу output_data в поле out_value данные массива Arr (i)
Базу выложил на диск, потому что она больше максимально возможного размера вложения
https://drive.google.com/open?id=0B_bBwCfw-ZAQUnRRRVZUXzZYOVk

Dim db As Database
Dim varArray() As Variant
Dim strSQL As String
Dim rstData As DAO.Recordset
Dim eData As Integer
Dim efields As Integer
 
Set db = CurrentDb()
efields = 9

strSQL = "SELECT Data.id_incoming_indicator, Data.id_region, Data.id_item_str, Data.twelvemonth, Data.id_unit, Data.ind_value, unit.name_unit, IncInd.name_incoming_indicator, StrItem.name_item_str FROM unit INNER JOIN (StrItem INNER JOIN (IncInd INNER JOIN Data ON IncInd.id_incoming_indicator = Data.id_incoming_indicator) ON StrItem.id_item_str = Data.id_item_str) ON unit.id_unit = Data.id_unit WHERE (((Data.id_incoming_indicator)=" & [Forms]![main]![Data].[Form]![p1] & ") AND ((Data.id_region)=" & [Forms]![main]![Data].[Form]![p2] & ") AND ((StrItem.name_item_str)='-'));"

Set rstData = db.OpenRecordset(strSQL, dbOpenDynaset)

rstData.MoveLast
rstData.MoveFirst
eData = rstData.RecordCount

ReDim varArray(efields, eData)
varArray = rstData.GetRows(eData)

Dim Arr() As Variant
ReDim Arr(eData)

For i = 1 To eData - 1
Arr(i) = varArray(5, i) / varArray(5, i - 1)
Next i

rstData.Close
Set rstData = Nothing


End Sub

http://www.sql.ru/forum/1261246/dobavlenie-v-tablicu-dannyh-iz-massiva
Нравится

Из VBA вызываю Макрос Access (RunMacro), как узнать выполнены ли процедуры RunMacro?
Пятница, 26 Мая 2017 г. 10:00 + в цитатник
Алгоритм выполнения поставленной задачи:
1. В процедуре VBA проверяется коллекция файлов папки, если обнаруживается подходящий файл, то
2. Выполняется Макрос (RunMacro), далее
3. Продолжаем поиск согласно пункту 1.

Таким образом, VBA находит файл и запускает Макрос Access, и так несколько раз подряд. В какой-то момент Макрос Access обнаруживает ошибку №3051. После этого я останавливаю Макрос Access, в редакторе VBA кликаю Debug, далее Run и Макрос Access далее работает до очередной ошибки.

Подскажите как узнать в VBA выполнен ли запрос в Макрос Access?

http://www.sql.ru/forum/1261230/iz-vba-vyzyvau-makros-access-runmacro-kak-uznat-vypolneny-li-procedury-runmacro

Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 261 260 [259] 258 257 ..
.. 1 Календарь

О проекте