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

@Арт_ · Регистрация: 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

как-то так

@alvk · 22.05.2019, 08:55

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

Пробовал на null, empty, nothing.

А надо было nz(). А тип поля какой у свободных полей? Может какая дата затесалась?

Me.[Поле2] = nz(Me.[PF_DOKUMENT].form![Номер], "")

@tkrainyk · 22.05.2019, 09:00

Попробуйте так:

Visual Basic
1
2
3
Private Sub Form_Current()
        
        if not isnull(Me.[PF_DOKUMENT]![Номер]) then Me.[Поле2] = Me.[PF_DOKUMENT]![Номер]

@alvk · 22.05.2019, 09:36

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

Попробуйте так:

Это неправильное обращение к элементу подчинённой формы.

@tkrainyk · 22.05.2019, 09:41

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

Это неправильное обращение к элементу подчинённой формы.

Почему?

@alvk · 22.05.2019, 09:47

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

@Панург · 22.05.2019, 09:56

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

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

При обращении к контролу SubForm в порицаемом примере далее идёт обращение к свойству по-умолчанию Controls. Это свойство возвращает коллекцию контролов подчинённой формы. Так что всё правильно.

Добавлено через 1 минуту
+ Обращение к свойству Form избыточно в общем.

@tkrainyk · 22.05.2019, 09:58

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

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

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

Там действительно такое обращение было бы неправильным.

@Панург · 22.05.2019, 10:04

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

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

в 98

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

@Capi · 22.05.2019, 10:14

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

в 98

Вообще-то, такого нету. Наверное, в 97 ?

@snipe · 22.05.2019, 11:39

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

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

номер дата и владелец еще не известны

@Панург · 22.05.2019, 12:02

Арт_, что в примере не так? работает

@Арт_ · 22.05.2019, 12:20 **[ТС]**

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

А тип поля какой у свободных полей

Я про это думал, но не нашел как задать, если возможно.

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

Может какая дата затесалась?

Не понял, во второе поле разве что дата заносится. Думал даже

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

Me.[Поле2] = nz(Me.[PF_DOKUMENT].form![Номер], "")

переменные объявить с типом д. и присвоить полям...
Пока не работает.
Про .Form забыл

Добавлено через 1 минуту
Если надо сброшу базу, чтобы не гадать, что и как.

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

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

Арт_, что в примере не так? работает

Так у меня тоже все работало, пока не решил проверять на наличие записей в форме

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

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

Me.[Поле2] = nz(Me.[PF_DOKUMENT].form![Номер], "")

Теперь пишет, что "Введенное выражение не содержит значения"
И после срабатывает msgbox, прогресс

@Панург · 22.05.2019, 12:28

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

Так у меня тоже все работало, пока не решил проверять на наличие записей в форме

где проверка?

@Арт_ · 22.05.2019, 12:37 **[ТС]**

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

@tkrainyk · 22.05.2019, 12:38

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

If Me.[Поле2] Is Not Null Then

Здесь надо так:

Visual Basic
1
If Not IsNull (Me.[Поле2])  Then

@snipe · 22.05.2019, 12:50

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

Not IsNull

это если не учитывать шаловливость ручек пользователей
а они могут в поле загнать строку нулевой длинны
и тогда вот это не сработает
уж лучше для текстовых полей Nz(....,"")=""
в этом случае и Null и строка нулевой длинны отловятся

@Арт_ · 22.05.2019, 12:51 **[ТС]**

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

Здесь надо так:

не ругался и думаю работало

Visual Basic
1
If Not IsNull (Me.[Поле2])  Then

null крутил тоже.

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

Теперь пишет, что "Введенное выражение не содержит значения"

Visual Basic
1
Me.[Поле2] = Null

На это сперва ругается, дальше буду смотреть

@Панург · 22.05.2019, 12:53

Арт_,

@Арт_ · 22.05.2019, 13:41 **[ТС]**

У себя протестил

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

test.zip

при открытии формы - "Введенное значение не подходит для данного поля", дебаг, резет и:

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

"Введенное выражение не содержит значения"

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	22.05.2019, 09:47
	Потому что правильное я написал выше и выделил красным то, чего у вас обоих не хватает. 0

@Арт_ 1 / 1 / 0 Регистрация: 24.05.2017 Сообщений: 270
	22.05.2019, 12:37 [ТС]
	первый пост, кнопка11. Первоначально проверял на пустую текущую запись, когда записи были в бд и все тоже работало, но когда их нет, что-то не так. 0