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


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

http://www.sql.ru/forum/1151328/otsledit-izmenenie-dannyh-v-podforme

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

Не получается решить следующую задачу.

Задача. Есть шаблон, хранимый в файле excel. В access этот шаблон открывается, заполняется, после чего, его нужно выгрузить в готовую существующую книгу.

Решаю так.
1. Открываю шаблон.

    Set xlApp = CreateObject("Excel.Application")
    xlApp.WindowState = xlMaximized
    xlApp.Visible = True
    xlApp.DisplayAlerts = False
    xlApp.ErrorCheckingOptions.NumberAsText = False
    xlApp.Workbooks.Open gstrScrewSheetXlsLocal
    Set xlWb = xlApp.ActiveWorkbook
    Set xlWsSheet = xlWb.Worksheets(1)
    xlApp.ErrorCheckingOptions.NumberAsText = False
    
    xlWsSheet.Activate
    xlApp.ActiveWindow.WindowState = xlMaximized

2. Открываю книгу, в которую необходимо сделать выгрузку.

    Set xlApp2 = CreateObject("Excel.Application")
    xlApp2.WindowState = xlMaximized
    xlApp2.Visible = True
    xlApp2.DisplayAlerts = False
    xlApp2.ErrorCheckingOptions.NumberAsText = False
    xlApp2.Workbooks.Open gstrBookXlsLocal
    Set xlWb2 = xlApp.ActiveWorkbook
    xlApp.ErrorCheckingOptions.NumberAsText = False
    
   xlApp2.ActiveWindow.WindowState = xlMaximized

3. Пытаюсь сохранить шаблон в открытую книгу.

    xlApp.Sheets(1).Select
    xlApp.Selection.Copy Before:=xlApp1.Workbooks(gstrBookXls).Sheets(1)

Но, выдаётся ошибка "Application-defined or object-defined error".

Попытка выгрузить "вручную" показывает, что открытые программно excel-файлы не "видят" друг друга. Т.е., если на ярлыке выгружаемого листа выбрать переместить/скопировать, то в "Переместить выбранные листы в книгу" не будет видна вторая книга. Если здесь же открыть один из уже открытых файлов "вручную", то он становится видим другими файлами.

Как можно сделать файлы взаимно видимыми, или, подскажите, пожалуйста как можно решить предложенную задачу.

http://www.sql.ru/forum/1151326/sohranenie-excel-lista-v-knigu

Как правильно реализовать источник для listbox
пробую так:

Set conn = New ADODB.Connection
conn.Open "Driver={MySQL ODBC 5.3 Unicode Driver};SERVER=xxx;UID=xxx;PASSWORD=xxx;DATABASE=xxx;PORT=xxx;COLUMN_SIZE_S32=1;DFLT_BIGINT_BIND_STR=1;"
    
    Dim rs As New ADODB.Recordset
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenDynamic
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM table_1", conn
    
Me.qqqq.RowSource = rs.GetString

На выходе получается все в одну строку

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

http://www.sql.ru/forum/1151299/listbox-rowsource-adp

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

http://www.sql.ru/forum/1151295/mozhno-li-primenit-zapros-k-drugoy-baze-access

Добрый вечер, помогите написать запросик/
Нужно отобразить всех студентов какого либо курса.
Какое условия я должен написать?
Select *
From Группа, Студенты

http://www.sql.ru/forum/1151281/prostye-zaprosy

Здравствуйте! Есть следующая таблица с данными:

id1 id2 1 1234 2 3 4 5 645 6 7 8 2469 9 10

Не могу понять можно ли сделать запрос или группу запросов где результатом будет:

id1 id2 1 1234 2 1234 3 1234 4 1234 5 645 6 645 7 645 8 2469 9 2469 10 2469

Если можно, подскажите как?

http://www.sql.ru/forum/1151279/mozhno-li-sdelat-takoy-zapros

Есть запрос на выборку из одной таблицы.
Есть вторая таблица, в поле которой, источник строк является этот запрос (выборка)
Вопрос:
Как сделать так, чтобы после установки галочки v в поле «Готовность» этот номер (№ 00000001) больше не появлялся?
Вообще такое возможно?

http://www.sql.ru/forum/1151275/istochnik-strok-v-pole-tablicy

Добрый день уважаемые ГУРУ! чето зашел клин, а спросить не у кого . имеется таблица в таблице исть текстовое поле в котором как правило цыфры, но есть и не только но ето для меня пока не важно.
как отсортировать в таблице или в запросе данное поле что бы оно выводило 1,2,3 и т.д а то щас получется 1,10,100,1000 и т.д

http://www.sql.ru/forum/1151199/cortirovka-znacheniy

Не могу в запросе дать определение абонентам, имеющим объекты в разных районах города.
Для примера можно заменить абонентов корзинами, а объекты яблоками)
Яблоки могут быть красными, желтыми, зелеными и т.п. В одной корзине может быть много яблок разного цвета, а может одного. Я не могу составить условие для выборки корзин, в которых лежат яблоки разного цвета (независимо от цвета).

http://www.sql.ru/forum/1151120/vyborka-po-otlichaushhimsya-parametram

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

Я абсолютный новичок в Access, по работе есть необходимость создания небольшой базы и ее обработки.

Одина из задач обработки данных заключается в следующем:

Есть одна таблица "План" вида:

Дата М1 М2 М3
15.06.2015 5 6 4
16.06.2015 3 1 2
17.06.2015 4 1 3

Поля в ней обозначают следующее:

Дата - день производства
Mi - это модель производимого товара. Значения в этих полях обозначают количество планируемых к выпуску единиц товара модели Mi на определенную дату.

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

Есть вторая таблица "Нормы" вида:

Код М1 М2 М3
К1 2 4 3
К2 4 5 1
К3 6 8 2

Поля в ней следующие:

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

Mi - те же модели из таблицы выше. Значения этих полей - соответственно кол-во материала Kj, необходимое для производства 1 единицы продукта модели Mi.

Количество столбцов (кол-во моделей Mi) в обеих таблицах совпадает.

А теперь сама задача:

Необходимо создать запрос или модуль VBA, который бы считал, сколько какого материала Kj в какой день необходимо израсходовать для того, чтобы выполнить план и произвести запланированный объем. И результат должен выводиться в таблицу типа (или ее транспонированную версию):

Дата К1 К2 К3
15.06.2015
16.06.2015
17.06.2015

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

Есть ли относительно простое решение этой задачи, доступное для новичка вроде меня? И если есть, не поделится ли кто?

Заранее спасибо за подсказки/советы/помощь!

http://www.sql.ru/forum/1151118/umnozhenie-matriy-ili-poisk-alternativnogo-resheniya-problemy

выдает ошибку 424.. без строки обращения к форме просто входит..но мне нужно чтоб вкладка скрывалась,что не так,как правильно скрыть вкладку в accessЕ.

If ПолеСосп2.Value = "Продажи" And Поле5.Value = "12445621" Then
MsgBox "Пароль верен"
ПолеСосп2.Value = ""
Поле5.Value = ""
кнопка7.Visible = True
form_Главная.Controls("НаборВкладок0").Pages(0).Visible = False

http://www.sql.ru/forum/1151084/kak-sdelat-pravilno

Есть ячейки в таблице "Реестр адресов" :Район , область , населённый пункт, дом , квартира.Необходимо что-бы всё это записывалось в одну ячейку "адрес" в таблице "льготник" без запятых .Как это возможно сделать ?

http://www.sql.ru/forum/1151072/neobhodimo-v-odnu-yacheyku-dobavit-znacheniya-iz-tryoh-drugih

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

Такая ситуация: есть проект на Access 2010 для которого данные храняться в SQL Server 2012. Есть связанная таблица которая в базе представлена представлением (View), где запрос включает Join.

В Access если отркывать таблицу для просмотра можна редактировать и сохранять изменения, но если открыть форму которая использует эту таблицу как Record Source, то редактировать таблицу невозможно - таблица блокируется. При попытке перейти на другую запись в таблице (тем самым сохранить изменения) появляется сообщение - Query timeout expired.

Форма каким-то образом блокирует связанную таблицу. Как это исправить?

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

http://www.sql.ru/forum/1151065/oshibka-query-timeout-expired-pri-update-svyazannoy-tablicy

Доброго времени суток!
При подготовки к контрольной возникла проблема с запросом.
К сообщению прилагаю схему данных БД

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

ОЧЕНЬ ОЧЕНЬ ПРОШУ ПОМОЩИ!!!
ЗАРАНЕЕ ВСЕМ СПАСИБО!!!!

http://www.sql.ru/forum/1151063/slozhnyy-zapros-s-psevdonimymi-i-vlozhennye-zaprosy-vo-from-union

Всем привет.
Прошу помочь
Access2013

Есть 2 таблицы:
1. Проект
1.1. Ключ
1.2. Название

2. Строчки проекта
2.1. Ключ (Связан с таблицей 1 Код проекта)
2.2. код проекта
2.3. Наименование
2.4. Цена

Есть запрос по строчкам проекта который суммирует все строчки с одинаковым кодом проекта.

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

Что то не могу найти как :) хотя думаю все на поверхности лежит ...

http://www.sql.ru/forum/1151060/vyvod-itogovogo-polya-v-forme-iz-zaprosa

Господа прошу помочь, уже все перерыл - ничего не работает.
Если вместо ссылки на форму подставлять

 date() 

то все работает.

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

 '  CurrentDb.Execute ("DELETE table_ceh_birki.id_birki, table_ceh_birki.nomer, table_ceh_birki.date_now FROM table_ceh_birki WHERE (((table_ceh_birki.id_birki)=1))")
 ' Me.Requery
   
   Dim k
   Dim lk As Recordset
    
    k = Forms![Print_lable_ceh_birki]![kol]
    d = Forms![Print_lable_ceh_birki]![Data]
    f = CDate(d)
    Set lk = CurrentDb().OpenRecordset("table_ceh_birki")
    
  For i = 1 To k
  
   Set q = CurrentDb.Execute("INSERT INTO table_ceh_birki (nomer, id_birki, date_birka)SELECT " & i & " AS nomer_birki, '1' AS birki_id, f AS data_birki")
   
  
    Me.Requery
   
   
  Next i
 
  lk.Close


    DoCmd.OpenReport "lable_shtr_ceh_1", acPreview

End Sub

http://www.sql.ru/forum/1151058/vydaet-oshibku-slishkom-malo-parametrov-trebuetsya-1

Добрый день.
Нужно выбрать записи из таблицы в котором поле флаг первые два бита подняты
в msSql такая конструкция работает

SELECT * from MyTable a WHERE Flag&3=3

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

http://www.sql.ru/forum/1150974/bitovoe-sravnenie

Уважаемые эксперты!
В коде VBA не получается работа с полем, допускающим несколько значений. Поле Фамилия таблицы Журнал задано как поле со списком, допускающим несколько значений. Есть также поле ДатаОпроса. Необходимо подсчитать, сколько раз конкретная фамилия участвовала в опросах за определенный промежуток времени. Пока я просто пытаюсь вытянуть значение поля Фамилия в строковую переменную и получаю сообщение об ошибке Run-time error ‘3061’. Слишком мало параметров. Требуется 3.
Что я делаю неправильно?

Option Compare Database
Option Explicit
Private Sub Кнопка5_Click()
Dim rstDati As DAO.Recordset
Dim qdfDati As QueryDef
Dim temp, fam As String
Const BoxTitle = "Период опроса"
Dim dbeg, dfin As Date
'ЗАПРОС ДАТ НАЧАЛА И КОНЦА ОПРОСА
temp = InputBox("Введите начальную дату опроса ЧЧ.ММ.ГГГГ", BoxTitle)
dbeg = temp
'dbeg = Format(dbeg, "dd mm yyyy")
temp = InputBox("Введите конечную дату опроса ЧЧ.ММ.ГГГГ", BoxTitle)
dfin = temp
Set qdfDati = CurrentDb.CreateQueryDef("", "PARAMETERS db DateTime, df DateTime; " _
& "SELECT tblЖУРНАЛ.doprosa, tblЖУРНАЛ.Фамилия FROM tblЖУРНАЛ " _
& "WHERE (((tblЖУРНАЛ.di) Between db And df));")
' СОЗДАНИЕ ВРЕМЕННОГО ДИНАМИЧЕСКОГО ОБЪЕКТА Recordset с конкретными параметрами
qdfDati.Parameters(0) = dbeg
qdfDati.Parameters(1) = dfin
Set rstDati = qdfDati.OpenRecordset()
If rstDati.RecordCount <> 0 Then
   rstDati.MoveFirst
   fam = rstDati![Фамилия]
   MsgBox fam
End If
rstDati.Close
End Sub

http://www.sql.ru/forum/1150963/rabota-s-polem-dopuskaushhim-neskolko-znacheniy-v-kode-vba

Есть несколько заданий или как их там я их сейчас из студии запускаю (оформить как процедуру не выйдет - прав нет и не будет) такого вида:

1 формуется период
2 отбираются данные за период + доп критерии в темповую таблицу
3 из темповой таблицы формируется итоговая таблица по объектам + скажем детальный адрес
4 из темповой таблицы формируется детальная таблица по объектам + тотже детальный адрес + что-нибудь вычисляемое
5 дропается темповая таблица

Вот хочется вызывать это все из VBA и получать рез-ты п.3 и п.4 в разные рекордсеты, кол-во готов задавать перед обращением к SQL Server.

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

http://www.sql.ru/forum/1150930/vozmozhno-li-poluchenie-rezultatov-neskolkih-select-v-raznye-rekordsety-za-odin-execute

если записать вместо not like просто like, то работает (выводит по условию, даже если в таблице марка больше одного название). Если кто знает, подскажите.

http://www.sql.ru/forum/1150926/operator-like