Введенное значение не подходит для данного поля

@Арт_ · Регистрация: 24.05.2017

Студворк — интернет-сервис помощи студентам

Всем привет!

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

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

СкАжите, что надо в бд добавить записи и на этом успокоится, но не...
Решил, что нужно сделать проверку на наличие значений (не знаю как правильно, на пустоту или инициализацию) в свободных полях.
Пробовал на null, empty, nothing.

Не в курсе возможно эта ошибка норма для данной ситуации. И это только можно обработать обработчиком ошибок или событием error.
Хочу разобраться,

Заранее спасибо.

Добавлено через 4 минуты

Visual Basic
1
2
3
4
5
Private Sub Form_Current()
        
        Me.[Поле2] = Me.[PF_DOKUMENT]![Номер]
        Me.[Поле4] = Me.[PF_DOKUMENT]![Дата]
        Me.[Поле6] = Me.[PF_DOKUMENT]![Владелец]

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Кнопка11_Click()
    On Error GoTo Err_Кнопка11_Click
 
        Dim stDocName As String
        Dim stLinkCriteria As String
        
        stDocName = "DOKUMENT"
        
        If Me.[Поле2] Is Not Null Then      'проверка на инициализацию Me.[Поле2]
                                        'если она существует открывается форма
            stLinkCriteria = "[NOMER]=" & "'" & Me![Поле2] & "'"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
            
        Else   'иначе выдается ошибка
        
            Dim alert, msg, style, title As String
            
            msg = "Ни одной записи нет в базе данных! Нажмите кнопку " & Chr(171) & "Новая карточка " & Chr(187) & " для того, чтобы создать новую запись."
            style = vbOKOnly + vbExclamation
            title = "Сообщение об ошибке"
        
            alert = MsgBox(msg, style, title)
            
        End If
    
Exit_Кнопка11_Click:
Exit Sub
 
Err_Кнопка11_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка11_Click
    
End Sub

как-то так

@Панург · 22.05.2019, 13:54

Арт_, что за акцесс установлен?

Добавлено через 2 минуты

Сообщение от Арт_

Visual Basic
1
2
3
4
5
Private Sub m_frmSub_Current()
Me.[поле2] = Me.[PF_DOKUMENT].Form![номер]
Me.[ГЏполе4] = Me.[PF_DOKUMENT].Form![дата]
Me.[поле6] = Me.[PF_DOKUMENT].Form![владелец]
End Sub

Это код не из примера. Поля не так называются.

@Арт_ · 22.05.2019, 14:03 **[ТС]**

файл в .aacdb, сейчас в 2007 сижу, на работе 2010.

Сообщение от Панург

Это код не из примера. Поля не так называются.

".Form" добавил, но результ, что с ним, что без одинаков.

@Панург · 22.05.2019, 14:16

Сообщение от Арт_

".Form" добавил, но результ, что с ним, что без одинаков.

нет, не только

@Арт_ · 22.05.2019, 14:43 **[ТС]**

все та же ошибка

@Панург · 22.05.2019, 16:29

Арт_, у тебя явно проблема с Access. Пример точно рабочий.
Ты пробовал отследить ошибку? Что пишет в окне immediate? В процедурах есть обработчики ошибок, т.ч. выводить ошибки в сообщениях не должен.

@VinniPuh · 22.05.2019, 17:52

Чё это за символ в третьей строчке, перед - поле4?

@Арт_ · 23.05.2019, 01:11 **[ТС]**

Сообщение от VinniPuh

Чё это за символ в третьей строчке, перед - поле4?

Это я неудачно скопировал сюда, в коде без этих символов

Добавлено через 6 минут

Сообщение от Панург

Ты пробовал отследить ошибку? Что пишет в окне immediate? В процедурах есть обработчики ошибок, т.ч. выводить ошибки в сообщениях не должен.

В этом не проф, но уже как говорил может просто перехватить ошибку и пропускать ее.

@Панург · 23.05.2019, 03:55

Арт_, мы разговариваем как не с друг с другом...

Сообщение от Панург

В процедурах есть обработчики ошибок, т.ч. выводить ошибки в сообщениях не должен.

Сообщение от Арт_

может просто перехватить ошибку и пропускать ее.

Ошибки идут и с моим примером? Или ты про свою бд говоришь? Если ошибки сыпятся с моего пример, то

Сообщение от Панург

у тебя явно проблема с Access. Пример точно рабочий.

или одно из двух...

@alvk · 23.05.2019, 04:23

Сообщение от tkrainyk

В Access 2010 и так работает. Вы видно привыкли работать еще c Access 00

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

Добавлено через 8 минут

Сообщение от Арт_

".Form" добавил, но результ, что с ним, что без одинаков.

Выкладывайте пример, где не работает.

@Арт_ · 23.05.2019, 05:41 **[ТС]**

Панург, у Вас все рабочее, не думаю, что дело в Access.

@Арт_ · 23.05.2019, 05:45 **[ТС]**

база с Вашими наработками.

@Панург · 23.05.2019, 06:04

Арт_,

@Панург · 23.05.2019, 06:09

Сообщение от alvk

правила существуют для всех.

Правила для того и нужны чтобы их нарушать и не делать из них догматов.
Кстати о каком правиле речь идёт?

Режим питания нарушать нельзя! ©

@Арт_ · 23.05.2019, 06:19 **[ТС]**

Панург, спасибо, а в чем косяк был?
Но все же хотелось решение без

Visual Basic
1
Private WithEvents m_frmSub As Access.Form

и навешивания на него события, а то для меня это еще рано. И код поддерживать сложнее, который плохо понимаешь.

@Панург · 23.05.2019, 06:34

Сообщение от Арт_

Но все же хотелось решение без

Зачем? Это постоянная ссылка на субформу. Ничего страшного нет. Единственное - нужно чтобы были обработаны все исключения иначе слетают все подобные ссылки (уровня модуля, глобальные).

Добавлено через 2 минуты

Сообщение от Арт_

а в чем косяк был?

код внимательно посмотри, особенно событие Current. Поставь точку останова там, протрассируй код (F8).

@Арт_ · 23.05.2019, 06:54 **[ТС]**

Сообщение от Панург

код внимательно посмотри

Понял, не обратил внимания (код еще толком не изучил).
А где происходит блокировка сабформы (удал, добав, изм.)?

@Панург · 23.05.2019, 07:07

Сообщение от Арт_

А где происходит блокировка сабформы (удал, добав, изм.)?

Это ты сам запретил делать в редакторе свойств формы (которая стоит как подчинённая).

@Арт_ · 23.05.2019, 07:31 **[ТС]**

Может это изменил предыдущий код, но я все разрешения в vba запрещал. Разберусь.
А зачем

Сообщение от Панург

Это постоянная ссылка на субформу

В кратце можете пояснить, в интернете почитал, смутно описано.

Visual Basic
1
Private WithEvents m_frmSub As Access.Form

Visual Basic
1
Private Sub Form_Load()

Добавлено через 12 минут
Даже бы сказал, что все понятно (более-менее), но без этого можно было осуществить задуманное?

@Панург · 23.05.2019, 07:45

Арт_, Это сделано для того чтобы управление было сосредоточено в одном месте. При изменении текущей записи в субформе происходит управление свойствами главной формы - изменение значения полей, доступности кнопок и прочего если будет. Причём изменение текущей записи может произойти, как из кода (фильтрация), так и пользователем тыкающим по записям субформы мышой (например). Процедура события может исполнятся и из кода (см. Form_Load). Кстати добавь

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub FilterAndSort()
...
m_frmSub.FilterOn = (Len(sFilter) > 0)
Call m_frmSub_Current' при изменении фильтра изменится и текущая запись, нужно чтобы выполнилась процедура
 
'сортировка
m_frmSub.OrderBy = IIf(Me!sortingSwitches, "nomer ASC", "nomer DESC")
...
End Sub

@Арт_ · 23.05.2019, 08:11 **[ТС]**

Панург, спасибо Вам!

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@Арт_ 1 / 1 / 0 Регистрация: 24.05.2017 Сообщений: 270
	22.05.2019, 14:43 [ТС]
	все та же ошибка 0

@Панург Мы один, давай на "ты" 3858 / 1400 / 348 Регистрация: 16.06.2016 Сообщений: 3,300
	22.05.2019, 16:29
	Арт_, у тебя явно проблема с Access. Пример точно рабочий. Ты пробовал отследить ошибку? Что пишет в окне immediate? В процедурах есть обработчики ошибок, т.ч. выводить ошибки в сообщениях не должен. 0

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	22.05.2019, 17:52
	Чё это за символ в третьей строчке, перед - поле4? 0

@Арт_ 1 / 1 / 0 Регистрация: 24.05.2017 Сообщений: 270
	23.05.2019, 05:41 [ТС]
	Панург, у Вас все рабочее, не думаю, что дело в Access. 0

@Арт_ 1 / 1 / 0 Регистрация: 24.05.2017 Сообщений: 270
	23.05.2019, 08:11 [ТС]
	Панург, спасибо Вам! 0

Введенное значение не подходит для данного поля

Решение