Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2013, 11:13   #1
katttes
Пользователь
 
Регистрация: 02.04.2010
Сообщений: 33
По умолчанию Форма "Несколько элементов". Ошибка при клике

Есть форма типа "Несколько элементов", основанная на запросе:
"SELECT [Реестр замечаний].[Название объекта], [Реестр замечаний].Организация, [Реестр замечаний].[Родительский документ], [Реестр замечаний].Дата, [Реестр замечаний].[Срок исполнения], [Реестр замечаний].Раздел, [Реестр замечаний].[Номер замечания], [Реестр замечаний].Содержание, [Реестр замечаний].[НД замечания], [Реестр замечаний].Ответ, [Реестр замечаний].Статус, [Реестр замечаний].Исполнитель
FROM [Реестр замечаний];"

В заголовок формы вставлено поле "Исполнитель"
SELECT [Список сведений о пользователях].ИД, [Список сведений о пользователях].Название FROM [Список сведений о пользователях] WHERE ((([Список сведений о пользователях].Фамилия) Is Not Null)) ORDER BY [Список сведений о пользователях].Название, [Список сведений о пользователях].Фамилия;
При загрузке формы отрабатывает макрос:
Private Sub Form_Load()
g = Environ("USERNAME")
Dim rst As DAO.Recordset
Dim strSql As String

strSql = "SELECT [Список сведений о пользователях].ИД FROM [Список сведений о пользователях] where [Список сведений о пользователях].[Учетная запись] = 'OMGP\" + g + "'"
Set rst = CurrentDb.OpenRecordset(strSql)

Me.Исполнитель.Value = rst![ИД]
End Sub

Проблема в следующем: при клике по таблице появляется ошибка:"Невозможно записать внесенные изменения,т.к. введенное значение противоречит условиям, заданным для поля [НД_замечания]. Исправьте ошибку и повторите попытку"
Объясните пожалуйста в чем ошибка?

Заранее спасибо!
katttes вне форума Ответить с цитированием
Старый 01.04.2013, 14:57   #2
Андрэич
Форумчанин
 
Аватар для Андрэич
 
Регистрация: 20.05.2012
Сообщений: 311
По умолчанию

Здесь многое, что избыточно.
И что, результат запроса "встаёт"-таки в заголовок формы? Думаю, нет.
А, что вы делаете, можно простым объяснением?
Андрэич вне форума Ответить с цитированием
Старый 01.04.2013, 16:36   #3
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте katttes.
1. "..Есть форма типа.." - не самое удачное приветствие.
2. "..В заголовок формы вставлено поле.." - думаю речь идёт не о Заголовке формы, а о поле на форме.
3. "..Невозможно записать внесенные изменения.." - ни одна из представленных Вами строк не вносит никаких изменений, следовательно можно только предположить (т.к. Вы не предоставили образец) что переход по записям ("..при клике по таблице..") не выполняется из-за несоответствия данных ограничениям поля [НД_замечания].
В этом и есть Ваша ошибка, больше можно будет сказать только после изучения БД (образца)

Евгений.

P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde]...[/соde],
для его вызова на панели расположена кнопка #

Последний раз редактировалось Teslenko_EA; 01.04.2013 в 16:39.
Teslenko_EA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
1>Проект : error PRJ0003 : Ошибка при создании "cl.exe". ben95 Помощь студентам 1 14.05.2009 17:10
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
Ошибка при установке "critical errors were found in setup" tsergey Софт 1 13.03.2009 03:58
настроить при открытии Excel 2003 в окошке "Тип файлов" вывод пункта "Все файлы (*.*)" по умолчанию? Unior Microsoft Office Excel 2 01.03.2009 02:42