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

lts8823

比如一个销量表，当销售日期和商店名称同时和已经输入过的记录有重复的情况下提示有重复的输入发生。谢谢！！

sx1319

我也想知道

fspan8

好

salas

顶起

gengwy

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

cnhbjm

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

myworkroom

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

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

lts8823

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

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

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

fuyvn

用宏  和  Dlookup()