Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 防止用户在文本框中输入除整数以外的任何内容_Ms Access_Vba - Fatal编程技术网

Ms access 防止用户在文本框中输入除整数以外的任何内容

Ms access 防止用户在文本框中输入除整数以外的任何内容,ms-access,vba,Ms Access,Vba,我正在Access中构造一个表单,我有几个需要整数值的文本框。现在,您可以输入字符而不是数字,当按下submit按钮时,会弹出一个调试窗口。当在interger文本框中输入无效条目时,如何防止用户按下submit按钮 谢谢大家! 在表设计中,将数据类型设置为数字(整数)。首先,将字段设置为表设计中的数字类型。然后转到“字段属性”,确保“字段大小”设置为整数。这会考虑十进制数字,因为当文本框失去焦点时,它会将它们四舍五入到最接近的整数 接下来,进入submit按钮属性并将Enabled=False

我正在Access中构造一个表单,我有几个需要整数值的文本框。现在,您可以输入字符而不是数字,当按下submit按钮时,会弹出一个调试窗口。当在interger文本框中输入无效条目时,如何防止用户按下submit按钮


谢谢大家!

在表设计中,将数据类型设置为数字(整数)。

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

接下来,进入submit按钮属性并将Enabled=False。这将使其变灰,不允许用户单击它。您可能希望将此代码添加到表单的On Current属性中,以便每当加载记录时,它都会根据已存在的值启用或禁用submit按钮。如果表单上有多个整数文本框,则需要在多个整数文本框对象中对同一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

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

在更新之前或文本框的更改事件之后,是否尝试将“检查数字”代码放入
\u中?只是想知道这是否是您要查找的答案?是否有任何方法可以使用此代码并仍然允许小数?但我认为这是我需要走的正确方向是的。进入表格设计,并将字段类型编号。然后转到字段属性,将属性“字段大小”从整数更改为单(如果有大小数,则更改为双精度)。我将把发布的答案保留为整数,因为这是您最初的问题。@BriannaCates另外,请参阅我为当前事件表单添加的另一个步骤。太棒了!多谢各位