主题：折扣列如何限制小于1

我设计了一张订单表：有名品名称，数量，单价，折扣，合计。折扣输入不可能太于100%，应该如何设置折扣不能输入大于100%。

ValidateEdit事件

 

If e.Col.Name = "折扣" AndAlso e.Text > "" Then
   
    If val(e.Text) > 1 Then
       
        msgbox("不能大于1")
       
        e.Cancel = True
       
    End If
   
End If

谢谢！大红袍，可以啦

请问如果后期想更改 不大于1 但又不可能从新设计，请问在投入使用前该如何预留修改的权限呢

修改的权限具体是指修改什么？不是很明白