请教高手,急

ququ

我想在上图输入00后,当表内已经有代号为00的资料时就调出相应资料,如果没有就可以新增该笔资料.需要怎么写代码.

[此贴子已经被作者于2004-2-3 8:56:33编辑过]

zhengjialon

用dlookup查出是否有这个00，如果没有就继续，如果有，就用FIND方法转到这条记录，或者改变这个窗体的筛选，让主键=00

ququ

请具体一点,谢谢

zhuyiwen

Private Sub 代号_Exit(Cancel As Integer)
    If IsNull(DLookup("[代号]", "你要查找的表名", "[代号] = '" & 代号 & "'")) Then
        ' 做你要做的事情!
    Else
        Msgbox "代号已存在!"
        Cancel = True
    End If
End Sub

徐阿鹏

自己慢满分析吧，应该是简单的

ququ

TKS！