验证MS Access，VBA中未绑定文本控件中的输入

如何解决验证MS Access，VBA中未绑定文本控件中的输入

有效的用户输入为整数类型。如果用户输入了错误的信息，例如12e而不是123，则会显示一个消息框。我尝试在before_update内部使用带有typename（mycontrol.text）函数的验证，但是没有用。编辑。该控件引用一个链接表。原始表位于MysqL表中，正在考虑的字段为整数类型。

解决方法

到目前为止，最简单的方法是将数字格式分配给control.format（例如：“ Standard”）。
这将事实上检查输入的值是否为数字。
这个技巧也可以用于日期（当然使用日期格式），这比我经常看到的那些乏味的输入蒙版要好得多。

编辑09/12/2020。我知道了！我使用了函数IsNumeric（），Val（）和Int（）。这是我的私人功能，用于验证名为“ TEKNA”的文本框。

Private Sub TEKNA_BeforeUpdate(Cancel As Integer)

   If IsNumeric(TEKNA.Text) Then
        If Val(TEKNA.Text) = Int(TEKNA) Then
            'DO SOMETHING USEFUL
        Else
             MsgBox "You have to enter an  integer!"
             Cancel = True
        End If
   Else
        MsgBox "You have to enter an  integer!"
        Cancel = True
   End If

End Sub