请问在同一编号中，如何不让输入出现重复的料号

13912668356

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

andymark

可用DLOOKUP检查料号是否在表已经存在，并作出相应的提示

goto2008

在那个字段的更新后事件里写代码

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


End Sub

airchinahz

学习

Vista

设为主键

todaynew

编号料号品名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

谢谢todaynew，学习。