Office中国论坛/Access中国论坛

标题: 这段代码该如何修改才能符合要求呢? [打印本页]

作者: chengweibing 时间: 2002-12-1 04:03
标题: 这段代码该如何修改才能符合要求呢?
当我在ISBN号输入一个书号后发生一个更新后的事件:判断该ISBN号在"图书信息

表"中是否存在,如存在,系统自动弹出一个"是否要添加入库数量"的提示,如果回

答"是",则记录指针自动移到那条记录,并将光标锁定在"入库数量"字段上,等候操

作员修改入库数量,当修改完入库数量后,提示是否保存,保存则切换到新增记录状

态,否则取消修改返回新增记录状态.如果在出现"是否要添加入库数量"的提示中

回答"否"则取消ISBN号的录入并将光标锁定在ISBN号字段上.

上面的要求我自己做了一半了,可是发现我在ISBN号处输入"图书信息表"中的第二

条记录的ISBN号时,系统不会提示ISBN号重复,而输入表中第一条记录的ISBN号时,

则可以显示,请问我应如何修改这段代码.???望指点迷津,谢谢^^
以下是我的代码:
Private Sub ISBN号_AfterUpdate()
If Me.ISBN号 = DLookup("[ISBN号]", "图书信息表", [ISBN号] = Me.ISBN号)

Then
　　　　MsgBox "该书卡已经输入过,请检查！"
　　　　
　　Else
　　　If MsgBox("是否要添加新的图书书卡?", vbYesNo + 64, "询问") =

vbYes Then
　　　　 Me.书名.SetFocus
　　　Else
　　　　 Me.Undo
　　　End If
　　End If
End Sub

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