Здравствуйте, Товарищи!
Что-то я забыл и не могу вспомнить элементарную вещь...
В МДБ есть запрос к серверу, с текстом внутри:

EXEC [dbo].[procMyProcedure];87 1

Мне при открытии отчёта нужно менять параметр процедуры, т.е. записать в тело запроса текст

EXEC [dbo].[procMyProcedure];87 2

Подскажите, как это сделать?
Что-то в поиске я утонул...

http://www.sql.ru/forum/1229229/zapros-k-serveru-izmenit-tekst-zaprosa

Добрый день.
Как на ВБА из одной базы данных закрыть другую открытую базу данных? Путь ко второй базе известен.
Спасибо?

http://www.sql.ru/forum/1229195/kak-na-vba-iz-odnoy-bazy-dannyh-zakryt-druguu-otkrytuu-bazu-dannyh

Помогите решить задачу. Для создания папки в конкретной директории используется:
MkDir ("C:\file\" & [nameFirm])
А как создать эту папку в папке, где расположен сам файл БД? Искал по форуму, ничего не понял.

http://www.sql.ru/forum/1229152/kak-sozdat-papku-v-papke-gde-raspolozhen-fayl-bazy

Ребята можно ли организовать такую фишку как "Повтор последнего действия." как в WORD(е) - CTRL+Y. Поясню, в таблице есть поле ntext (16). Пользователь заполняет данное поле и еще не сохранив случайно удаляет, приходится набирать заново... Спасибо.

http://www.sql.ru/forum/1229122/rebyata-mozhno-li-organizovat-takuu-fishku-kak-povtor-poslednego-deystviya

Добрый день.

У меня есть БД1 в локальной сети, в которой хранятся таблица и форма для ее изменения. Есть БД2 в локальной сети, в которой по запросу Кнопки1 открывается Форма из БД1, по кнопке2 открывается таблица из БД2.
Вопрос: при нажатии на кнопку2 - откроется таблица, как мне запретить удаление содержимого ячеек в этой таблице (которая откроется в БД2) другим пользователям? Но оставить доступ на добавление записей через форму.

http://www.sql.ru/forum/1229107/zapret-na-udalenie-dostup-k-zapisi

Коллеги, добрый день!
Подскажите пожалуйста, как в многопользовательском режиме реализовать отправку письма только 1 раз (от любого пользователя)
Столкнулся с тем, что письмо было отправлено 2 раза, т.е. дважды (одновременно) отработала процедура CreateMsgInOutlook_everyday
На постоянно открытой форме (таймер = 30 секунд) сделал вот такую проц-ру:

Private Sub Form_Timer()

Dim xlog As Boolean
Dim MyTimeBegin
Dim MyTimeEnd
MyTimeBegin = TimeSerial(12, 1, 0)
MyTimeEnd = TimeSerial(12, 2, 0)

Dim MyTimeBegin2
Dim MyTimeEnd2
MyTimeBegin2 = TimeSerial(12, 3, 0)
MyTimeEnd2 = TimeSerial(12, 4, 0)

xlog = DLookup("XXX", "tbl_Timer", "ID = 1")

If xlog = False And Time >= MyTimeBegin And Time < MyTimeEnd Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Timer SET tbl_Timer.XXX = True WHERE tbl_Timer.ID=1;"
    DoCmd.SetWarnings True
    

    Call CreateMsgInOutlook_everyday(True)

End If


If xlog = True And Time >= MyTimeBegin2 And Time < MyTimeEnd2 Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE tbl_Timer SET tbl_Timer.XXX = False WHERE tbl_Timer.ID=1;"
    DoCmd.SetWarnings True
End If
End Sub

Буду благодарен за любую помощь!

http://www.sql.ru/forum/1229089/kak-v-mnogopolzovatelskom-rezhime-realizovat-otpravku-pisma-tolko-1-raz

Если в присоединённой таблице кириллица выглядит вот так:

Результаты РѕРїСЂРѕСЃР

- то какой встроенной функцией в запросе (и с какими параметрами) я могу преобразовать её в читаемый вид?

http://www.sql.ru/forum/1229073/preobrazovanie-kodovoy-stranicy-v-zaprose

Обнаружил интересный эффект. Нужно было получить TableDef определенной таблицы, а присвоение

Set tdf = CurrentDb.TableDefs(strTable)

не работало - на tdf рагалось дальше "Object invalid or no longer set"

Вот так работает:

Set tdf = DBEngine(0)(0).TableDefs(strTable)

И так работает:

Set db = CurrentDb()
Set tdf = db.TableDefs(strTable)

Не совсем понятно, почему такое происходит. Понятно, что CurrntDb дает ссылку на текущую копию базы данных, каждое обращение это будет новая копия, но ссылка на объект с определением таблицы должен быть тот же самый. Или все ссылки на объекты базы данных, полученные через CurrentDb разрушаются сразу же после обращения к CurrentDb?

http://www.sql.ru/forum/1229049/prisvoenie-s-ispolzovaniem-currentdb-i-dbengine-0-0

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97
Выгрузка возможна только начиная с самой первой строки...
Пусть так.
А как программно из Access добавить в лист Excel в самый верх 5 строк?
--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1229012/komanda-docmd-transferspreadsheet-acexport-i-shapka-v

При построчной выгрузке из Access в Excel
На строке 32768 вылетаем из выгрузке с ошибкой.
Я думал, что это ограничение для 2003 офиса.
Или дело в кривых руках?
--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1229010/access-2007-vygruzka-v-excel-2007

В частности, нужно установить значение системной переменной MQSERVER.
Как это сделать в VBA?

http://www.sql.ru/forum/1228988/kak-v-vba-ustanovit-sistemnuu-peremennuu

Добрый день!

Для формы в момент открытия присваивается сформированный Recordser

....
Me.Recordset=rst
Set rst=Nothing

Форма ленточная, данные в полях в которых указаны имена полей Recordset выводятся.

в "подвале" формирую поле для выводя итогового значения Данные=Sum([dblSumLeaves]), dblSumLeaves - имя поля Recordset.получаю ошибку

http://clip2net.com/s/3BK2JkZ

как мне получить итог по столбцу ленточной формы у которой источник данных формируется при открытии присвоением объекта Recordset?

http://www.sql.ru/forum/1228918/itog-po-summe-v-forme

В общем, есть приложение, которое использует Interop и работает с Access.
После того, как я снес Office 2016 х64 и поставил office 2013 x32 начались проблемы...
При работе программы начала вылетать ошибка: HRESULT 0х80010105.
Опытным путем я нашел решение в виде установки Access DataBase Engine 2010 х32 и после этого программа работает.
Проблема в том, что стоит мне открыть Access руками, так office выполняет конфигурирование и после этого приложение опять перестает работать...
Подскажите, как решить данную проблему?
Когда стоял 2016 офис я такого не припоминал...

http://www.sql.ru/forum/1228848/vyletaet-oshibka-pri-rabote-s-access

Доброго времени суток, подскажите пожалуйста в чем мой косяк....

Вот пример кода:

Set rst_1 = b.OpenRecordset("vibor_ip_kalkul")
kol_vo = rst_1.Fields.Count

While Not rst_1.EOF
znach = Trim(rst_1!Vibor)
MsgBox rst_1!Vibor
sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '"

MsgBox sqlstr
Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot)
'MsgBox sqlstr
ViewRecordset rst
kol_vo1 = rst.Fields.Count
'MsgBox rst1!НОМЕР_ИП
    rst_1.MoveNext
    I = I + 1
Wend

Суть проблемы, в том, что Set rst = CurrentDb.OpenRecordset(sqlstr, dbOpenSnapshot) возвращает пустой результат, хотя если в аксесе "на прямую" сделать запрос из sqlstr = "select * from ОТВЕТЫ_ИП where (ОТВЕТЫ_ИП.НОМЕР_ИП like '" & "* " & znach & " * ')" ' " '" где заменить & znach & на конкретные значения которые отображаются, то запрос выводит корректный результат....

Ткните пожалуйста носом в мою безграмотность в написании запросов...

http://www.sql.ru/forum/1228825/ne-poymu-v-chem-problema

База была сделана в 2003
загрузил и сохранил как 2007.
поначалу всё работало, но вот сегодня Access выругался на строку

TOT_RST.FindFirst "[INN] = '" & ETOT_RST("INN") & "'"

из вот этого кода

Do Until ETOT_RST.EOF
        TOT_RST.MoveLast
        TOT_RST.MoveFirst 'Поиск первой записи, удовлетворяющей критерию отбора
        TOT_RST.FindFirst "[INN] = '" & ETOT_RST("INN") & "'"

--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1228818/perehod-s-a2003-na-a2007

Проблема состоит в том, что при переходе с 32-разрядного офиса (2010) на 64-разрядный (2013) перестала работать ADO-подключение.
Access 2013 вылетает с ошибкой на скрине.
Строка подключения формируется так:

автор
conn.ConnectionString = "Provider=IBMDADB2;Database=" + bz + ";Hostname=" + sr + ";Protocol=TCPIP;Port=50000;Uid=" + NAME + ";Pwd=" + logind + ";"

Подключение к базе DB2.
Ранее в 32-разрядных системах без проблем работало.

http://www.sql.ru/forum/1228792/vylet-microsoft-access-2013-pri-ado-podkluchenii

Приветствую,
хочу изменить свойство списка с мультиселекта на обычный(в списке можно выбрать только одну запись)
в хелпе написано примерно следующее

Forms("KL").Controls("KL").MultiSelect = 0 ' Extended.

привязал этот код к кнопке, но ничего не работает вылетает ошибка
что я сделал не так?

http://www.sql.ru/forum/1228786/izmenenie-svoystv-spiska-pri-pomoshhi-vba

Вот кусочек кода, где в определённой папке просматриваются файлы, находится mdb файл,
и из него перебрасываются данные в нашу базу.

  For Each f1 In fc
        If InStr(1, f1.Name, "OTCHET_OT", vbTextCompare) <> 0 And InStr(1, Nz(f1.Name), "mdb", vbTextCompare) <> 0 Then  ' имя файла "OTCHET_OT"

            Set DB_OTCHETOV = OpenDatabase(FOLDER_OTCHETOV & "\" & f1.Name)
            FILE_OTCHETOV = f1.Name
            ' Цикл по всем таблицам в базе данных
            For Each TDF_OTCHETOV In DB_OTCHETOV.TableDefs
                If TDF_OTCHETOV.Name = "TRANZAKTION_V_OFIS_TBL" Then  ' таблица имеется
                    'перебросим данные
                    DoCmd.SetWarnings False
                    DoCmd.RunSQL "INSERT INTO TRANZAKTION_VSE_V_OFISE_TBL " _
                                 & " SELECT TRANZAKTION_V_OFIS_TBL.* " _
                                 & " FROM TRANZAKTION_V_OFIS_TBL IN '" & FOLDER_OTCHETOV & "\" & FILE_OTCHETOV & "' " _
                                 & " WHERE (((Year([PAY_DATA]))>=FUN_GOD_MINIMUM()));"
                    DoCmd.SetWarnings True
                End If                                               ' таблица имеется
            Next TDF_OTCHETOV
        End If
    Next

Код работает оч быстро, всё нормально.
Вопрос в другом...
--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1228686/skorost-zagruzki-dannyh-iz-drugoy-bazy

Добрый день господа, подскажите как отобразить в компоненте WebBrowser изображение в кодировке Base64? При подстановки в Navigate текста выпадает ошибка, при методе Write изображается текст в кодировка Base64. Как побороть? И в догонку, как отобразить офисные документы в компоненте?

http://www.sql.ru/forum/1228668/webbrowser

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

http://www.sql.ru/forum/1228599/zapros-s-dannymi-iz-neskolkih-svyazannyh-tablic