使用if中的函数将值分配给字段

Question

我有一个基于访问权限的表单，旨在允许用户在我的数据库中输入记录。

现在我需要为其中一个字段中输入的值设置一些验证。 我希望用户输入“3101或3102或3103或3104或3105”，如果在该字段中输入上述数值的任何部分，则该字段应分配给默认值“0000”

Answer 1

首先，将文本框的DefaultValue设置为：0

另外，将Format属性设置为：“0000”

然后使用文本框的AfterUpdate事件：

Dim InputValue As Integer
InputValue = Nz(Me!YourTextbox.Value, 0)
If InputValue  < 3101 or InputValue  > 3105 Then
    Me!YourTextbox.Value = Me!YourTextbox.DefaultValue
End If