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