Question

access窗体中文本框的值必须是邮箱格式

用ACCESS做了个注册系统，其中有个文本框（Text1）是需要用户填写邮箱地址的，当我点击“立即注册（command1）”键的时候，如果文本框（Text1）不是邮箱格式就报错。

望高手指教，请详细写一下，谢谢了！

Answer 1

这是一个VBA函数，判读一个字符串是否符合邮件格式。

Public Function is_email(email As String) As Boolean
is_email = False

Dim i As Integer, j As Integer
Dim c As Integer
Dim part() As String
part = Split(email, "@")
If UBound(part) <> 1 Then Exit Function
For i = 0 To UBound(part)
If Len(part(i)) = 0 Then Exit Function
Next

For i = 1 To Len(part(0))
c = Asc(Mid(part(0), i, 1))
If Not (c >= Asc("a") And c <= Asc("z") Or c >= Asc("A") And c <= Asc("Z") Or c >= Asc("0") And c <= Asc("9") Or c = Asc("_")) Then
Exit Function
End If
Next

part = Split(part(1), ".")
For i = 0 To UBound(part)
If Len(part(i)) = 0 Then Exit Function

For j = 1 To Len(part(i))
c = Asc(Mid(part(i), j, 1))
If Not (c >= Asc("a") And c <= Asc("z") Or c >= Asc("A") And c <= Asc("Z") Or c >= Asc("0") And c <= Asc("9") Or c = Asc("_")) Then
Exit Function
End If
Next
Next

is_email = True
End Function

Answer 2

这个你要写验证表达式呢，你去下一个邮箱验证表达式，你用的啥语言写的？
在数据库里设置一下默认格式

追问

是直接用access做的窗体，VBA语言。请问Access中怎么设置这样的格式啊？

追答

你把表用设计打开，把光标放在邮箱的那个字段，下面有规则什么的，我忘了
代码验证：/^(([a-zA-Z0-9_-])+@([a-zA-Z0-9_-])+(\.[a-zA-Z0-9_-] /^(([a-zA-Z0-9_-])，你看能用不