组合框动态增选项之疑问

zyz218

'****************************
'名称：组合框动态增选项
'作者：zhengjialon(access-cn and access abc)
'时间：2003-12-20
'****************************

Private Sub 组合0_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control
   
    ' 返回指向组合框的 Control 对象。
    Set ctl = Me.组合0
    ' 提示用户验证要添加的新值。
    If MsgBox("你输入的值不在列表中，是否增国到列表中去?", vbOKCancel) = vbOK Then
        ' 将 Response 参数设置为指向
        ' 正在添加的数据。
        Response = acDataErrAdded
        ' 将 NewData 参数中的字符串添加到行来源。
        ctl.RowSource = ctl.RowSource & ";" & NewData
    Else
    ' 如果用户选择了“取消”，将不再出现错误消息
    ' 并且撤消所做的更改。
        Response = acDataErrContinue
        ctl.Undo
    End If
End Sub

以上引用郑家龙先生提供的方法，但在下发现窗体关闭后，先前新增的字段消件，再次打开时新增的字段不见了？？不知怎样修改这个问题！！！

不知这里没有没一起研究这个课题的朋友？？？

一点通

我未见过一个成功存入值例表的例子,都是暂时性的,关闭后就消失

海狸先生

有两个办法解决

１，用一个表存放值列表，在窗体load事件中写入

２，在关闭窗体时　用设计模式打开，写入，保存

zyz218

不知第一个办法怎样实现？？在下没想通！！！！

海狸先生

zyz218

谢谢，在下能力有限，还是版主见多识广！！

u2f2

组合框需要绑定到表

david9198

强！学习中！

Henry D. Sy

保存到表