求助列值限制重复次数（在线等）

wangyunan

列中最多允许有两个重复数据存在，当出现第三个重复值时给出提示。

应该怎么实现？请指点，在线等。

hi-wzj

在“有效性规则”中无法实现，需要写代码，你上传实例大家帮你添代码，你就能看明白。

todaynew

wangyunan 发表于 2011-5-20 22:45
我的意思是，我不使用控件，就在表里面做，能实现吗？

那是一回事，只是代码复杂程度高些而已。不过数据表通常是在窗体中进行输入输出的，不赞成直接打开数据表进行操作。

wangyunan

todaynew 发表于 2011-5-20 22:39
具体怎么处理我不告诉你，但我告诉你一个类似问题的处理方法。
你在设计视图下，选择要处理的控件，右 ...

我的意思是，我不使用控件，就在表里面做，能实现吗？

wangyunan

aslxt 发表于 2011-5-20 22:36
对不起，那个“加入”应该更正为“假如”
这是窗体里的有效性控制，至于在表设计如何实现，还真没有研究过 ...

这已经很感谢了

todaynew

wangyunan 发表于 2011-5-20 22:30
其实没有实例，就是一个空表……我是想学习这个方法，还请老大多指教。
加入【表1】中有一个字段叫做【地 ...

具体怎么处理我不告诉你，但我告诉你一个类似问题的处理方法。
你在设计视图下，选择要处理的控件，右击---属性---数据---有效性规则，然后F1查看有效性规则的处理方法。然后根据该方法，在地名的某个事件中动态设置有效性规则。
这个方法是学习Vba的最有效的途径。如果今天晚上你能搞定的话，我提前祝贺你，如果还是搞不定的话，明天我会回复你。

aslxt

对不起，那个“加入”应该更正为“假如”
这是窗体里的有效性控制，至于在表设计如何实现，还真没有研究过。

wangyunan

todaynew 发表于 2011-5-20 22:24
给自己的贴回复或者编辑自己的贴或回复，选高级模式，就可以上传了。

其实没有实例，就是一个空表……我是想学习这个方法，还请老大多指教。
加入【表1】中有一个字段叫做【地名】，规定地名不能有3个重复的值：
Private Sub 地名_BeforeUpdate(Cancel As Integer)
  If DCount("*", "表1", "地名='" & 地名.Text & "'") >= 2 Then
     Cancel = True
     MsgBox "已经有2个相同的值了，请修改！"
  End If
End Sub
这个我有点明白了，不过不知道怎么能放到有效性规则里。不打算做控件。

非科班出身是困难重重啊……

todaynew

wangyunan 发表于 2011-5-20 22:19
咋上传啊？

给自己的贴回复或者编辑自己的贴或回复，选高级模式，就可以上传了。

wangyunan

todaynew 发表于 2011-5-20 22:17
绝对新手得到所需帮助的最好办法就是上传实例。

咋上传啊？