如何去掉NOLIST事件后出现的提示框

sgrshh29

试试用常数Response = acDataErrContinue，例如

    If MsgBox("没有此项目,是否添加?", vbYesNo, "添加") = vbYes Then

        Response = acDataErrAdded

        Me.Combo0.AddItem (NewData)

    Else

        Me.Combo0 = ""

        Response = acDataErrContinue

    End If

[此贴子已经被作者于2005-9-9 19:49:00编辑过]

sgrshh29

如果行来源是数据表，可用strsql = "Insert Into acTabelName (acColumnName) Values  & "(" & """" & NewData  & """" & ")"  这样仅仅添加一个字段，如果要对多字段的表添加，最好在此事件中打开这个表（或窗体）添加。同时再加二句对组合框源更新等语句。

sgrshh29

顺序是这样的，在用sql  insert后，组合框requery，再用刚才新添加的string作为过滤，打开指定表。不然你还没有添加到组合框源里，它就要跳出那个框框来。

sgrshh29

说了半天，我自己从没有做过，我做一个试试。

[此贴子已经被作者于2005-9-10 16:14:03编辑过]

sgrshh29

你看看，能不能用？文件在楼上。

sgrshh29

以下是引用wuaza在2005-9-10 16:35:00的发言：

因为Response = acDataErrAdded已经具备了组合框更新功能，所以 Me.Combo0.Requery这句可以省略了。

说的非常对。我忘记了这个。