Я получаю ошибку времени выполнения «94»: Недопустимое использование Null

У меня есть мой код ниже, чтобы увидеть, создает ли пользователь 4-значный пин-код, если они не заполняют пин-код, тогда пин-код будет настроен как пустая строка. Ничего страшного.

Я тестирую это в операторе if ниже, но он возвращает недопустимое использование нулевого исключения:

Dim U As String
If Me.txtUnlock = Null Then
U = 0
Else
U = Me.txtUnlock
End If
If IsNumeric(U) = False Then
MsgBox "Unlock pin only accepts numbers only.", , "Retail unlock"
Me.txtUnlock = Null
Me.txtUnlock.SetFocus
Exit Sub
End If
If Len(U) <> 4 Then
MsgBox "Retail unlock must be four digits long.", , "Retail unlock"
Me.txtUnlock.SetFocus
Exit Sub
End If

Затем я проверяю, пуста ли булавка ниже:

 If IsNull(Me.txtUnlock) Then
    check = check + 1
    UL = ""
    Else
    UL = Me.txtUnlock
    End If

ms-access vba

08.04.2019 22:34

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

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

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

1 402

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

If Me.txtUnlock = Null Then

Этого ты не можешь сделать. Попробуйте с:

If IsNull(Me!txtUnlock.Value) Then

08.04.2019 22:40

Ответ принят как подходящий

Рассмотрим этот оптимизированный код с использованием функции Новая Зеландия:

Dim U As String
U = NZ(Me.txtUnlock,0)

Dim fail as Boolean
If Not IsNumeric(U) Then
    MsgBox "Unlock pin only accepts numbers only.", , "Retail unlock"
    fail = true
ElseIf Len(U) <> 4 Then
    MsgBox "Retail unlock must be four digits long.", , "Retail unlock"
    fail = true
End If

If fail then
    With Me.txtUnlock 
        .value = vbNullString
        .SetFocus
    End With
End If

Извините, я начал писать комментарий и нажал Enter, который сохранил его. Что делать, если я не хочу, чтобы он возвращал 0. По какой-то причине, когда он возвращает ноль, он регистрируется как числовое значение и продолжает показывать «Розничная разблокировка должна состоять из 4 цифр.

— 17.04.2019 22:49

@Cookies добавляют условие для 0 в качестве первого условия If u = 0 Then ...

— 18.04.2019 17:57

08.04.2019 23:56