窗体输入数据的时候如何自动查出重复值并改名？

yinyt　发表于：2015-09-04 15:36:20 　

在“学生资料表”中有个“姓名”字段，当输入第二次输入“张三”以后，自动改为“张三01”，第三次输入“张三”以后，自动改为“张三02”依次类推，哪位高手帮写一下VBA代码？谢谢！

chinasa 发表于：2015-09-04 21:13:06

考虑比较啰嗦的方法，供参考，可能并不是好方法，当抛砖引玉啦。期待高手的出现。

1.每次输入都去检索表：用LEN（）判断当前输入名字的位数，用MID（）取表相同位数且名字与当前输入的内容一致，全部检索出来。

2.上述查询结果保留与当前输入完全相同，或者位数为当前输入内容+2的后两位是数字的最大值。

3.如果只有与当前输入内容完全相同的记录，则当前内容+01.如果有当前内容+2位数字的情况则判断后两位数字内容然后+1保留两位数字。

huashanshihu 发表于：2015-09-05 16:57:58

具体的代码是什么啊？是不是这个问题还有关于事件过程的？

久石让的粉丝发表于：2015-09-05 22:56:35

If Dcount(“[姓名]”,"[学生资料表]",“[姓名]='” & me.控件名 & "'")>0 then

Dim I as long

I=1

Do Until Dcount(“[姓名]”,"[学生资料表]",“[姓名]='” & me.控件名 & "I'")>0

I=I+1

loop

I=I+1

'执行添加查询，根据实际情况编写

[姓名]="'" & me.控件名 & "I'"

I就是重复的1，2，3，4，5

Else

'执行添加查询，根据实际情况编写

End If

总记录：3篇页次：1/1 9 1 :

Access交流中心