如何实现双击某条记录，自动打开一个窗体对该记录进行编辑？

踏网寻花

如何实现双击某条记录，自动打开一个窗体对该记录进行编辑？

我跟据本站上面“模糊查询设计示例”这个例子写了一个查询的窗体，如何在列表框上双击某条记录来开一个窗体对该记录进行修改？
谢谢！

zhengjialon

在双击事件过程中用DoCmd.OpenForm "formname", , , , acFormAdd
这个formname要另做一个窗体。

踏网寻花

怎么不行呢。我用DoCmd.OpenForm "formname", , , , acFormAdd好像是新建了一条记录吧？
我想要的是 编辑 我所双击的那一行记录。

zhengjialon

是的我打错了用acFormAdd换成acFormEdit。

踏网寻花

这一次是可以编辑了，但是每次双击后是编辑数据表的第一条纪录呀。
我的意思是在列表中，我双击那一条就编辑那一条。

herdsboy

DoCmd.OpenForm FormName, , ,关联条件, acFormEdit
这个关联条件必须有才能打开所选记录

踏网寻花

这个表达式应该怎么写呀，给点提示好不好？大哥

guotianxin

If Not IsLoaded(窗体名) Then
            DoCmd.openForm "窗体名"
        End If
        DoCmd.SelectObject acForm, "窗体名"
        DoCmd.GoToControl Forms![窗体名]![关键字名].Name
        DoCmd.FindRecord Me![关键字名]
        DoCmd.GoToControl Forms![窗体名]![关键字名].Name

如：
        If Not IsLoaded("Tickets") Then
            DoCmd.openForm "Tickets"
        End If
        DoCmd.SelectObject acForm, "Tickets"
        DoCmd.GoToControl Forms![Tickets]![ControlNo].Name
        DoCmd.FindRecord Me![ControlNo]
        DoCmd.GoToControl Forms![Tickets]![ControlNo].Name
用户在浏览机票的窗体上双击ControlNo，自动打开Tickets窗体，并使用FindRecord功能找到该ControlNo。

说明：
    isloaded()函数判断窗体是否已经打开。
前面一条提到的方法    DoCmd.OpenForm FormName, , ,关联条件, acFormEdit
，只适用于编辑窗体未打开的时候。

huanghai

文件下载

踏网寻花

我在“查找数据“窗口中用的是列表框来列表数据，我需要的是在列表框上列表的数据上双击某一条纪录的时候，打开一个窗体来编辑。
谢谢