Office中国论坛/Access中国论坛

标题: 如何避免出现重复输入 [打印本页]

---

作者: linda2181    时间: 2009-1-1 09:01
标题: 如何避免出现重复输入
工厂固定生产一些产品，每个月统计一次每个产品的产量，要避免出现同一个月内某一个产品重复输入的情况，该怎么办？

---

作者: Henry D. Sy    时间: 2009-1-1 09:02
更新前进行判断

---

作者: linda2181    时间: 2009-1-1 09:10
我猜是在afterupdate过程里面吧？是不是要在窗体的后台表里查询同样月份的记录里面产品名称字段有没有同样的值？

---

作者: Henry D. Sy    时间: 2009-1-1 09:11
你把你的例子传上来。

---

作者: linda2181    时间: 2009-1-1 09:17
请看

---

作者: Henry D. Sy    时间: 2009-1-1 10:20

原帖由 linda2181 于 2009-1-1 09:17 发表
请看

几个问题说一下
1. 每个表应该有个主键
2. 日期最好有个默认值方便输入（建议而已）
3. 同样的数据不要重复保存，比如生产资料表中除了产品id，其他与产品相关的资料不要再次保存。
以上几点均已帮你处理了

请将你原来的代码删除掉，更换为下面的代码

1. Private Sub 产品ID_BeforeUpdate(Cancel As Integer)
   
2.     Dim Criteria As String
   
3.     Dim intCount As Integer
   
4.     Criteria = "产品ID=" & Me.产品ID & " And Format(统计期间,'yyyymm')='" & Format(统计期间, _
   
5.                                                                            "yyyymm") & "'"
   
6.     intCount = DCount("*", "生产情况表", Criteria)
   
7.     If intCount > 0 Then
   
8.         MsgBox "本统计期间，该产品（" & Me.产品ID & "）已存在"
   
9.         Cancel = True
   
10.         Me.产品ID.Undo
    
11.     End If
    
12. End Sub

复制代码

---

作者: linda2181    时间: 2009-1-1 10:34
文件先下来学习，几点意见很好，很感谢斑竹的热心与细心，谢谢

---

作者: airchinahz    时间: 2009-2-18 20:43
学习

---

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

Powered by Discuz! X3.3