请教，如何避免重复输入。

lts8823

问题按cnhbjm 的方法解决了。另外fuyvn说的是什么意思啊能否给个实例？还有南国伊涵？

谢谢cnhbjm ！！！谢谢论坛斑竹和众位好兄弟！

[此贴子已经被作者于2005-11-11 6:59:24编辑过]

lts8823

还要请教cnhbjm，为什么红的那几行现在不管用了？？

Private Sub 商店_AfterUpdate()

Dim rs As New ADODB.Recordset

rs.Open "销量统计表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.MoveLast

For i = 1 To 200000

If rs("日期") = Me.日期 And rs("商店") = Me.商店 Then

MsgBox "该数据已录入,请检查已输入的记录!", vbOKOnly + vbInformation, "提示"

Exit Sub

Else

rs.MovePrevious

End If

Next i

Me!所属人 = DLookup("所属人员", "商店名称表", "商店名称 Like '" & Me![商店] & "'")

Me!经销商 = DLookup("经销商", "商店名称表", "商店名称 Like '" & Me![商店] & "'")

Me!所在地区 = DLookup("所在地区", "商店名称表", "商店名称 Like '" & Me![商店] & "'")

End Sub

myworkroom

高手快帮忙吧，我也碰到类似问题了

cnhbjm

一样管用，因为你刚输入的数据是重复的，整个sub被退出，不能继续执行。你输入不重复的数据时，就有用了。

gengwy

我也遇到這樣的問題可不可以在設計試圖裡面屬性裡面完成

salas

顶起

fspan8

好

sx1319

我也想知道