[求助]怎样阻止组合框向表里写数据？

raycheng

窗体如图。上面的文本框和组合框都与一个表中的数据绑定了。现在想在页面上同时实现两个功能：

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

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

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

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

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

wuaza

参考这样的代码。

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

好人一生平安！

raycheng

以下是引用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

组合框设置成“非绑定”，就不会向表里写值了。