如何使組合框內容變更后立即自動保存？

zzcjp

有一組合框，數(shù)據(jù)來源于查詢，限于列表屬性設置為“是”，不在列表中屬性設置為事件過程，當組合框內容更改，并觸發(fā)不在列表中事件時，彈出提示框：“內容需要更改嗎？”，選擇“是”，立即自動保存更改內容并重新查詢組合框，否則恢復內容。代碼如下：
1.Private Sub 文件名_NotInList(NewData As String, Response As Integer)
2.Dim ctl As Control
   
3.    Set ctl = Me!文件名
4.   If MsgBox("你輸入的文件名不在列表中，需要更改嗎?", _
5.         vbOKCancel, "系統(tǒng)提示") = vbOK Then
6.        Response = acDataErrContinue
7.        Me.文件名.Requery
8.     Else
9.        Response = acDataErrContinue
10，        ctl.Undo
11.   End If
12.End Sub
運行至7，提示錯誤：“執(zhí)行Requery前必須保存字段”！
求助：如何插入保存字段的代碼？

Henry D. Sy

在第七步之前加入
追加查詢語句

zzcjp

謝謝版主，代碼做了如下修改，解決問題。
1.Private Sub 文件名_NotInList(NewData As String, Response As Integer)

2.   If MsgBox("輸入的信息不在列表中！" & Chr(13) & Chr(13) & "是否更改？", vbQuestion + vbYesNo, "不在列表中") Then
3.        DoCmd.SetWarnings False
      
4.       DoCmd.RunSQL "UPDATE 升級版本 SET 升級版本.文件名 = ('" & NewData & "');" '
5.       Response = acDataErrAdded
6.        DoCmd.SetWarnings True
7.    Else
8.        Response = acDataErrContinue
9.        Me.ActiveControl.Undo
10.    End If

11. End Sub

關鍵是4-5兩行。

wufeng980114

學習了，