Добрый вечер. Прошу помочь - как объяснить, и, желательно, предотвратить ошибку "определено слишком много полей"? История вопроса такова: создал таблицу полей на 140, все шло нормально, создал форму для этой таблицы, но при очередном сохранении появилась ошибка "определено слишком много полей". Начал удалять поля по одному с проверкой сохранением - дошел до 1 поля, а ошибка не исчезла. Я, конечно, начал создавать новую таблицу (эту, естественно, собрался удалить, как "прокаженную"), но боюсь - вдруг опять появится эта же проблема с новой таблицей где-нибудь в районе 140-го поля. Подскажите, пожалуйста, че делать? Скрин-шот пробую приложить, не знаю, получится (размер, как требуется, менее 150кб, но почему-то на предварит просмотре рисунок (jpg) не виден)

http://www.sql.ru/forum/1241463/oshibka-opredeleno-slishkom-mnogo-poley

Добрый вечер. Помогите разобраться в следующей проблеме.

у меня на форме на свойте On Timer каждые 5 минут отрабатывает скрипт, которые обрабатывает xml файлы.

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

Спасибо

http://www.sql.ru/forum/1241455/ne-rabotaet-skript-po-on-timer

Как исправить ошибку?



Суть:
Нужно, чтобы при нажатии на кнопку "Выполнить заказ" выполнялся запрос, который удаляет заказанное количество лекарств со склада, при условии, что данные берутся только из открытого в форме заказа.

http://www.sql.ru/forum/1241292/vypolnenie-zaprosa-cherez-sql

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

http://www.sql.ru/forum/1241276/formy-v-rezhime-konstruktor-na-ves-ekran

Может кто делал такое?

Погуглил, что-то ничего найти не могу)

http://www.sql.ru/forum/1241202/kak-zapisat-rezultat-zaprosa-v-fayl-v-json-formate

Здравствуйте,столкнулся с проблемой в курсовом проекте.Не могу выполнить пару запросов есть идеи ,как можно сделать.Ну или написать,заранее спасибо)
Помощь нужна по запросам 3 и 5.

http://www.sql.ru/forum/1241152/sostavit-zaprosy-sql-kak-luchshe-vypolnit

Добрый день.
К базе access прилинкованы таблицы SQL server. Строка подключения:

ODBC;DRIVER=ODBC Driver 11 for SQL Server;SERVER=192.168.10.3;APP=Microsoft Office 2010;DATABASE=DB_SQL;;TABLE=dbo.Table

Подключение активируется при открытии БД скриптом:

Public Sub ЗапросКсерверу()
On Error GoTo Ошибка
Dim qdf As QueryDef
Dim dbТекущая As Database
Set dbТекущая = CurrentDb
DoCmd.DeleteObject acQuery, "Запрос"                                        'удаляем запрос
Set qdf = dbТекущая.CreateQueryDef("Запрос")
qdf.Connect = "ODBC;DRIVER=ODBC Driver 11 for SQL Server;SERVER=192.168.10.3;APP=Microsoft Office 2010;" _
        & "DATABASE=DB_SQL;UID=*******;PWD=*******"
qdf.SQL = "SELECT dbo.Users.* FROM dbo.Users"
DoCmd.OpenQuery "Запрос"
Set qdf = Nothing
DoCmd.Close acQuery, "Запрос", acSaveYes
DoCmd.DeleteObject acQuery, "Запрос"                                        'удаляем запрос
Exit Sub
Ошибка:                                                                     'Обработка ошибки
If Err.Number = 7874 Then Resume Next                                       'нет запроса для удаления
MsgBox (Err.Description & "  " & Err.Number)
End Sub

А вот поменять пользователя во время сеанса не получается. Приходится закрывать и снова открывать БД.
Не подскажете, как деактивировать подключение не закрывая базу?

http://www.sql.ru/forum/1241131/podkluchenie-k-sql-server

Доброго времени суток! Имеем ADP проект. меню RIBBON загружалось по макросу (autoexec).теперь возникла необходимость загружать его после авторизации пользователя. может кто подскажет в какую сторону капать?

http://www.sql.ru/forum/1241094/zagruzka-ribbon-posle-avtorizacii

Добрый день!
MS SQL 2012 + MS Access 2010.
Столкнулся с такой проблемой:
В базе есть два поля для хранения аудита: кто менял(учетка) и когда менял(время) запись.
Заполнение этих полей идет в instead of update trigger.
На форме эти поля выведены в editbox-ы. Но когда я меняю записи, эти данные не прилетают в обратную сторону.
Поэтому, если повторно попробовать поменять запись, то аксес ругается, на то, что "другой пользователь изменил данные".
Наверняка уже есть оптимальное решение, как это дело показать в форме.

http://www.sql.ru/forum/1241070/kak-pokazat-svezhie-dannye-v-forme-esli-pole-pomenyalos-v-triggere-before-update

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

Столкнулся с непонятной проблемой. Добавил код на событие "отсутствие в списке" в поле со списком на форме, который должен открывать другую форму для добавления нового значения, отсутствующего в списке. Этот код я уже много раз применял в этой базе, да даже на этой форме у меня еще 2 поля со списком, в которых таким же образом реализовано добавление записей "не в списке". Вот код:

IzmenenieSpiska = MsgBox("Добавить нового производителя  " & NewData & " в список?", vbYesNo)
If IzmenenieSpiska = vbNo Then 'если не захотели добавлять производителя
    Me.[Id_производитель_вр].Undo
    Response = acDataErrContinue 'Сообщает Access о запрете вывода сообщения об ошибке.
Else 'если добавляем нового производителя
    Response = acDataErrAdded
    DoCmd.OpenForm "Новый_производитель", , , , , acDialog, (NewData)
    [Id_производитель_вр].Undo
    [Id_производитель_вр].Requery

    '------------проверка внесли ли нового производителя в таблицу Новый производитель
    Set rs1 = CurrentDb.OpenRecordset("SELECT [Производитель] FROM [Производитель] WHERE [Производитель]= '" & NewData & "' ")

        If rs1.EOF Then
           [Id_производитель_вр] = Null
        Else
            [Id_производитель_вр] = rs1![Производитель]
        End If
    Set rs1 = Nothing
    '/------------проверка внесли ли нового производителя в таблицу Новый производитель
End If

End Sub

При добавлении нового значения в поле со списком вызывается это событие, обрабатывается msgbox, выдается сообщение "Добавить нового производителя", а вот дальше вне зависимости от того что нажмешь - ок или отменя, выполнение кода прерывается и выдается сообщение "Введенный текст не соответствует ни одному из элементов списка", дальше ничего не происходит. Я уж пробовал все настройки поля перепроверить, выставил такие же, как и в полях, где все работает.

Дальше еще интереснее. Если на msgbox добавить брейкпоинт, вызвать событие - откроется окно вба с выделенной строчкой msgbox, далее нажимаем Run sub (продолжаем выполнение кода) и о чудо - все работает нормально.

Далее методом научного тыка я выяснил, что если удалить из события Private Sub Form_KeyPress(KeyAscii As Integer) строчки, которые обращаются к Screen.ActiveControl.Name, то опять же все отрабатывается нормально.
Только проблема в том, что мне нужно определять Screen.ActiveControl.Name в этом событии.

Как быть? Как исправить? Может чем-то другим заменить Screen.ActiveControl.Name? Непонятная ерунда какая-то.

http://www.sql.ru/forum/1241057/problemy-s-vyzovom-formy-po-sobytiu-otsutstvie-v-spiske

Добрый день!

нужно вытащить из XML файла из определенного тэга русский текст, но вместо этого вылезают кракозямбы. Понимаю, что проблема с кодировкой, но как ее правильно задать?

Set fso = CreateObject("Scripting.FileSystemObject")

Set a = fso.OpenTextFile(fileinfolder)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
--поисх информации в нужном тэге
Loop

Спасибо

http://www.sql.ru/forum/1240938/problema-s-kodirovkoy-v-xml

Добрый день.
Возможно, плохо ищу, но никак не могу понять - возможно сделать, чтобы при открытии mde не запускались новые копии приложения, а открывалось уже открытое?

http://www.sql.ru/forum/1240929/zapret-zapuska-neskolkih-kopiy-mde

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

http://www.sql.ru/forum/1240903/zalivka-tekstovogo-fayla

Ребята помогите, замучилась уже, ничего в ВБА особо не понимаю.
--Есть форма навигации, в ней есть вкладка "Закрепить КЛ за наставником".
--В ней мы выбираем ФИО стажера, на основании его должности подтягиваются в поле "Имя кл" контрольные листы, которые он может проходить согласно его группе должности.
--При выборе Контрольного листа, в Список подтягиваются все Наставники, они же преподаватели, которые могут преподавать данный Контрольный лист.
--А ниже есть подчиненная форма по перекрестному запросу, которая показывает нагрузку по преподавателям по-недельно.

Мне нужно, чтобы эта нагрузка фильтровалась в зависимости от значений попавших в Список, то есть чтобы в нагрузке отображались только те преподаватели, которые могут преподавать выбранный контрольный лист. Хелп хелппп!!!

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

Private Sub Town_AfterUpdate()
    Dim i, s, sel
    For Each i In Me.Town.ItemsSelected
        s = s & "," & Me.Town.Column(0, i)
    Next
    s = Mid(s, 2)
    sel = "SELECT Жители.*, Города.[Название города] FROM Города " _
    & " INNER JOIN Жители ON Города.[Код города] = Жители.[Код города] where true "
    If Len(s) > 0 Then
        sel = sel & " and Города.[Код города] in (" & s & ")"
    End If
    Me.Жители.Form.RecordSource = sel
End Sub

Базу сейчас приложу. не может прицепиться что то(

Модератор: Учимся использовать тэги оформления кода - FAQ

http://www.sql.ru/forum/1240886/access-i-vba-pomogite

Access 2003

Есть главная и табличная подчинённая формы. При старте в подчинённую форму по умолчанию загружаются данные по запросу qryLasWorkParam. Для ввода новой записи по нажатию кнопки на панели отрабатывается функция MnuNewEntry() из модуля главной формы.

Private Function MnuNewEntry()
'Реакция на пункт меню "Новая запись"
 Forms![frmWorkRegime].[sfrmWorkParam].Form.RecordSource = "qryWorkParam"
 Forms![frmWorkRegime].Controls![sfrmWorkParam].Form.Controls![cboOdjectLine].ColumnHidden = False
 Forms![frmWorkRegime].Controls![sfrmWorkParam].Form.Controls![txtObject_Name].ColumnHidden = True
 Forms![frmWorkRegime].Controls![sfrmWorkParam].Form.Controls![txtLine_Number].ColumnHidden = True
 Forms![frmWorkRegime].[sfrmWorkParam].Form.AllowAdditions = True
 Forms![frmWorkRegime].[sfrmWorkParam].Form.KeyPreview = True
 Forms![frmWorkRegime].[sfrmWorkParam].Form.DataEntry = True
 Forms![frmWorkRegime].Controls![sfrmWorkParam].SetFocus 'Передача фокуса к подчинённой форме.
End Function

В подчинённой форме появляется одна пустая строка для ввода новой записи. После заполнения последнего поля и нажатия Enter отрабатывается процедура из модуля подчинённой формы Form_AfterUpdate().

Private Sub Form_AfterUpdate()
On Error GoTo lblError
 Forms![frmWorkRegime].[sfrmWorkParam].Form.Filter = ""
 Forms![frmWorkRegime].[sfrmWorkParam].Form.FilterOn = False
 Forms![frmWorkRegime].[sfrmWorkParam].Form.RecordSource = "qryLasWorkParam"
 Me.Form.Controls![cboOdjectLine].ColumnHidden = True
 Me.Form.Controls![txtObject_Name].ColumnHidden = False
 Me.Form.Controls![txtLine_Number].ColumnHidden = False
 If Me.Form.AllowAdditions = True Then Me.Form.AllowAdditions = False
 If Me.Form.AllowEdits = True Then Me.Form.AllowEdits = False
 If Me.Form.KeyPreview = True Then Me.Form.KeyPreview = False
 If Me.Form.DataEntry = True Then Me.Form.DataEntry = False
 Forms![frmWorkRegime].Controls![sfrmWorkParam].SetFocus 'Передача фокуса к подчинённой форме.
 Exit Sub
lblError:
   MsgBox Err.Source & " " & Err.Number & " " & Err.Description ' Место для обработчика ошибок.
End Sub

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

Дабы пользователь мог отказаться от ввода новых данных ему нужно нажать на клавиатуре клавишу Esc, после чего отрабатывается процедура из модуля подчинённой формы Form_KeyPress(KeyAscii As Integer), которая принудительно вызывает процедуру Form_AfterUpdate() из модуля подчинённой формы.

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 And Me.Form.RecordSource = "qryWorkParam" Then Call Form_AfterUpdate
End Sub

И вот тут на строке

Forms![frmWorkRegime].[sfrmWorkParam].Form.RecordSource = "qryLasWorkParam"

в процедуре Form_AfterUpdate() вылезает ошибка 2001 Предыдущая операция прервана пользователем. Смены Рекордсета не происходит и подчинённая форма остаётся в режиме ввода новой записи. Закрываю главную форму и загружаю её по новому.

Подскажите плз что за предыдущая операция не завершена и как её завершить.

http://www.sql.ru/forum/1240880/2001-predydushhaya-operaciya-prervana-polzovatelem

Уважаемые, пож.,подскажите: отсортировал данные в таблице через запрос. Теперь эти данные надо отправить по электронной почте вложением. Знаю, что в меню есть кнопка "отправить по эл.почте", но дело в том, что все меню и тулбары я спец. отключил. Все формы открываются во весь экран и там только мои кнопки.Вопрос: как привязать кнопку на форме к отправке отсортированных данных данных по эл.почте? Главное, чтобы создавалось вложение (в виде .xls, т.е. также, как это делается, когда меню с тулбарами не скрыто). Спасибо заранее всем откликнувшимся.

http://www.sql.ru/forum/1240733/knopka-na-forme-otpravka-dannyh-zaprosa-po-el-pochte-pri-skrytom-menu

Имеем некую базу Access на сетевом ресурсе (например d:\MyApp\Data на MyServ) и клиентскую часть на локальных машинах.
Расшариваем MyApp с предоставлением прав.
Подключаем базу по пути \\MyServ\MyApp\Data. Все отлично работает.
Но тут решил скрыть шару от посторонних глаз. Т.е. делаю шару MyApp$.
оответственно подключение д.б. из \\MyServ\MyApp$\Data
Первое, с чем столкнулся: ошибка в подключении (это используется для проверки наличия БД и табл.)
DBEngine.Workspaces(0).OpenDatabase(NаmеDBase), где NаmеDBase="\\MyServ\MyApp$\Data" & Имя_БД.
Номер ошибки не помню, но суть "Невозможно получить монопольный доступ или отсутствуют права на запись"
Саму базу по ссылке \\MyServ\MyApp$\Data открываю, редактирую - без проблем.
таблицы базы линкуются .Connect = ";Database=" & "\\MyServ\MyApp$\Data" & Имя_БД, но доступны только для чтения.
Вопросs: я что-то упустил? Ассесс не умеет работать со скрытой шарой? Или искать проблему в настройке прав на шару (но там у меня права администратора).

http://www.sql.ru/forum/1240732/bd-v-seti-skrytaya-shara

Приветствую всех! Нужна помощь!
Есть форма "Главная", в ней подч.форма "Подформа1", в ней, в свою очередь, подч.форма "Подформа2".
В Подформе2 есть поле со списком "Поле1", которое выводит значения из Таблицы1. На "Главной" есть кнопка, которая открывает форму "Добавить" для добавления данных в Таблицу1. После добавления записи и закрытия этой формы надо, чтобы в подч.форме "Подформа2" поле со списком "Поле1" обновилось. Какой код надо привязать к закрытию формы "Добавить", что бы это поле со списком "Поле1" обновлялось?

http://www.sql.ru/forum/1240718/obnovlenie-polya-so-spiskom-v-podchinennoy-forme-2-go-urovnya

Есть таблица Journal_TWC_201_2. Необходимо сделать выборку данных из нее для того чтобы потом сделать GROUP BY по времени.
Столбцы jDate - дата время, jFactDose - decimal значение.
Т.е:
jDate - было (время усреднения, например, 15 минут)
25.04.2016 15:30:08
25.04.2016 15:31:07
25.04.2016 15:38:03
25.04.2016 15:40:08
25.04.2016 15:45:02
25.04.2016 15:48:01

jDate - стало
25.04.2016 15:30:00
25.04.2016 15:30:00
25.04.2016 15:30:00
25.04.2016 15:30:00
25.04.2016 15:45:00
25.04.2016 15:45:00

Для SQL выборку сделал и все корректно работает

SELECT DateAdd(n, 15 * (DateDiff(n, '01.01.1900', jDate) / 15), '01.01.1900') AS dateTmp, jFactDose 
FROM Journal_TWC_201_2

Пытаюсь сделать эту выборку для Access

SELECT DateAdd("n", 15 * (DateDiff("n", "01.01.1900", jDate) / 15), "01.01.1900") AS dateTmp, jFactDose FROM Journal_TWC_201_2

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

http://www.sql.ru/forum/1240688/zapros-na-usrednenie-znacheniya-po-vremeni

Добрый день.

Пытаюсь перевести приложение на позднее связывание для решения проблем с подключением библиотек.
Как поступать с подключением Excel и Word понятно, но никак не соображу, как писать в случае для библиотеки самого Офиса (у меня в приложении есть меню, работающее через Command Bars).

Вот например такая функция была:

Function CB_Exist(n) As Boolean

Dim cb As CommandBar

For Each cb In CommandBars
    If UCase(cb.name) = UCase(n) Then
        CB_Exist = True
        Exit Function
    End If
Next cb
CB_Exist = False

End Function

начинаю писать

Dim cb As Object
Set cb = Office.CommandBar


Не компилируется - метод или член не найден
Подскажите, пожалуйста, как правильно.

http://www.sql.ru/forum/1240620/pozdnee-svyazyvanie-dlya-office-object-library