Доброго времени суток.
В связи со вступлением в силу ФЗ-54, предпринимателям необходимо указывать чеке наименование товара.
Вбивать его в базу данных вручную, дело ооочень продолжительное. При этом им надо успеть до 1 июля 2018 г.
Идея вытаскивать по штрих-коду наименование из интернета (barcode-list ru) не нова, но на данном форуме не нашел подходящих тем.

Взяв за основу пример 19429017, предложенный guest_rusimport, попытался "допилить" под собственные параметры.
Вроде бы всё ясно и понятно, но как следует из третьего закона Чизхолма:
"Даже если ясность изложения исключает неверное толкование, все равно найдется кто-то, кто поймет Вас неправильно."

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

Пример базы во вложении. Таблица и форма "Форум" - исходники, таблица и форма "ШтрихКод" - доработка.

P/S Может кто сталкивался, какие есть в интернете сервисы с штрих-кодами для свободного доступа?

http://www.sql.ru/forum/1294625/shtrih-kod-tovara-iz-interneta

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

SELECT Accounts.Client, Clients.ClientName, Payments.Account, Payments.PayTime, Sum(Amount) AS [Sum-Amount]
FROM (Clients INNER JOIN Accounts ON Clients.ClientID = Accounts.Client) INNER JOIN Payments ON Accounts.AccountNumber = Payments.Account
WHERE PayTime LIKE '*.03.*' OR PayTime LIKE '*.09.*' OR PayTime LIKE '*.01.*' OR PayTime LIKE '*.02.*' OR PayTime LIKE '*.04.*' OR PayTime LIKE '*.05.*' OR PayTime LIKE '*.06.*' OR PayTime LIKE '*.07.*' OR PayTime LIKE '*.08.*' OR PayTime LIKE '*.10.*' OR PayTime LIKE '*.11.*' OR PayTime LIKE '*.12.*'

GROUP BY Accounts.Client, Clients.ClientName, Payments.Account, Payments.PayTime;

В SQL я новичок и подобная задача оказалась не совсем по мне. Подтолкните хотя бы, пожалуйста, в нужом направлении.

Необходимо вывести сумму платежей (в Payments.Amount указаны платежи для аккаунта за разные даты) за каждый месяц для каждого аккаунта.

http://www.sql.ru/forum/1294600/zapros-na-summu-platezhey-dlya-kazhdogo-klienta-za-kazhdyy-mesyac

Здравствуйте!

У меня много лет работала программка на Access 2003 под WIN ХР , в которой обновлялась присоединённая таблица командой
dbs.Execute "UPDATE SPC1_TRANSBILL SET PR_DBF='t" & nviza1 & "' WHERE NVIZA =" & nviza1 & ";"

Этой командой обновлялись все(!) записи присоединённой таблице. Проблем никогда не было.

После перехода на Access 2010 под WIN 7 эта команда стала обновлять только одну(!) запись по условиям

Сделал и программно и вручную запрос на обновление, с такой же командой, с конкретным параметром nviza1:

UPDATE SPC1_TRANSBILL SET SPC1_TRANSBILL.PR_DBF= 't5168'
WHERE SPC1_TRANSBILL.NVIZA=5168;

При нажатии "выполнить"(запрос) появляется окно сообщения



Записей, в этом конкретном случае - 7шт., одну обновляет, остальные, получается, блокируются.
Подскажите, пожалуйста, что можно сделать.

p.s. в настройках ACCESS в "Блокировки по умолчанию" отмечал и "Отсутствует" и "Изменяемой записи"
Так же ставил и снимал флажок "Открытие БД с использованием блокировки на уровне записей".
У запроса ставил "Блокировка записей отсутствует". (ACCESS после этого закрывал-открывал, таблицу переприсоединял)
Ничего не изменялось, всё так же обновляет только одну запись.

http://www.sql.ru/forum/1294590/obnovlyaetsya-tolko-odna-zapis-ostalnye-blokiruutsya

Добрый день.
база А2000, разделенная БД, ОС Win10, AccessRuntime2007, 5 пользователей (mde)
При работе периодически возникает проблема в виде сообщения, что база данных имеет нераспозн.формат...
После сжатия\восстановления базы mdb все приходит в норму до следующего подобного глюка, который бывает от раза в несколько дней до нескольких раз в день. Проверка самой базы (таблиц, индексов и проч) после восстановления ничего не дает, внешне все выглядит нормально.
LDB файл иногда после глюка не удаляется.
До этого программа работала несколько лет без проблем. Субъективно грешим на обновления win10, которые были в мае. Такая же программа есть в другом офисе, там Win7 (смешанная с XP), замечаний нет.
Посоветуйте, куда копать (параметры файла и проч), может кто сталкивался с подобным после обновления ОС?

http://www.sql.ru/forum/1294578/problemy-s-faylom-bazy

Есть класс "clsSuperClass"

Option Compare Database

Private WithEvents m_appFrm As Form


Public Sub init(ByRef frm As Form)
    Debug.Print "init"
    Set m_appFrm = frm
    
    m_appFrm.OnUnload = "[Event Procedure]"
    m_appFrm.OnClose = "[Event Procedure]"
End Sub

Public Sub deinit()
    Set m_appFrm = Nothing
End Sub

Private Sub m_appFrm_Unload(Cancel As Integer)
    Debug.Print "m_appFrm_Unload"
End Sub

Private Sub m_appFrm_Close()
    Debug.Print "m_appFrm_Close"
End Sub

Private Sub Class_Initialize()
    Debug.Print "Class_Initialize"
    Set m_appFrm = Nothing
End Sub


Private Sub Class_Terminate()
    Debug.Print "Class_Terminate"
    Set m_appFrm = Nothing
End Sub

Есть форма "frmEx":

Option Compare Database
Option Explicit

Private cls As New clsSuperClass

Private Sub Form_Load()
    cls.init Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'Set cls = Nothing
End Sub

Суть в том, что 2010 Аксе код формы в событии Unload(если строчку раскомментировать) - проходит спокойно, тогда как в 97 аксе - вызывает жестокое падение. Тогда как с закомментированной строчкой не проходит событие класса - Terminate.


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


Почему меня это волнует? Таки если не проходит событие Terminate вроде как ссылка где-то должна оставаться, а это плохо.


Пример прикреплен.

http://www.sql.ru/forum/1294501/perekrestnye-ssylki-na-formu-i-klass

Может кому-то будет полезно (если я не так понял, поправьте меня)

При выполнении некоторых запросов иногда приходится отключать предупреждения типа "Существующая таблица будет удалена".
Но я заметил, что это действует только при запуске запросов методом docmd.runsql. А Currentd.execute всё равно ругается.

http://www.sql.ru/forum/1294411/docmd-setwarnings-false

Всем привет!

На данный момент я успешно импортирую данные следующей строчкой:

DoCmd.RunSQL ("SELECT * INTO [Импортировать] FROM [Sheet1$A4:f2049] IN 'd:\Загрузки\list.xls'[EXCEL 5.0;]")

Но я нашёл на форуме чуть другие примеры

strSQL = "SELECT * FROM [" & NameList & Диапазон & "$] IN '" & FilePath & "'[Excel 8.0;IMEX=1;]"
SELECT *FROM [TDSheet$A6:O20] IN 'C:\Temp\test.xlsx'[Excel 12.0; HDR=No; IMEX=1];

Я не до конца понимаю все предписания
1. IMEX=1 (я узнал, что это заставляет Access импортировать все данные как текстовые)
2. HDR=No (вообще дупля не режу)
3. Excel version (тут должна быть версия моего офиса или того файла, который я импортирую?)

http://www.sql.ru/forum/1294409/import-iz-excel-sintaksis

Добрый день многоуважаемые форумчане!
Прошу совета (ну дальше как в теме)....
Заказчик БД изготавливает Изделия, которые в свою очередь состоят из Деталей. Все эти детали, естественно, делают Сотрудники. Время изготовления Изделия не один день. В конце рабочего дня, а может и нескольких дней оператору предоставляются сведения о Деталях, которые изготовлены Сотрудниками для внесения информации в запланированные к производству Изделия.
По окончании необходимо проконтролировать стадии изготовления Изделий, а также подсчитать выполненную работу Сотрудниками за различные промежутки времени.
Все было бы хорошо: разницу при вводе данных о необходимом для изготовления остатке Деталей (для удобства ввода оператору) подсчитать не трудно, вывести на итоговую форму разницы, проценты выполнения и прочую тех.информацию - проблем нет. Но, иногда вводимое количество Деталей превышает количество, необходимое для изготовления Изделия, то есть образуются излишки, которые можно будет использовать потом.
Поясню:
Слова, выделенные жирным - таблицы. Сведения о изготовленных деталях хранится в табличке Работа, в которой, в свою очередь, вносятся код Детали, код Сотрудника, код Изделия, номер заказа (отдельная таблица План), дата, когда была учтена работа по конкретной детали и количество изготовленных деталей.
Я принял решение излишки писать в таблицу Работа только без номера заказа. То-есть, и работу сотрудника видно( для зарплаты), и излишки, как говорится всегда под рукой.
Но есть одно НО..., Когда настает время для внесения излишков под новый заказ (типа просто присвоить записи номер нового заказа), возникают известные трудности, а именно в количестве деталей, например, нужно 3 детали, а в излишках есть две записи с одной и четырьмя деталями.
Вот отсюда я и прошу совета, как бы все это реализовать (именно, учет излишков) с минимальными телодвижениями для пользователя и с известной долей элегантности для меня?
Еще оговорюсь, БД в разработке, окончательное решение по ней не принято, так что уповаю на коллективный разум.
Вообщем, Остапа несло... ©

http://www.sql.ru/forum/1294380/nuzhen-sovet-y-po-rabote-bd

И так, напрямую подключаюсь к таблице сервера, но не могу получить данные таблицы

Public Sub main()
    Dim cnt As ADODB.Connection
    Dim etp, msk As Object
    Set etp = CreateObject("ADODB.Recordset")
    Set msk = CreateObject("ADODB.Recordset")
Set cnt = New ADODB.Connection
cnt.ConnectionString = "ODBC;Description=test;Driver=SQL Server; SERVER=rtvs-sql1204.local;APP=Microsoft Office 2010; UID=user;PWD=111111;DATABASE=db_production;TABLE=dbo_tehpro_tblprocessdefinitions"
'конектимся прямо к таблице
cnt.Open
Ask = "SELECT [subdivision], [master], [code], [element_def] FROM [dbo_tehpro_tblprocessdefinitions]"
Set etp = cnt.Execute(Ask)
cnt.Close
End Sub

Что я делаю не так?

http://www.sql.ru/forum/1294277/tuplu-s-zaprosom

О великие мыслители, кто знает ответ на такой вопрос:
Если я назову процедуру на русском языке, имеет ли это значение после компиляции проекта в ACCDE? Смогу ли я работать с этим файлом в английской версии MS Office?

http://www.sql.ru/forum/1294267/kompilyaciya-mashinnyy-kod-vospriyatie-russkih-simvolov

Подскажите, пожалуйста, with events работает только со "встроенными" событиями формы или контрола? Можно ли в 97 подписаться на вызов ф-ии модуля формы(или модуля класса) каким-нибудь образом?

http://www.sql.ru/forum/1294254/msa-97-and-with-custom-events

Добрый день!
Есть база данных, которая работает через odbc связь с MS SQL Server. В данной базе данных есть параметр Ассортимент, в котором порядка 16тыс записей.

Если на форму добавить комбобокс, у которого Тип Набора Записей ссылается на таблицу Ассортимент, то при открытии данной формы SQL Server блокирует таблицу Ассортимент, и не дает добавлять записи в нее. в Activity Monitor появляется запись Async_Network_IO

Как я разобрался это связано, с тем, что Access не забирает сразу все записи таблицы Ассортимент, а забирает небольшими порциями. А SQL Server не может понять, что незакрытое подключение не зависло и блокирует таблицу.

Каким образом можно избавиться от данной блокировки? Как заставить SQL Server не блокировать эту таблицу, или заставить Access забирать все данные таблицы?

http://www.sql.ru/forum/1294151/blokirovka-tablicy

Есть таблица "Бронирование" и там "Предп. дата возврата"
Накидываю макрос на кнопку на своей форме, используя макрос "Если"
Там задаю вот такое выражение:
[Бронирование]![Предполагаемая дата возврата]<(Дата()-90)

То, что красным - как я считаю - не верно

Как сделать чтобы если есть хоть одна запись, удовлетворяющая условию <(Дата()-90), то макрос отработал бы?

Если выражение истина, то у меня выводится окно сообщения

http://www.sql.ru/forum/1294149/postroitel-vyrazheniy-sravnenie-po-vsem-zapisyam

Добрый день!
В БД существует прилинкованая через ODBC таблица Ассортимент.
Для формы источником записей является следующий запрос:

+

SELECT Ассортимент.КодИздел, Ассортимент.Наимен, Ассортимент.НаименПолн, Ассортимент.НаименАнгл, Ассортимент.НаименКонстр, Ассортимент.Цена, Ассортимент.КодВход, Ассортимент.ТипИзд, Ассортимент.Метка, Ассортимент.Коментарий, Ассортимент.Дилер, Ассортимент.КодТ, Ассортимент.ГруппаТ, Ассортимент.ЕдИзм, Ассортимент.Скидка, Ассортимент.СрокПост, Ассортимент.Модели, Ассортимент.ПРименяемость, Ассортимент.Назначение, Ассортимент.НетДокум, Ассортимент.КомплексВх, Ассортимент.Стар, Ассортимент.МинОстаток, Ассортимент.Резерв, Ассортимент.Аналог, Ассортимент.РЭ, Ассортимент.ЗИП, Ассортимент.ПРимечДляНас, Ассортимент.Сорт, Ассортимент.Описание FROM Ассортимент;

При попытке сохранить запись в этой форме возникает ошибка:

ODBC - ошибка обновления присоединенной (связанной( таблицы Ассортимент. [Microsoft][ODBC SQL Server Driver] Истекло время ожидания запроса (#0)

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

В чем проблема и как ее решить? Заранее спасибо.

http://www.sql.ru/forum/1294007/oshibka-dobavleniya-zapisi-v-forme

Здравствуйте, дорогие форумчане!
Прошу Вас помочь мне с функциями открытия файлов. Я уже пытался по форуму найти, но как то не очень и пока рабочий вариант был только такой:

Sub opnfl(fname As String)
On Error GoTo ext
CreateObject("WScript.Shell").Run fname
Exit Sub
ext:
MsgBox "Не могу открыть файл!"
End Sub

При этом выпадает ошибка:
"Run-time error '-2147024894 (80070002)':
Method 'Run' of object 'IWshShell3' failed"

Т.е. вот эта конструкция работала, а потом внезапно нет
Памагити, блин, пожалуйста

____
vk.com/taenfox

http://www.sql.ru/forum/1293929/zapusk-otkrytie-faylov-i-papok

Здравствуйте, форумчане!
Помогите составить запрос.
Есть две таблицы.
В одной содержится: тип товара, наименование, дата прихода, пришедшее количество.
Во второй: тип товара, наименование, дата отгрузки, отгруженное количество.
Нужно составить запрос с расчетом наличия по дате. То есть, сколько и какой товар уже пришел на дату запроса и если он уже успел отгрузится вычесть отгруженное количество.
За ранее спасибо за помощь!!!

http://www.sql.ru/forum/1293921/zapros-po-date-s-dopolnitelnym-usloviem

Привет

Решил самостоятельно сделать функцию шифрования RSA
Первая проблема, с которой я столкнулся - это вычисление чисел, совсем маленьких в сравнении с поставленной целью.
<sub>Public Sub test()

Debug.Print 60 ^ 11 Mod 899

End Sub</sub>
Эта процедура выдаёт ошибку Owerflow при делении по модулю, а калькулятор Windows считает. Кто-нибудь знает, как это решить?

http://www.sql.ru/forum/1293916/vychislenie-bolshiy-chisel-owerflow

Встроенный в Access архивариус очень несовершенен. Он выводит информацию только в отчёт и в неудобном виде. А мне надо вывести информацию в таблицу. Для поиска, обработки и т.п.
Когда-то я сам писал подобный архивариус, но сейчас никак не могу его найти. После нескольких переездов потерян. Может где-то в архивах на дисках что-то и лежит. Но пока не найдено.

Может у кого-нибудь есть под рукой что-то похожее? Или кто посоветует, какую-нибудь программу?

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1293915/arhivariusy-baz-dannyh-access

Здравствуйте,

вынужденно занимаюсь немного не своим делом, задание такое прилетело:
имею в таблице записи вида (обычные текстовые поля):

"=>Крокодил => Слон => Бегемот =>"
"=>Лиса => Волк => Заяц =>"

если пользователь создает в таблице новую строку:

"=> Крокодил => Удав => Слон =>"

то требуется 1-ю строку привести к виду
=>Крокодил => Удав=> Слон => Бегемот =>

(и во все остальные строки содержащие "=>Крокодил => Слон =>" вставить между ними "=>Удав=>" )

как это примерно сделать, куда копать, это можно SQL'ем как-то решить?

http://www.sql.ru/forum/1293871/zamenit-stroku-kak-pravilno

Добрый день!
Существует ли возможность перехватывать выполнение сортировки, т.е. пользователь нажимает кнопку выполнить сортировку по полю, а мне необходимо выполнить свой код.

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

http://www.sql.ru/forum/1293864/sortirovka-v-access