Проверка доступа к пустым, пустым или пустым полям - PullRequest
Новая
       59

Проверка доступа к пустым, пустым или пустым полям

0 голосов
/ 18 декабря 2018

У меня есть форма с десятками полей.

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

Если пробел найден, я бы хотел, чтобы он показал форму;если ничего не найдено, я бы хотел закрыть текущую форму.

Мой код указан ниже.

Он успешно проходит по всем полям и показывает форму, когда находит пустое / пустое / пустое поле, но я не могу понять, как закрыть форму, если (и только если) нет пустых/ пустые / пустые поля в форме. 

Private Sub Command146_Click()
    Dim ctl As Control

    With Me
        For Each ctl In .Controls
            If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
                If Len(ctl.Value & "") = 0 Then
                    DoCmd.OpenForm "PopMissingData"
                    Exit For
                End If ' Value
            End If ' ControlType
        Next
    End With
End Sub

1 Ответ

0 голосов
/ 18 декабря 2018

Просто проверьте, не закончился ли объект управления: 

Private Sub Command146_Click()

    Dim ctl As Control

    With Me
        For Each ctl In .Controls
            If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
                If Len(ctl.Value & "") = 0 Then
                    Exit For
                End If ' Value
            End If ' ControlType
        Next
    End With

    If ctl Is Nothing Then
        ' All controls validated.
        DoCmd.Close acForm, Me.Name
    Else
        ' Open the other form.
        ' ctl will hold the non-validated control.
        DoCmd.OpenForm "PopMissingData"
    End If

End Sub
...