阻止用户输入除整数之外的任何内容到文本框中

时间:2015-03-02 21:04:41

标签: ms-access access-vba

我正在Access中构建一个表单,我有几个需要整数值的文本框。现在,您可以输入字符而不是数字,并在按下提交按钮时弹出调试窗口。如果在整数文本框中输入了无效条目,我该如何阻止用户按下提交按钮。

谢谢!

2 个答案:

答案 0 :(得分:1)

首先,在表格设计中将该字段设为数字类型。然后转到" Field属性"并确保"字段大小"设置为整数。这会处理十进制数,因为当文本框失去焦点时,它会将它们四舍五入为最接近的整数。

接下来,进入提交按钮属性并设置Enabled = False。这将使其变灰并且不允许用户单击它。您可能希望将此代码添加到表单的On Current属性中,这样无论何时加载记录,它都将根据已存在的值启用或禁用提交按钮。你需要" AND"如果表单上有多个整数文本框,则在更多整数文本框对象中使用相同的if语句:

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 Change事件中。只要输入了合适的数值,这将启用按钮,并且每次按下按键时都会更新按钮。

Private Sub IntegerTextBox_Change()
    If Not IsNumeric(Me.IntegerTextBox.Text) Then
        Me.SubmitButton.Enabled = False
    Else
        Me.SubmitButton.Enabled = True
    End If
End Sub

对表单上的每个整数字段执行此操作。

答案 1 :(得分:0)

在表格设计中,输入数据类型编号(整数)。