一个关于数据库设计的问题

[jsxxxly]

我想让Access中某个Text类型字段的值是长度为6的数字，该字段的有效性文本应该怎样写？

[ctianqi]

dim rs as recordset
if isnumeric(rs.filter(0)) then
if len(rs.filter) then
...........
end if
endif

[bitsoft]

Private Sub Text2_Validate(Cancel As Boolean)
If Text2.Text <> "" And Not IsNull(Text2.Text) Then
If Not (IsNumeric(Text2.Text) And Len(Text2.Text) = 6) Then
MsgBox "wrong"
End If
End If
End Sub

[dyj_163_com]

up