Выполнение ввода информации пользователя в текстовые поля перед отправкой

Question

Я создал 5 текстовых полей в форме, и я искал код VBA, который подскажет пользователю ввести значение хотя бы в одном из 5 полей. Я вычислил код, чтобы пользователь поместил данные в указанное текстовое поле, но я хочу проверить все пять одновременно.

Answer 1

Рассмотрите 3 текстовых поля. Если ни одно из них не содержит значения, IsNull() будет True для каждого из них. Таким образом, вы можете проверить состояние If ... Then, чтобы определить, когда все они являются Null.

If IsNull(Me.Text1) And IsNull(Me.Text2) And IsNull(Me.Text3) Then 
    MsgBox "Please enter a value in at least one text box." 
End If 

Вы можете использовать это в Before случае обновления вашей формы и установить Отмена = True, чтобы отменить обновление, когда все равны нулю:

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If IsNull(Me.Text1) And IsNull(Me.Text2) And IsNull(Me.Text3) Then 
     MsgBox "Please enter a value in at least one text box." 
     Cancel = True 
    End If 
End Sub 

Если это предложение полезно, все, что вам нужно нужно для этого нужно расширить его от 3 до 5 текстовых полей.