如何避免出现重复输入

linda2181

工厂固定生产一些产品，每个月统计一次每个产品的产量，要避免出现同一个月内某一个产品重复输入的情况，该怎么办？

Henry D. Sy

更新前进行判断

linda2181

我猜是在afterupdate过程里面吧？是不是要在窗体的后台表里查询同样月份的记录里面产品名称字段有没有同样的值？

Henry D. Sy

你把你的例子传上来。

linda2181

请看

Henry D. Sy

原帖由 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

文件先下来学习，几点意见很好，很感谢斑竹的热心与细心，谢谢

airchinahz

学习