Во-первых, создайте поле Тип номера в дизайне таблицы. Затем перейдите в «Свойства поля» и убедитесь, что для параметра «Размер поля» установлено значение «Целое число». Это позаботится о десятичных числах, потому что оно округляет их до ближайшего целого числа, когда текстовое поле теряет фокус.
Далее перейдите в свойства кнопки отправки и установите Enabled = False. Это будет серым и не позволит пользователю щелкнуть по нему. Вы можете добавить этот код в свойство On Current формы, чтобы всякий раз, когда запись была загружена, она активирует или отключает кнопку отправки на основе значения, которое уже существует. Вы должны «И» в более объектов целое TextBox к тому же, если заявление, если у вас есть более чем одно целое текстовое поле на вашей форме:
Private Sub Form_Current()
If Not IsNumeric(Me.IntegerTextBox.Value) Then
Me.SubmitButton.Enabled = False
Else
Me.SubmitButton.Enabled = True
End If
End Sub
Наконец, добавьте этот код к изменению события On для текстового поля. Это позволит использовать кнопку каждый раз, когда будет введено соответствующее числовое значение, и будет обновлять кнопку каждый раз, когда нажата клавиша.
Private Sub IntegerTextBox_Change()
If Not IsNumeric(Me.IntegerTextBox.Text) Then
Me.SubmitButton.Enabled = False
Else
Me.SubmitButton.Enabled = True
End If
End Sub
Сделайте это для каждого целого поля в вашей форме.
Вы пробовали поставить код «check-for-number» в событии '_BeforeUpdate' или' OnChange' текстового поля? – tospig