Office中国论坛/Access中国论坛

标题: 请教，如何避免重复输入。 [打印本页]

作者: lts8823 时间: 2005-11-8 20:31
标题: 请教，如何避免重复输入。
比如一个销量表，当销售日期和商店名称同时和已经输入过的记录有重复的情况下提示有重复的输入发生。谢谢！！

作者: wuaza 时间: 2005-11-8 20:44
把销售日期和商店设为双主键。

作者: gaoqiwen 时间: 2005-11-8 20:48
将销售日期和商店名称同时设为主键试试！

呀！迟了点!

[此贴子已经被作者于2005-11-8 12:49:08编辑过]

作者: lts8823 时间: 2005-11-8 22:29
谢谢楼上两位！港试过了，问题没有搞定。

作者: cnhbjm 时间: 2005-11-9 00:11
用DAO，从下往上搜索N条，有重复报警，取消。

作者: cnhbjm 时间: 2005-11-9 00:15
这是我的实用例子，不知能否用。Private Sub 机号_LostFocus()

On Error GoTo err_md

Dim rec As DAO.Recordset

Set rec = CurrentDb.OpenRecordset("tabl加油站流水表", dbOpenDynaset)

   rec.MoveLast

   For i = 0 To 20



      If rec("日期") = Me.日期 And rec("班次") = Me.班次 And rec("机号") = Me.机号 Then          MsgBox "这条记录已经输入了,输下一条记录", vbOKOnly + vbExclamation, "电脑提醒你!"

         Me.日期.SetFocus

         Exit Sub

      Else

         rec.MovePrevious

      End If

Next i

exit_md:

Exit Sub

err_md:

   Resume exit_mdEnd Sub

作者: lts8823 时间: 2005-11-10 01:38
谢谢楼上的朋友！小弟初学楼上的代码实在折腾不明白，我的文件在这里能请朋友们给改一下吗？谢谢！！[attach]14065[/attach]

[em04]

作者: cnhbjm 时间: 2005-11-11 00:05
[attach]14073[/attach]

作者: 南国伊涵 时间: 2005-11-11 00:48
提示: 作者被禁止或删除内容自动屏蔽

作者: fuyvn 时间: 2005-11-11 01:10
用宏和 Dlookup()

作者: lts8823 时间: 2005-11-11 14:55

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

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

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

作者: lts8823 时间: 2005-11-11 17:49
还要请教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 时间: 2005-11-15 07:05
高手快帮忙吧，我也碰到类似问题了

作者: cnhbjm 时间: 2005-11-17 04:14
一样管用，因为你刚输入的数据是重复的，整个sub被退出，不能继续执行。你输入不重复的数据时，就有用了。

作者: gengwy 时间: 2005-11-17 18:51
我也遇到這樣的問題可不可以在設計試圖裡面屬性裡面完成

作者: salas 时间: 2005-12-28 16:55
顶起

作者: fspan8 时间: 2006-9-6 04:43
好

作者: sx1319 时间: 2006-10-14 05:19
我也想知道

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)