Добрый день, уважаемые форумчане!
До недавнего времени я успешно пользовался таким кодом: k = CurrentDb.OpenRecordset("запрос").RecordCount с помощью которого получал количество записей в запросе. Но после того, как в запрос добавились контролы с формы, необходимо переписать код. Поискав на форумах, я пришел к выводу, что нужно явно указать переменные с контролами, но вот как это сделать грамотно синтаксически не нашел. Возможно, есть какое-то совсем простое решение. Мне не столько важно знать количество записей, сколько понять в принципе, возвращает записи или нет.

http://www.sql.ru/forum/1268866/kolichestvo-zapisey-v-rekordsete-s-kontrolami-na-forme

Проблема.
В форме для перехода от одного контрола к другому используется клавиша Таб. Внутри группы переключателей для перехода по переключателям используются стрелки (или пробел).
Если порядок перехода по Таб можно изменить, то порядок перехода внутри группы переключателей изменить не получается.
Создал и отладил форму с группой переключателей. Теперь возникла необходимость добавить несколько переключателей во внутрь группы, в определённые места. Переход по стрелкам происходит в порядке добавления. По-этому указатель скачет туда-сюда.
Пример.
Первоначально группа состояла из 3 переключателей: 1, 2, 3. Затем было добавлено ещё 2: 1,5 и 2,5 , которые были встроены в середину ряда

1  1,5  2  2,5  3

Под управлением стрелок указатель скачет следующим образом : 1 -> 2 -> 3 -> 1,5 -> 2,5 а надо 1 -> 1,5 -> 2 -> 2,5 -> 3 . Как это сделать? Желательно с наименьшими затратами.


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

http://www.sql.ru/forum/1268862/izmenit-poryadok-perehoda-po-perekluchatelyam-v-gruppe

На форме "Серия" в поле "год" не отображается значение для некоторых записей. Поле со списком, зависимое. После обновления появляются, но пропадают у других записей)) Методом проб определил, если выбран ГОСТ 45 или 56, то отображается, с другими нет. Правил и вносил дополнения неоднократно. Изначально всё было нормально... вроде, может просто внимания не обратил.
Уже весь мозг сломал. Пробовал удалить эти три таблицы и поля в форме и заново сделать - то же самое...
Прошу помощи!

База по мастям:
Часть первая:

http://www.sql.ru/forum/1268821/ne-otobrazhautsya-znacheniya-v-forme

Здравствуйте.
Есть отчет. Переход к следующему отчету, с условием по ключу, осуществляется нажатием кнопки в соответствующей строке текущего отчета.
Можно ли одновременно задать команду на запись ключа, из нажатой строки текущего отчета, в другую существующую таблицу.

http://www.sql.ru/forum/1268775/pomogite-s-otchetom

Странное дело.
Создаю файл xxx.accde в стандартном меню Access 2007, а точнее в ленте.
Файл при запуске открывает стартовую форму, но больше ни чего не работает.
На форме скрытые по умолчанию элементы сразу видны, в текстовом поле можно писать символы, кнопки имитируют нажатие, но ни строчки кода не выполняется.
Что это может быть???
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1268696/fayl-s-rasshireniem-accde-ne-vypolnyaetsya-kod

Ребят, нужна помощь проффов в vba.

Есть отчет rep_empty_find основанный на запросе select_empty_n, у которого есть условие "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])". То есть при запуске отчета спрашивается номер и по введеному номеру выдает нужный отчет.
Так же есть запрос select_empty, такой же как и select_empty_n, где выводятся все записи. Т.е. нет условия "where (ВходнойКонтроль.[Приходный ордер])=[Введите приходный ордер])".


Вытаскиваю отчет rep_empty_find в .pdf командой по кнопке

Private Sub Кнопка377_Click()

Dim DB As Database
Set DB = CurrentDb
Dim RS As Recordset
Dim FileName As String
Dim FilePath As String
Dim StrSQL As String
StrSQL = "select [Приходный ордер] from select_empty_n"

Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)
'Set RS = DB.OpenRecordset("select_empty", dbOpenDynaset)

FileName = RS.Fields("[Приходный ордер]")
FilePath = "C:\" & FileName & ".pdf"
'FilePath = FileName & ".pdf"
DoCmd.OutputTo acOutputReport, "rep_empty_find", acFormatPDF, FilePath

End Sub

-----
Пишет что в строке "Set RS = DB.OpenRecordset(StrSQL, dbOpenDynaset)" слишком мало параметров.
Заменив строку "StrSQL = "select [Приходный ордер] from select_empty_n" "на "StrSQL = "select [Приходный ордер] from select_empty" ", сохраняется файл всегда с именем первого [Приходный ордер] из запроса select_empty.


ВОПРОС, как подтянуться вводимый номер в имя экспортируемого файла .pdf?
или может как задать имя из сформированного отчета??

Спасибо всем кто поможет, никак не могу найти похожей проблемы.

http://www.sql.ru/forum/1268592/prisvoenie-vvodimogo-znacheniya-v-imya-fayla-eksporta-pdf

создал функцию в которую передаётся адрес
он обрабатывается

         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "СЕЛЬСКИЙ ОКРУГ", "с\о")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ПОСЕЛКОВЫЙ ОКРУГ", "п\о")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "РАЙОН ВНУТРИ ГОРОДА", "р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "РАЙОН", "р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ МАССИВ", "ж\м")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ МАССИВ", "ж\м")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЖИЛОЙ", "жил.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МАССИВ", "мас.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ПЛОЩАДЬ", "пл.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МИКРОРАЙОН", "м\р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "МИКРОр-он", "м\р-н")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ДАЧНЫЙ КООПЕРАТИВ", "дач.кооп.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ГАРАЖНЫЙ КООПЕРАТИВ", "гар.кооп.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ЗАСТАВА", "з-ва")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "ВОИНСКАЯ ЧАСТЬ", "в\ч")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "НАБЕРЕЖНАЯ", "наб.")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "Юго-восток", "ю\в")
         ADRESS_KRATKO = Replace(ADRESS_KRATKO, "Юго-запад", "ю\з")

И на выходе функция даёт строку адреса с сокращёнными словами.

Может кто решал эту задачу, и знает более изящный способ решения?
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1268550/sokrashheniya-v-adrese

возможно ли средствами MSA создать форму на подобие календаря МАЙЛ.РУ или ГУГЛ?
Т.е. чтобы события выводились именно в таком виде, т.к. он наиболее удобочитаем визуально.
Либо прикрутить через какие-то ухищрения уже готовый майл или гугл календарь?

http://www.sql.ru/forum/1268549/vozmozhno-li-sredstvami-msa-sozdat-formu-na-podobie-kalendarya-mayl-ru-ili-gugl

Добрый день.
Прошу помочь разобраться с обычным календарем в форме MSA 2010 (в формате *.accde).
База исправно работала полгода, но вот почему-то на дыух компьютерах с недавнего времени первым днем недели стал "вторник".

В системных настройках (региональные дата/время) WIN стоит "понедельник", в настройках календаря стоит "понедельник", однако при запуске формы с календарем упорно вылазит "вторник".

Я даже открыл исходник (*.accdb) на этом компе, там тоже оказался "вторник", хотя на моем компе когда смотрел был "понедельник", исправил, сохранил, сделал из него *.accde файл. Открываю - "ВТОРНИК"!


в окне Immediate выражение ? Weekday(date, vbMonday) дает ответ 2

Голову сломал! Прошу помощи.

http://www.sql.ru/forum/1268543/neponyatki-s-kalendarem-ms-access

Доброго времени суток уважаемые!

Возможно ли в Access реализовать каталоги и контакты в них в древовидной форме? (как на приложенном изображении)

http://www.sql.ru/forum/1268512/derevo-katalogov-i-kontaktov-access

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

Select Запрос21.*
FROM Запрос21 UNION ALL Select Запрос22.*
FROM Запрос22 UNION ALL Select Запрос23.*
FROM Запрос23
ORDER BY Дата;

В результате получаю столбец:
01.01.2017
01.02.2017
01.03.2017
02.01.2017
02.02.2017

Как сделать результат сортировки привычным?

http://www.sql.ru/forum/1268469/sortirovka-po-date-v-zaprose-na-obedinenie

Добрый день!
Есть таблица c двумя столбцами, к примеру, Имя и Фамилия.
Подскажите плз, как можно написать запрос, при котором в выборку попадут только те значения, в которых присутствуют разные значения столбцов Фамилия для одного значения столбца Имя?
К примеру
Имя Фамилия
Андрей Иванов
Андрей Иванов
Не попадет в выборку
Имя Фамилия
Андрей Петров
Андрей Сидоров
Попадет в выборку, т.к. столбец Фамилия имеет различные варианты для столбца с одним Именем

http://www.sql.ru/forum/1268427/pomogite-pozhaluysta-s-logikoy-zaprosa

Доброго времени суток
Весной занимался макросом импорт из word в access (да, такой нужен; word - excel - access в моём случае не вариант). Код уже видели тут, ну вот он:

Dim app As Word.Application
Dim wd As Word.Document
Dim wt As Word.Table
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long

Set app = CreateObject(“Word.Application”)
Set wd = app.DocumentsOpen(Forms![Forma].[Pole].Value)
Set wt = wd.Table(1)
Set db = CurrentDb
Set rs = db.OpenRecordset(“table”)

   With wt
      For I = 4 To Rows.Count
         With rs
         On Error Resume Next
         Add.New
         ![pole] = wt.Cell(i, 1).RangeText
         …
        On Error GoTo 0
        .Update
        End With
      Next
   End With

rst.Close: Set rst = Nothing
dbs.Close: Set rst = Nothing
doc.Close: Set doc = Nothing
appWord.Quit: Set appWord = Nothing

Написал. Заточил под определённую таблицу word. Далее занимался другими вещами, про ворды благополучно забыл. Но далее возникла необходимость импортировать из ворда. Попались многостраничные документы с таблицами овер 20 килострок. И тут стало видно, что такое колличество строк импортируется не просто со скрипом, а с очень жутким скрипом. Импорт мог занять 2+ часов времени. А вернее не сам импорт, а именно обработка данных ворда. Чем больше строк обрабатывается, тем сильнее замедляется программа. Импортировать, скажем, первые 500 строк и импортировать последние 500 той же таблицы - две разные картины по времени.

Я думал как оптимизировать макрос. Занимался различными извращениями. Пытался импортировать по 500 - 1000 строк в цикле, закрывать и открывать документ, аппликейшн, рекордсет внутри цикла - думал, что импортировать не сразу, а по n, но постоянно с новой строки будет быстрее. Ничего более умного по этому вопросу не нашёл, ииии...
Хочу в очередной раз поизгаляться.

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

В данный момент не могу понять как импортировать именно тот фрагмент таблицы, размещённый на выбранном листе (таблица одна на многих страницах)

http://www.sql.ru/forum/1268397/vba-postranichnyy-import-iz-word

Подскажите решение.
Делаю функцию добавки поля в таблицу базы.
Для передачи аргумента в функцию - [тип поля] - использую встроенные константы Access
например такие как:dbText, dbCurrency ....

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

И второй вопрос - это размер поля.
Если поле текстовое то размер от 1 -255.
А если поле числового, или денежного типа, то как передать что-то типа размера?
Или тут ни чего не выйдет....
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1268380/peredacha-argumenta-konstantoy-access

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

А суть в том, что данная ошибка возникает в ходе проверки аксом на повторяющиеся значения в полях. Таких полей у меня 2.
Смысл моей формы - ввод данных. Форма на основе запроса. Сам запрос построен из 2-х таблиц - основная (содержит записи с заявками) и второстепенная (содержит записи, созданные к заявкам). Каждая из таблиц содержит индексированное поле (но это не счетчик, сразу говорю, поля счетчик в таблицах так же имеются), которое имеет установленное значение "Да (Совпадения не допускаются)" в режиме конструктора.

Форма построена таким образом, чтобы можно было создавать несколько записей к одной заявке. Т.е. вначале создается как бы общая запись, а потом, если возникнет такая необходимость, юзер может добавлять еще, используя кнопку «Добавить». Иными словами, данные для первой табл. уже будут на форме заполнены и юзер будет заполнять поля только для второй табл. Таким образом, функция кнопки «Добавить» осуществляет добавление данных для второй таблицы.
Аксес отлавливает ошибку повторяющегося значения в этих полях, но в случае, когда повторяющееся значение содержится в поле из второй таблицы после отлова аксеса данной ошибки внести исправление уже не получается возможным. Он начинает затирать данные, отображая в полях «#Ошибка», и забрасывать другими сообщениями такого типа как ошибка 3021 - «Текущая запись отсутствует».

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

http://www.sql.ru/forum/1268355/oshibka-3021-tekushhaya-zapis-otsutstvuet

Передача номера записи из табличной подформы при переходе по записям.
Как вызвать процедуру On Click в подформе?


Спасибо

http://www.sql.ru/forum/1268336/rabota-so-strokami-tablichnoy-podformy

Всем привет!
Есть небольшая БД недвижимости. Есть форма на которой есть табличная часть, ниже расположены поля табличной части для просмотра всех значений полей (полей оч много). Так вот, как сделать так чтобы можно было редактировать данные не только в табличной части, а еще и в самих полях? Пример поля "Принадлежность". Значение изначально ссылается на значения формы =[подчиненная форма tMainHistory].[Form]![Принадлежность]

http://www.sql.ru/forum/1268325/kak-otredaktirovat-zapis-v-otdelnoy-yacheyke

Hello Guys,

First of all, I have checked the different properties allow entry and entry properties and the likes of the form and the sub form, everything is at yes.

Is there a new feature in access 2010 and up that can stop someone from adding a row in a subform?

Do I need to recreate such subform from the ground up to be able to use it since they may be too old.

The problem isn't the fact that I'm unable to add rows in all versions, only in a newer version of access.


Thanks

I didn't find the right solution from the internet.
References:
- https://social.msdn.microsoft.com/Forums/office/en-US/065ebbce-af5a-40df-95f4-600c6819a59a/cannot-add-a-row-in-access-2016-subform-when-i-can-in-access-2007?forum=accessdev
- Water Treatment System Video Examples.

http://www.sql.ru/forum/1268318/cannot-add-a-row-in-access-2016-subform-when-i-can-in-access-2007

Hello Guys,

I have never used Access before but now find myself in a situation that it seems only Access can get me out of. My primary goal is simply to express and understand some data; basically all the effects of a particular cause, and simultaneously all the causes of a particular effect (for maybe 40-100 causes and 50-200 effects). As far as I can tell Access will be the best way of displaying/manipulating this data without a massive amount of repetition. There are some additional nuances but at it's core this is really all I need.

I spent some time reading/watching Access database tutorials but my need is so specific that they weren't very helpful and my unfamiliarity with the program makes it very hard to know exactly how to express my question. My main job means I travel a lot and only get a few days here and there to devote to this project so my time is very limited, only a few days a month at the moment. Can anybody help me find where to start with this. Ideally a template that matches my database, or at least somebody explaining how to express this particular basic relationship so that I can begin to fill out the data. I looked at many-to-many relationships but it was usually giving examples of students enrolling on courses or shop stock databases, things that did not help me with the specific type of database I need.

Thanks

I didn't find the right solution from the internet.
References:
- http://www.accessforums.net/showthread.php?t=67434
- Copyright Management Video Examples.

http://www.sql.ru/forum/1268316/where-to-start

При экспорте отчета в Word данные из поля МЕМО разбиваются символами новой строки. В отчете установил ширину поля 50 см, вроде бы помогло. Но очень нехорошее решение. Что можно сделать?

http://www.sql.ru/forum/1268269/eksport-otcheta-v-word