VBA Access文本框验证：限制输入带两位小数的百分比（无舍入）

要实现文本框仅允许输入单个小数点、最多两位小数且不舍入的百分比数值验证，需要结合KeyPress事件（拦截实时输入）和BeforeUpdate事件（处理粘贴/批量修改等场景），以下是具体代码和说明：

1. KeyPress事件：实时拦截非法输入 #

在目标文本框的KeyPress事件中添加以下代码，仅允许数字、单个小数点和退格键：

Private Sub txtPercentage_KeyPress(KeyAscii As Integer)
    ' 允许退格键（用于删除输入）
    If KeyAscii = 8 Then Exit Sub
    
    ' 允许0-9数字键
    If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub
    
    ' 处理小数点：仅当文本中无小数点时允许输入
    If KeyAscii = Asc(".") Then
        If InStr(Me.txtPercentage.Text, ".") > 0 Then
            KeyAscii = 0 ' 已有小数点，禁止重复输入
        Else
            ' 可选：禁止开头直接输入小数点（取消注释启用）
            ' If Me.txtPercentage.SelStart = 0 Then KeyAscii = 0
        End If
        Exit Sub
    End If
    
    ' 其他所有按键一律禁止
    KeyAscii = 0
End Sub

2. BeforeUpdate事件：最终验证与截断处理 #

这个事件用于处理粘贴、通过代码修改等非键盘输入场景，确保输入内容符合小数位数要求，且直接截断多余小数（不舍入）：

Private Sub txtPercentage_BeforeUpdate(Cancel As Integer)
    Dim inputContent As String
    Dim decimalIndex As Integer
    
    inputContent = Trim(Me.txtPercentage.Text)
    
    ' 空值直接跳过验证
    If inputContent = "" Then Exit Sub
    
    ' 验证是否为有效数字格式
    If Not IsNumeric(inputContent) Then
        MsgBox "请输入有效的数字格式", vbExclamation
        Cancel = True
        Me.txtPercentage.Undo
        Exit Sub
    End If
    
    ' 检查小数位数，超过两位则截断
    decimalIndex = InStr(inputContent, ".")
    If decimalIndex > 0 Then
        If Len(inputContent) - decimalIndex > 2 Then
            MsgBox "最多允许两位小数", vbExclamation
            Cancel = True
            ' 直接截断到两位小数，不舍入
            Me.txtPercentage.Text = Left(inputContent, decimalIndex + 2)
            Me.txtPercentage.SelStart = Len(Me.txtPercentage.Text) ' 光标移到末尾
        End If
    End If
    
    ' 可选：如果需要将输入的百分比转换为数值存储（如输入12.34存为0.1234）
    ' Me.txtPercentage.Value = CDbl(inputContent) / 100
End Sub

补充说明 #

• 如果需要让文本框显示为百分比格式（如输入12.34显示为12.34%），可将文本框的Format属性设置为0.00%，但这仅影响显示，存储值需根据需求自行转换。
• 代码中的txtPercentage是文本框名称，需替换为你实际使用的文本框控件名。

内容的提问来源于stack exchange，提问作者BETO