Office中国论坛/Access中国论坛

标题: 请帮忙! [打印本页]

作者: petrelai 时间: 2003-12-2 22:14
标题: 请帮忙!
我想问一下,有什么代码可以不让同一个商品重复选两次呢?就是当前一条记录已选了这个商品,以后的的记录就不能再选个这个商品了.请指教!

作者: zhengjialon 时间: 2003-12-2 22:20
这样问问题别人看不懂的，要举个例子来说

作者: petrelai 时间: 2003-12-2 22:35
好的!
我现在做的一是一个采购单,一张采购单怎么可以有两种一模一样的商品的,是吗?
啊^^^^^^^^
我也不知道怎么说呀!

作者: 唐小小 时间: 2003-12-2 22:38
一般情况，只要不把商品字段定义为主键，就可以重复输入啊：）

作者: petrelai 时间: 2003-12-2 22:49
仁兄呀,我就是不想要它重复呀!

作者: LYP6160 时间: 2003-12-2 22:52
将采购单号与商品名建立联合主键就可以了，具体建立请参照
http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&replyID=63007&ID=12735&skin=1

作者: wewyhy 时间: 2003-12-2 22:59
某些情况下也需要重复的，比如日期不同

作者: petrelai 时间: 2003-12-2 23:08
谢谢楼上各位仁兄的帮助,谢谢,顺便问一下,如使用自己定义的对话框呢?

作者: limiao 时间: 2003-12-2 23:08
??

作者: wewyhy 时间: 2003-12-2 23:09
msg "abcdefg"

作者: petrelai 时间: 2003-12-2 23:13
我的意思就是,我按以上的步骤做出来后,当运行时,如果有重复的时候,它会有一个出现一个提示框,但我不想要那个对话框,我想要自己的定义的对话,请问应该怎么做呢?

作者: petrelai 时间: 2003-12-3 18:26
对不起,我是新手,可不可请说仔细一点呢?

作者: wewyhy 时间: 2003-12-3 18:32
纸上谈兵不如把你的库传上来

作者: LYP6160 时间: 2003-12-3 18:44
在对应的文本框中的更新事件中写入如下代码：
If Nz([文本框名]) = Nz(DLookup("[商品名]", "商品明细表", "[商品名]=" & "'" & 文本框名 & "'")) Then '验证是否有相同商品
      Response = MsgBox("你输入的《 " & Me![文本框名] & " 》商品已存在，重复使用请按＜是＞，另选商品请按＜否＞", 4 + 32 + 256, "商品已存在。")
      If Response = vbYes Then ' 用户按下“是”。
            '在这写下保存商品代码。
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
      Else ' 用户按下“否”。
      ' MyString = "No" ' 返回登记窗体。
            Me.文本框名.SetFocus  '焦点移到文本框
      End If
End If

[此贴子已经被作者于2003-12-3 10:45:57编辑过]

作者: petrelai 时间: 2003-12-4 19:01
谢谢!
再谢谢!
再再谢谢!谢谢!

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