EXCEL+ ACCESS 怎么避免重复输入

majorline · 发表于 2011-1-5 18:30

我现在有个订单输入表EXCEL + ACCESS 能工作但是有个问题怎么避免重复输入最好能多条件查询现在的想法是查询数据库内的的采购订单号和产品型号来跟 excel表格内的采购订单号也就是Range("H9") 和产品型号在EXCEL表格内的产品订单range("c13")的值做比较如果采购订单号相同的而且产品型号也相同的那么就判定为重复项就显示MSGbox “重复,请检查” 不相同的就运行下一行代码.
但是小弟才疏学浅不知道怎么写。请各位大大帮忙

大概思路用代码来写是这样的

IF select 采购订单号 from 订单 = range("H9") and select 产品型号 from 订单 =range("C13") then MSGBOX"重复,请检查"
else .........

请问这个怎么写

liuyuyu880210 · 发表于 2011-1-5 19:11

自己根据格式改改，看看行不行

roych · 发表于 2011-1-5 20:07

如果规定用户只能手动录入而不是用复制粘贴的方式，在C列设置有效性也是可以的。
我这里只是改了下数据有效性。
其实，不管Excel还是Access，都有漏洞的。即便改了select语句，如果用户不启用宏，同样无效。我这里只是给出一个最简单的做法而已。
如果使用select语句
应该写成
select * from 表 where （条件）

采购订单A.rar (14.27 KB, 下载次数: 125)
此外，还有一个方法就是设置主键。这里给出一个思路，由于对Excel中操作Access不熟悉，我调试了。
添加一个字段，它的值来源于“采购单号&型号”，然后设为主键，应该就可以避免上述情况了。

majorline · 发表于 2011-1-5 21:02

我用了怎么显示于其他参数冲突

majorline · 发表于 2011-1-5 21:13

原帖由 liuyuyu880210 于 2011-1-5 19:11 发表
自己根据格式改改，看看行不行

我在你的基础上改了下怎么显示“标准表达式中数据类型不匹配" rst.Open sq1, CNN, adOpenKeyset, adLockOptimistic

liuyuyu880210 · 发表于 2011-1-6 12:46

原帖由 majorline 于 2011-1-5 21:13 发表

我在你的基础上改了下怎么显示“标准表达式中数据类型不匹配" rst.Open sq1, CNN, adOpenKeyset, adLockOptimistic

问我为什么，我也不知道，问我怎么改，我也不会!
我看了看你改动的太多，我建议你在我的基础上先只改动变量例如名字，单元格之类的，较容易的，改完试试，在做下一步的改动。
最起码我的目前还能有重复的就不能保存了。至于你改动的那些提示先去掉试试啊
循序渐进！！！一点一点的增加你的想法！

[ 本帖最后由 liuyuyu880210 于 2011-1-6 12:48 编辑 ]

枫叶悄悄 · 发表于 2011-1-15 16:37

学习中……

xiaoyuxcs · 发表于 2011-1-29 19:35

首先思路是单号不能重复，可新增一个‘新增’按钮，完成自动单号（单号永不重复）：
Call 数据库名
  sql = "select distinct 编号 from In_Info where 编号 like " & "'%" & "B" & VBA.Format(VBA.Date, "yyyymm") & "%'"
  RST.Open sql, CNN, adOpenKeyset, adLockReadOnly
  If RST.RecordCount = 0 Then
Me.Range("j3").Value = "X" & VBA.Format(VBA.Date, "yyyymm") & VBA.Format(1, "000")
  Else
Set RST = Nothing
sql = "select distinct 编号 from In_Info where 编号 like " & "'%" & "X" & VBA.Format(VBA.Date, "yyyymm") & "%' order by 编号 desc"
RST.Open sql, CNN, adOpenKeyset, adLockReadOnly
Me.Range("J3").Value = "X" & VBA.Format(VBA.Date, "yyyymm") & VBA.Format(VBA.Val(VBA.Right(RST.Fields("编号"), 3)) + 1, "000 ")
End If
Call 关闭数据库

pc520 · 发表于 2011-1-30 15:17

啥也不用写，在数据库中设置订单和产品的复合唯一索引，订单和产品同时相同的将无法写进数据库并给出提示

订单.rar (11.06 KB, 下载次数: 216)

sdht · 发表于 2011-2-25 15:37

原帖由 pc520 于 2011-1-30 15:17 发表
啥也不用写，在数据库中设置订单和产品的复合唯一索引，订单和产品同时相同的将无法写进数据库并给出提示

867666

这个不错，请问订单和产品的复合唯一索引是怎么设置的呢？谢谢

		自动登录	找回密码
密码			免费注册