Office中国论坛/Access中国论坛

标题: [求助]怎样阻止组合框向表里写数据？ [打印本页]

作者: raycheng 时间: 2005-11-23 03:57
标题: [求助]怎样阻止组合框向表里写数据？
窗体如图。上面的文本框和组合框都与一个表中的数据绑定了。现在想在页面上同时实现两个功能：

1、查询状态下，希望能用组合框的输入定位到相应的数据项，即三个文本框同步变化。

2、编辑状态下，希望能用组合框的输入对对应数据项进行修改。

现在组合框的输入会直接把数据修改了，而且定位功能实现不了。

我试过在test组合框的AfterUpdate里用DoCmd.FindRecord，但是没有成功。如果AllowEdit=False的话又没法用组合框进行选择和输入了。

初学，求高手们点拨一下啊！

[attach]14319[/attach]

作者: wuaza 时间: 2005-11-23 16:53
参考这样的代码。

Private Sub Combo43_AfterUpdate()
' 查找与该控件匹配的记录。
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Reference] = '" & Me![Combo43] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

作者: z13173693566 时间: 2005-11-23 17:11
好人一生平安！

作者: raycheng 时间: 2005-11-23 23:15

以下是引用wuaza在2005-11-23 8:53:00的发言：

参考这样的代码。

Private Sub Combo43_AfterUpdate()
' 查找与该控件匹配的记录。
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Reference] = '" & Me![Combo43] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

搞定，谢谢大虾指点[em01]

作者: zzcjp 时间: 2006-10-16 10:40
组合框设置成“非绑定”，就不会向表里写值了。

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