如何去掉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的發(fā)言：



試試用常數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刷新�？墒钱斘掖蛱焯砑哟绑w時，就會有那個提示框