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

kunlun

在使用组合框的时候，设定为限定在列表框中，然后当我不用选择而用输入时，会有一个提示框提示“你输入的不在列表框中，请从列框中选择一个项目”字样，我用了NOLIST事件做，只是能出现NOLIST事件，但是原来的提示框依然会出现，我想让那个烦人的框不出现，请问有没有办法？

[此贴子已经被作者于2005-9-9 16:51:39编辑过]

kunlun

不知我是否表达清楚，没看明白的跟贴吧

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

wuaza

在nolist事件中写入DoCmd.SetWarnings False

kunlun

DoCmd.SetWarnings False我试了，，不好使。。那个家伙照样出来。。

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编辑过]

kunlun

以下是引用sgrshh29在2005-9-9 19:47:00的发言：



试试用常数Response = acDataErrContinue，例如

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

        Response = acDataErrAdded

        Me.Combo0.AddItem (NewData)

    Else

        Me.Combo0 = ""

        Response = acDataErrContinue

    End If

GOOD,,可是我现在用的是组合框连到表中的，是不是应该把 Me.Combo0.AddItem (NewData)

改成 DoCmd.RunSQL (SQL),我现在不知道这个sql如何写，请高人再指导一下吧。谢谢了

sgrshh29

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

kunlun

我用如下代码

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

        

        DoCmd.OpenForm "表1"

       Response = acDataErrAdded

    Else

        Me.Combo0 = ""

        Response = acDataErrContinue

    End IfEnd Sub可是acc在打开表1后就会把那个“你输入的文字不在列表中。。。。”的提示框弹出来呀

sgrshh29

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

kunlun

我想用你的第二种方法做，打天一个新的添加窗体，然后关闭添加窗体后返回到选择组合框这，这时再用refresh刷新。可是当我打天添加窗体时，就会有那个提示框