Office中国论坛/Access中国论坛

标题: 组合框动态增选项之疑问 [打印本页]

作者: zyz218 时间: 2006-2-24 04:30
标题: 组合框动态增选项之疑问
'****************************
'名称：组合框动态增选项
'作者：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

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

不知这里没有没一起研究这个课题的朋友？？？[attach]15986[/attach]

作者: 一点通 时间: 2006-2-24 05:51
我未见过一个成功存入值例表的例子,都是暂时性的,关闭后就消失

作者: 海狸先生 时间: 2006-2-24 17:08
有两个办法解决

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

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

作者: zyz218 时间: 2006-2-24 18:16
不知第一个办法怎样实现？？在下没想通！！！！

作者: 海狸先生 时间: 2006-2-24 23:38
[attach]16000[/attach]

作者: zyz218 时间: 2006-2-24 23:44
谢谢，在下能力有限，还是版主见多识广！！

作者: u2f2 时间: 2008-12-31 11:07
组合框需要绑定到表

作者: david9198 时间: 2009-2-25 00:11
强！学习中！

作者: Henry D. Sy 时间: 2009-2-25 00:19
保存到表

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)