源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 模块/函数/VBA/API/系统 > 经典算法
经典算法

Access限制录入不同类型的数据

  • 更新时间2015-01-31 14:14:02
  • 文件下载 点击下载
  • 文件类型rar
  • 文件版本Access2003
  • 简要说明 我们做的应用程序很多时候都会限制数据录入的类型，比如说购买数量，我们不能随便输入文字，更不能输入负数和小数了。这时我们当然要限制其输入了，否则就会出错。

详细描述

    我们做的应用程序很多时候都会限制数据录入的类型，比如说购买数量，我们不能随便输入文字，更不能输入负数和小数了。这时我们当然要限制其输入了，否则就会出错。
    下面的示例是使用了类模块创建函数，方便调用限制不规则的录入。可以设置整数格式，小数格式，字符格式，email格式，电话格式等。
    自己还可以根据自己的需要，改写符合自己需要的格式。达到控制文本的录入，尽量减少由于输入不规范带来的影响




 Private m_DataType As Integer   '定义数据类型
 Private WithEvents LimitTextBox As TextBox
 
 Enum DType
    MyChar = 0     '字符类型
    MyInt = 1      '整数
    MyDecimal = 2  '小数
    MyPhone = 3    '电话
    MyEmail = 4    'Email
    MyNone = 5     '常规
End Enum
 
 
Property Get DataType() As DType
    DataType = m_DataType
End Property
 
Property Let DataType(Value As DType)
    m_DataType = Value
End Property
 
Public Sub SetTextBoxType(LimitText As TextBox, LimitType As DType)
  '设置文本数据类型
    Set LimitTextBox = LimitText
    With LimitTextBox
        DataType = LimitType
       .OnKeyPress = "[Event Procedure]"
    End With
  
End Sub
Private Sub LimitTextBox_KeyPress(KeyAscii As Integer)
   
   Select Case m_DataType
      
      Case 0
         If Not IsChar(KeyAscii) = True Then KeyAscii = 0
      Case 1
          If Not IsInt(KeyAscii) = True Then KeyAscii = 0
      Case 2
          If Not IsDecimal(KeyAscii) = True Then KeyAscii = 0
      Case 3
           If Not IsPhone(KeyAscii) = True Then KeyAscii = 0
      Case 4
           If Not IsEmail(KeyAscii) = True Then KeyAscii = 0
      Case 5
          
    End Select
 
End Sub
 
 
Private Sub Class_Initialize()
    Set LimitTextBox = Nothing
End Sub
 
 
Private Function IsChar(ByVal A As Integer) As Boolean
    If (A < 97 Or A > 122) And (A < 65 Or A > 90) And (A <> 8) And (A <> 32) Then
        IsChar = False
       Else
        IsChar = True
    End If
End Function
Private Function IsInt(ByVal A As Integer) As Boolean
    If (A < 48 Or A > 57) And (A <> 8) Then
       
          IsInt = False
       Else
          IsInt = True
    End If
End Function
    
Private Function IsDecimal(ByVal KeyAscii As Integer) As Boolean
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = Asc(".") Then
        IsDecimal = True
     Else
        IsDecimal = False
    End If
End Function
Private Function IsPhone(ByVal A As Integer) As Boolean
    If (A < 48 Or A > 57) And (A <> 8) And (A <> Asc("-")) Then
        IsPhone = False
       Else
        IsPhone = True
    End If
End Function
Private Function IsEmail(ByVal A As Integer) As Boolean
    If (A < 97 Or A > 122) And (A < 65 Or A > 90) And (A <> 8) And (A < 48 Or A > 57) And A <> Asc("-") And A <> Asc("@") And A <> Asc(".") Then
        IsEmail = False
       Else
        IsEmail = True
    End If
End Function
Private Function IsProperDecimal(ByVal No As String) As Boolean
    Dim NoLen
    Dim DotFlag
    DotFlag = 0
 
    NoLen = Len(No)
    Dim I As Integer
    For I = 1 To NoLen
        If Mid(No, I, 1) = "." Then DotFlag = DotFlag + 1
    Next I
    If DotFlag > 1 Then IsProperDecimal = False Else IsProperDecimal = True
End Function
      access数据库
 

 

发布人:andymark-office中国  
分享到：
点击次数：  更新时间：2015-01-31 14:14:02  【打印此页】  【关闭】
上一条：不规则的字符串中提取日期数据  下一条：Access自动设置窗体高度

相关下载

热门下载

热门产品