如何创建这样的查询

cq_hzh93

在表中,我用一个字段来存储电话,有多个电话时用空格分开,但是我在做一个查找重复项时遇到了问题,只要有一个电话号码重复出现就算为重复,该如何实现呢?请高手帮助!!

sunredday

dim sp as variant
dim intI as integer
dim intJ as integer
sp=Split(yourfield)
for intI=o to UBOUND(SP)-1
for intJ =intI+1 TO UBOND(SP)-1
IF SP(intI)=sp(intJ) THEN
MSGBOX "THEY ARE THE SAME"
EXIT SUB
END IF
NEXT intJ
NEXT intI