validation - 使用 Access 2003 ADP 项目执行表单验证

Question

我正在开发一个使用 MS SQLServer 后端的 Access 2003 数据库。

我正在尝试进行表单验证，但遇到了一些问题。

每个字段的 ValidationRule 似乎都被忽略了

我无法弄清楚我应该覆盖什么事件来强制执行验证而无需数据库执行此操作。 (我并不反对这一点，我只是不知道我将如何捕获错误消息，而不是将它们显示给用户)

我尝试通过禁止关闭和强制使用“关闭按钮”来绕过数字 2，但用户可以通过按 Tab 键或按底部的“下一条记录”按钮来绕过它。

任何建议将不胜感激。

Answer 1

如果您使用验证规则属性，您可以在表单错误事件中捕获验证和重复键错误等:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   If DataErr=2107 Then
      MsgBox "Validation error! "  & ActiveControl.Name
   End If
End Sub

您可以使用在表单级别定义的变量强制使用关闭按钮，并设置为 false，除非您的按钮被单击。

Option Compare Database
Option Explicit

Public AllowClose As Boolean

Private Sub Form_Load()
    AllowClose = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = Not AllowClose
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    AllowClose = True
    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click

End Sub

发件人: http://www.tek-tips.com/faqs.cfm?fid=2071