设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 4627|回复: 15
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2002-11-26 23:55:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如何实现双击某条记录,自动打开一个窗体对该记录进行编辑?

我跟据本站上面“模糊查询设计示例”这个例子写了一个查询的窗体,如何在列表框上双击某条记录来开一个窗体对该记录进行修改?
谢谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2002-11-27 00:33:00 | 只看该作者
在双击事件过程中用DoCmd.OpenForm "formname", , , , acFormAdd
这个formname要另做一个窗体。
3#
 楼主| 发表于 2002-11-27 01:00:00 | 只看该作者
怎么不行呢。我用DoCmd.OpenForm "formname", , , , acFormAdd好像是新建了一条记录吧?
我想要的是 编辑 我所双击的那一行记录。

点击这里给我发消息

4#
发表于 2002-11-27 01:21:00 | 只看该作者
是的我打错了用acFormAdd换成acFormEdit。
5#
 楼主| 发表于 2002-11-27 16:28:00 | 只看该作者
这一次是可以编辑了,但是每次双击后是编辑数据表的第一条纪录呀。
我的意思是在列表中,我双击那一条就编辑那一条。
6#
发表于 2002-11-27 16:45:00 | 只看该作者
DoCmd.OpenForm FormName, , ,关联条件, acFormEdit
这个关联条件必须有才能打开所选记录
7#
 楼主| 发表于 2002-11-27 17:00:00 | 只看该作者
这个表达式应该怎么写呀,给点提示好不好?大哥
8#
发表于 2002-11-27 17:06:00 | 只看该作者
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
,只适用于编辑窗体未打开的时候。
9#
发表于 2002-11-27 17:15:00 | 只看该作者

我的例子,应该可以用。

10#
 楼主| 发表于 2002-11-27 17:40:00 | 只看该作者
我在“查找数据“窗口中用的是列表框来列表数据,我需要的是在列表框上列表的数据上双击某一条纪录的时候,打开一个窗体来编辑。
谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 05:31 , Processed in 0.113706 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表