如何使组合框内容变更后立即自动保存？

zzcjp

有一组合框，数据来源于查询，限于列表属性设置为“是”，不在列表中属性设置为事件过程，当组合框内容更改，并触发不在列表中事件时，弹出提示框：“内容需要更改吗？”，选择“是”，立即自动保存更改内容并重新查询组合框，否则恢复内容。代码如下：
1.Private Sub 文件名_NotInList(NewData As String, Response As Integer)
2.Dim ctl As Control
   
3.    Set ctl = Me!文件名
4.   If MsgBox("你输入的文件名不在列表中，需要更改吗?", _
5.         vbOKCancel, "系统提示") = vbOK Then
6.        Response = acDataErrContinue
7.        Me.文件名.Requery
8.     Else
9.        Response = acDataErrContinue
10，        ctl.Undo
11.   End If
12.End Sub
运行至7，提示错误：“执行Requery前必须保存字段”！
求助：如何插入保存字段的代码？

wufeng980114

学习了，

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两行。

Henry D. Sy

在第七步之前加入
追加查询语句