关于正则表达式

Question

我在Access中建立了一个窗体，窗体上设置了一个文本框（由用户输入Email地址），现在已经知道Email地址的正则表达式是"^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$"，但是不知道应该如何运用，文本框的属性中有有效性规则一条，但是我直接将上面这个正则表达式输入，无法得到所需的结果，请各位高人不吝赐教。

Answer 1

引用Microsoft VBScirpt Regular ExpressionsDim myReg As RegExpPrivate Sub Form_Load()
    Set myReg = New RegExp
    myReg.IgnoreCase = True
    myReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
End SubPrivate Sub Text1_Validate(Cancel As Boolean)
    Cancel = Not myReg.Test(Text1)
End Sub

Answer 2

Private Sub Command2_Click()
    If myReg.Test(Text1) = False Then      MsgBox "wrong"
End Sub