在表中设定了固话、手机、账号等的填写规则，在表中直接填数据正常，在窗体中填入会报有效性规则的错误

在表中设定了固话、手机、账号等的填写规则，在access数据库表中直接填数据正常，但是在窗体中填入会报有效性规则的错误（就是不管我怎么填都会报我原本有效性规则里面的文本内容）。

使用的是快速开发平台，详细案例见图。

保存按钮代码如下：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler


    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub


    Dim cnn: Set cnn = GetADOConnection()


   'cnn.BeginTrans
   'Dim blnTransBegin As Boolean: blnTransBegin = True


    Dim strSQL: strSQL = "SELECT * FROM [客户信息表] WHERE [ID]=" & Nz(Me![ID], 0)
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    rst.Update
    rst.Close


   'cnn.CommitTrans
   'blnTransBegin = False


    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation


    If Me.DataEntry Then
        Me.InitData
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If


ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub


'ErrorHandler:
   'If blnTransBegin Then
   '    cnn.RollbackTrans
   '    blnTransBegin = False
   'End If
   RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
   Resume ExitHere
End Sub