Добрый день.

В базе есть немалый модуль с регулярными выражениями - разработан и отлажен на Win XP. У заказчика Win 7 x64 - и система валится на строке:
Set objregexp = CreateObject("VBScript.RegExp")

Попробовал так -
Set objregexp = New RegExp
- система стопится с сообщением "Не могу создать объект" (не нашел скрина, чтобы озвучить номер ошибки).

Перейти на 64-битную винду не могу, поскольку работаю на виртуалке.

Посоветуйте, как создать объект RegExp в 64-битной винде и как организовать программу, чтобы в зависимости от системы запускались разные ветки одной функции (по-моему, это называется условная компиляция, ЕМНИП).

Спасибо.

http://www.sql.ru/forum/1203356/zapusk-pod-windows-xp-i-windows-7-x64

имею таблицу SDB из шести строк, пять из них заполнены полностью, а шестой status кое-где пустой,
хочу выполнить запрос, где бы отображались все строки таблицы, где поде status пустое
пишу такой запрос
SELECT * FROM SDB WHERE STATUS=' '
в результате у меня только отображаются заголовки этой таблицы без каких-либо значений, подскажите. что не так делаю?

http://www.sql.ru/forum/1203337/voproc-po-formirovaniu-zaprosa-v-akse

Добрый день форумчане, подскажите пожалуйста почему не выполняется условие?

If rs.Fields(0).Value = Null Then
  MsgBox "Загрузка невозможна. Пустое поле код куратора"
  End If

Когда доходит до if и value=null то просто перескакивает на end.

http://www.sql.ru/forum/1203214/uslovie

Таблица Товар(Main) имеет починенную таблицу компоненты (Components) показывает состав товара. Например товар ПРЕДМЕТ состоит из ручек, тетради, бумаги состав содержится в таблице компоненты.
В Таблице ProductProd мы видим что надо произвести 2 предмета. В Таблице компоненты (Componets) видим состав товара (ручка, бумага, тетрадь)см. скриншот. Как суммировать повторяющие изделие по столбцу ProductinID. Таблица ProductProd и Компоненты связаны по столбцу ProductinID .
Таблица компоненты показывает все компоненты которые надо произвести. Мне надо показать по ProductinID состав товара суммирование повторяющих изделия ручки 2 шт. Бумаги 2 шт. Тетради 2шт.

http://www.sql.ru/forum/1203206/sql-access-summirovanie-odinakovyh-strok

Здравствуйте, создал базу в Аксессе (таблицы, связал их через схему данных, подготовил формы), база в формате *.accdb
Подскажите, пожалуйста, следующее:
1) как разместить ее на сервере MS SQL? Может есть уже ссылки, статьи с подробным описанием этого
2) как пользователям вносить в базу данные, им тоже нужен Аксесс? (а ведь это доп. лицензии) или просто они работают через ярлык к базе?

http://www.sql.ru/forum/1203093/likbez-po-mnogopolzovatelskomu-ispolzovaniu-aksess

Открываю рекордсет к присоединенной таблице (таблица присоединена из MSQL Server через ODBC)

Dim db As Database, strSQL As String, strSQLins As String
Dim rs As DAO.Recordset, kbk As String
Dim rsF As DAO.Recordset, f_date As Date
Set db = CurrentDb
strSQL = "DELETE * from tmp_P_F_R"
f_date = Forms!frm_OTCHETS!f_date
db.Execute strSQL
Set rs = db.OpenRecordset("SELECT Sum(dbo_R_R.SUMM_1Q) AS [Sum-SUMM_1Q], [CVD_MF] & [CPR] & [CCS_FULL] & [CVR] AS KBK, dbo_K_DEP.K_DEPID, dbo_R_R.K_LSRID" & _
" FROM (dbo_R_R INNER JOIN dbo_K_LSR ON dbo_R_R.K_LSRID = dbo_K_LSR.K_LSRID) INNER JOIN dbo_K_DEP ON dbo_K_LSR.K_DEPID = dbo_K_DEP.K_DEPID" & _
" WHERE  dbo_R_R.DU  < #" & f_date & _
"# GROUP BY [CVD_MF] & [CPR] & [CCS_FULL] & [CVR], dbo_K_DEP.K_DEPID, dbo_R_R.K_LSRID;", dbOpenDynaset, dbSeeChanges)
...

dbo_R_R.DU - поле формата дата время

выдает ошибку:
Дата содержит синтаксическую ошибку в выражении запроса
'dbo_R_R.DU < #29.02.2016'

Ткните пожалуйста носом, что делаю не так?

http://www.sql.ru/forum/1203033/bonalno-zapros-s-datoy

Приветствую всех. В Access только начинаю, но уже возникла такая проблема: имеется форма для редактирования записей. При открытии формы(так как граф много) делается запрос и заполняются поля, дабы пользователю все данные не пришлось вновь вносить. Вот только возникла одна проблема: как только заполняется любое поле-сразу же вносятся изменения в бд. Как возможно сделать так, чтобы изменения вносились сразу пачкой и только по нажатию кнопки?

http://www.sql.ru/forum/1203007/sohranenie-izmeneniy

Добрый вечер,

Есть база данных, из которой нужно по определенным условиям выгрузить данные в excel в определенные ячейки. Пример во вложении. Подскажите, пожалуйста, можно ли решить эту задачу обратившись к базе данных всего один раз? Например, загрузив данные в recordset, и уже из recordset эти данные выгружать в ячейки. Запрос из которого выгружаются данные большой и если всегда к нему обращаться, то процедура будет выполняться долго. Спасибо.

http://www.sql.ru/forum/1202948/vygruzka-dannyh-po-odnomu-obrashheniu-k-baze-dannyh

Здравствуйте!
Проблема такая: есть ленточная форма1 (всплывающее окно), которая открывается из другой формы2 (где задается источник записей для формы1). Форма1 открывается для одной записи. Приходится изменять размер (высоту) формы. Хотелось бы, чтобы форма1 открывалась изначально хотя бы на 5 строк. Можно ли задать высоту открываемой формы1? За ранее благодарю :)

http://www.sql.ru/forum/1202919/zadanie-razmera-formy

Добрый день! Есть форма в access 2010, в которую из sql-сервера тянутся данные по проведённым инструктажам сотрудника. Заполнение полей области данных формы предполагается в коде. Но при выполнении кода, цикл записывает дважды одну и ту же последнюю строку (у сотрудника было два разных инструктажа). Как исправить код, чтобы в область данных записывались обе строки (все, что есть по сотруднику)? Заранее спасибо!
______________________________________

Private Sub Form_Load()

' подключаемся к базе
ConnectToBase

' выбираем нужные записи:
SQLText = "SELECT users_status.status, order_type.type, users_timesheet.order_num, users_timesheet.order_date, users_timesheet.begin_date, users_timesheet.end_date" _
& " FROM order_type INNER JOIN (users_status INNER JOIN users_timesheet ON users_status.id = users_timesheet.status_id) ON order_type.id = users_timesheet.order_id" _
& " WHERE (((users_timesheet.user_id)=14));"

rstZS.Open SQLText, cn, adOpenKeyset, adLockOptimistic

' присваиваем значения запроса в поля формы:
If Not rstZS.EOF Then
rstZS.MoveFirst
Dim i As Integer
For i = 1 To rstZS.RecordCount
Me.ПолеСтатусСотрудника = rstZS.Fields(0)
Me.ПолеТипПриказа = rstZS.Fields(1)
Me.ПолеНомерПриказа = rstZS.Fields(2)
Me.ПолеДатаПриказа = rstZS.Fields(3)
Me.ПолеДатаНачала = rstZS.Fields(4)
Me.ПолеДатаОкончания = rstZS.Fields(5)
rstZS.MoveNext
Next i

End If

End Sub
_________________________________________

http://www.sql.ru/forum/1202898/zapolnenie-oblastidannyh-formy-access-programmnym-sposobom

Добрый день.

Подскажите как реализовать.

Я создаю макрос "задать фильтр" (ИД заказа)
Вбиваю ИД в поле поиска
Нажимаю Enter

В результате нужно чтобы осуществлялся поиск этой записи и замена значение в др. поле. (н-р статус заказа "Готов" на "Оплачен"

(В идеале это будет осуществляться сканером штрих-кодов,но как с ним работать я уже разобрался )

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

http://www.sql.ru/forum/1202892/makros-zapros-na-obnovlenie-dannyh-tekushhey-zapisi-v-forme

Ка правильно добавить в имеющееся выражение дополнительное условие

Зач_летн: Max(IIf([ФильтрПоРасчетуНагрузки].[КодСеместра] In (2;4;6;8;10;12) And [КонтрДисцИзучКурсСпец].[КодФормыКонтроля]=2;1))

Надо [КодФормы Контроля] = 2 или 5.

http://www.sql.ru/forum/1202829/podpravit-uslovie-iif

Доброго времени суток! Подскажите как в запрос задать такой интервал с 01 апреля на сегодняшнюю дату и с 01 октября на сегодняшнюю дату.

http://www.sql.ru/forum/1202658/diapozon-dat

Здравствуйте! В access 2003 сделал форму в ней элемент с закладками в котором кнопка вызова табличной формы (или формы в режиме таблице). Но при нажатии на кнопку табличная форма открывается как обычная форма и приходится переключать ее в режим таблицы самому. Подскажите пожалуйста, как сделать так что табличная форма открывалась как таблица с кнопки в другой форме. Заранее благодарен

http://www.sql.ru/forum/1202628/otkryt-formu-v-vide-tablicy-cherez-knopku-v-drugoy-forme

Добрый день.

Подскажите, пожалуйста, с решением такой вот проблемы:

Есть форма с полем ФИО. Данные поля - выпадающий список созданный на основе записей таблицы "Физические лица".

Пишу макрос на двойной щелчок по полю, при котором должна открываться другая форма с данными того физического лица, чья фамилия выбрана в данный момент в выпадающем списке. Подскажите, как построить условие отбора? (см. рисунок). Если бы речь шла не о выпадающем списке, то все было бы гораздо проще. Сейчас пытаюсь решить проблему при помощи функии DLookUp(), но толково сформулировать отбор не получается :(

http://www.sql.ru/forum/1202624/makros-na-otkrytie-formy

- один раз попробовал не прокатило...
- самое интересное на машине других офисов нет, 2003 (старый, проверенный) установился нормально, а вот при запуске
всё стартует (и компоненты отдельно и компоненты через свои файлы (ворд, эксель, акцес)), но тут же выскакивает красный транспарант типа "Ворд не установлен для данного пользователя - запустите Setup.exe" и всё мирно завершается...
Ну что ещё..
- W10 (64) появилась сама после того как юзер не думая нажал в W7 (64) - установить обновления (W10 апгейдовая)
- самое удивительное что с офисом 2007 (32) нет вообще никаких проблем, и с AccessRunTime2003 (32) тоже нет никаких проблем...
В принципе меня интересует только один вопрос:
Это глюк офиса 2003 (32) под W10 (64) на конкретной машине или плавное вытеснение в W10 офисов младше 2007 ?

http://www.sql.ru/forum/1202508/kto-uzal-ofis-2003-32-na-w-10-64

Доброго времени суток.

Задали мне задачу написания скрипта для парсинга вэб-страниц. А написав столкнулся с проблемой, что при выполнение команды

WebBr.Object.Navigate2 "https://abc.ru/ID" & number

Access отжирает кусок памяти. И не возвращает. Т.к. команда стоит в цикле и выполняется не раз и не два, то через некоторое время вылетает ошибка run-time error 3035 System Resource exceeded.

Подскажите, как вернуть память конце шага итерации? Либо возможную замену Navigate2

http://www.sql.ru/forum/1202435/problemy-s-ispolzovaniem-webbr-object-navigate2

Скажите пожалуйста,
Есть ли вариант использования локальных (клиентских) таблиц в проекте adp?
Заранее благодарен.

http://www.sql.ru/forum/1202388/vremennye-tablicy-v-proekte-adp

Добрый день.

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

http://www.sql.ru/forum/1202347/mozhno-li-sdelat-svobodnoe-pole-daty-s-maskoy-i-kalendarikom

SELECT tblCenter.Center AS Актив,
 -SUM(S*(NOT Y)) AS Итог_2014,
SUM(S*(M = 1)*Y)+Итог_2014 AS Январь,
SUM(S*(M = 2)*Y)+Январь AS Февраль,
SUM(S*(M = 3)*Y)+Февраль AS Март,
SUM(S*(M = 4)*Y)+Март AS Апрель,
SUM(S*(M = 5)*Y)+Апрель AS Май,
SUM(S*(M = 6)*Y)+Май AS Июнь,
SUM(S*(M = 7)*Y)+Июнь AS Июль,
SUM(S*(M = 8)*Y)+Июль AS Август,
SUM(S*(M = 9)*Y)+Август AS Сентябрь,
SUM(S*(M = 10)*Y)+Сентябрь AS Октябрь,
SUM(S*(M = 11)*Y)+Октябрь AS Ноябрь,
SUM(S*(M = 12)*Y)+Ноябрь AS Декабрь, Декабрь AS ИТОГ_2015
FROM tblCenter
 LEFT JOIN (SELECT Center, IncomePaymentSumCalc
 AS S,
 Month(PaymentDate) AS M, Year(PaymentDate) =  AS Y
 from qdfPayments where Year(PaymentDate)<=  AND Center is not null) AS [Al]
   ON tblCenter.Center = [Al].Center
GROUP BY tblCenter.Center, ' АКТИВ'

Сделала ROUND не получается показывается с нулями.

SELECT tblCenter.Center AS Актив,
ROUND(-SUM(S*(NOT Y)),0) AS Итог,
ROUND(SUM(S*(M = 1)*Y),0)+Итог AS Январь,
ROUND(SUM(S*(M = 2)*Y),0)+Январь AS Февраль,
ROUND(SUM(S*(M = 3)*Y),0)+Февраль AS Март,
ROUND(SUM(S*(M = 4)*Y),0)+Март AS Апрель,
ROUND(SUM(S*(M = 5)*Y),0)+Апрель AS Май,
ROUND(SUM(S*(M = 6)*Y),0)+Май AS Июнь,
ROUND(SUM(S*(M = 7)*Y),0)+Июнь AS Июль,
ROUND(SUM(S*(M = 8)*Y),0)+Июль AS Август,
ROUND(SUM(S*(M = 9)*Y),0)+Август AS Сентябрь,
ROUND(SUM(S*(M = 10)*Y),0)+Сентябрь AS Октябрь,
ROUND(SUM(S*(M = 11)*Y),0)+Октябрь AS Ноябрь,
ROUND(SUM(S*(M = 12)*Y),0)+Ноябрь AS Декабрь, Декабрь AS ИТОГО
FROM tblCenter
 LEFT JOIN (SELECT Center, IncomePaymentSumCalc
 AS S,
 Month(PaymentDate) AS M, Year(PaymentDate) =  AS Y
 from qdfPayments where Year(PaymentDate)<=  AND Center is not null) AS [Al]
   ON tblCenter.Center = [Al].Center
GROUP BY tblCenter.Center, ' АКТИВ'

http://www.sql.ru/forum/1202286/sql-kak-sdelat-tolko-v-chislovom-formate-tolko-bez-zapyatoy-i-desyatichnyh-znacheniy