Office中国论坛/Access中国论坛

标题: 请问在同一编号中，如何不让输入出现重复的料号 [打印本页]

作者: 13912668356 时间: 2008-3-25 14:24
标题: 请问在同一编号中，如何不让输入出现重复的料号

编号	料号	品名
1	a01
1	a02
1	a03
1	a04
1	a05
1	a06
1	a01
	在编号1中，再输入料号a01时，如何出现提示：“重复，不可以再输入这个料号”

作者: andymark 时间: 2008-3-25 14:34
可用DLOOKUP检查料号是否在表已经存在，并作出相应的提示

作者: goto2008 时间: 2008-3-27 14:44
在那个字段的更新后事件里写代码

Private Sub 字段_AfterUpdate()
If Nz([字段]) = Nz(DLookup("[字段]", "表名", "[字段]=" & "'" & 字段 & "'")) Then
MsgBox "录入的数值重复,请重新输入", , "提示……"
Me.Undo
End If
End Sub

End Sub

作者: airchinahz 时间: 2009-2-18 20:52

学习

作者: Vista 时间: 2009-2-20 11:20
设为主键

作者: todaynew 时间: 2009-2-20 12:07

编号料号品名1a01　1a02　1a03　1a04　1a05　1a06　1a01　在编号1中，再输入料号a01时，如何出现提示：“重复，不可以再输入这个料号”
13912668356 发表于 2008-3-25 14:24

根本的解决办法是采用自动编号机制：

dim sql as string
sql="INSERT INTO 表1 ( 料号 ) "
sql=sql+"SELECT iif（max（料号）is null，“a01”，format（max（mid（料号，2，2））+1，“a00”）） "
sql=sql+“FROM 表1;”
docmd.runsql sql

作者: chaojianan 时间: 2009-3-4 16:59
谢谢todaynew，学习。

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