Office中国论坛/Access中国论坛

标题: 紧急求助！！！有关查询的问题 [打印本页]

作者: heiheip 时间: 2003-7-20 22:42
标题: 紧急求助！！！有关查询的问题
[B]怎样在查询结果中，双击一查询结果，
即可在查看窗体中查看该记录（窗体均已创建）[/B]
如有需要提供什么请说。

[此贴子已经被作者于2003-7-20 21:36:04编辑过]

作者: dsfq 时间: 2003-7-21 05:16
按“回复帖子”就可以上传了

作者: heiheip 时间: 2003-7-21 05:36
先谢了

作者: 玉面飞狐 时间: 2003-7-21 17:35
你可以参照http://www.office-cn.net/bbs/dispbbs.asp?boardID=9&ID=8888
也可以上传你的库，大家帮你

作者: chenghai 时间: 2003-7-21 17:50
在“土地使用者”控件里建双击事件，代码如下：

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "窗体" '——你所说的已建立的窗体名称
stLinkCriteria = "[主键ID] = '" & Me![主键ID] & "'" '——该窗体源表的主关键字段
DoCmd.OpenForm stDocName, , , stLinkCriteria

作者: 玉面飞狐 时间: 2003-7-21 18:32
如果在地号也加此效果
难道再加双机事件？

作者: heiheip 时间: 2003-7-21 20:05
非常感谢，我试试先

作者: heiheip 时间: 2003-7-21 22:15
Option Compare Database
Public ido As String

Private Sub 土地使用者_GotFocus()
ido = ID
End Sub

Private Sub 土地使用者_DblClick(Cancel As Integer)

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Me![ido])
Me.Bookmark = rs.Bookmark
Dim stDocName As String
Dim stLinkCriteria As String
End Sub

这里什么东西错了，帮我看一下。谢谢。
还有，DoCmd.OpenForm stDocName, , , stLinkCriteria 这一句说语法错误

作者: chenghai 时间: 2003-7-21 23:18
不知道你为什么要搞得这么复杂干吗？还用得着全局变量吗？
如果方便你把库传给我（只收电子邮件），我来看看——语法肯定是没错的，使用环境可能有不同。

作者: heiheip 时间: 2003-7-23 22:43
我把库发到你的信箱了，楼上的高手，帮我改一改

作者: heiheip 时间: 2003-7-23 22:53
[attach]1241[/attach]

图片中显示的要输入的参数是什么呀，为什么会这样，我是照你给我的那几句话写了。

作者: chenghai 时间: 2003-7-23 23:19
没有收到。
我的信箱在我的个人资料可以看到。

作者: 快人快语 时间: 2003-7-24 00:09
不对起我不能帮你！

作者: heiheip 时间: 2003-7-24 04:52
上次发的邮件被我的瑞星防火墙截下来了，没发成功，我再发过了，你看看有没有

作者: chenghai 时间: 2003-7-24 17:17
先把你写的代码删除，在“其他查询子窗体”的‘土地使用者’的双击事件写入：
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "申请表"
stLinkCriteria = "[土地使用者] = '" & Me![土地使用者] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

在“其他查询子窗体”的‘地号’的双击事件写入：
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "申请表"
stLinkCriteria = "[地号] = '" & Me![地号] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

即可解决问题（已在你的数据库中调试过）。

作者: chenghai 时间: 2003-7-24 17:22
友情提醒：尽量不要把加密的、设过安全机制的数据库发过来，如果必须发，请先在电子邮件中写明登录权限最大的账号和密码——我们都是义务服务，没有精力经常去写解密语句或者破译。
（我修改过的数据库就不发给你了，因为你调用了一些绝对路径的图片，我为了打开，把他们都删除了）

作者: heiheip 时间: 2003-7-25 05:09
非常感谢chenghai大哥给与我的大力帮助！！！
让我的问题基本解决了！！！！
对于您的提醒，以后我会注意的。

作者: heiheip 时间: 2003-7-25 05:15
还有个小问题请教一下chenghai大哥：
由于我现在修改的数据本身还在使用中，数据每天都在增加。
我修改的只是一个拷贝。现在修改完成后，怎样才能把我现在新的界面和代码应用到旧的数据库上去。保持数据不变，只改变界面和代码！！！

作者: sea.er 时间: 2003-7-25 17:58
导入

作者: 小白 时间: 2003-7-25 18:16
还有一个办法，再做一遍！哈哈－－－

作者: Airin 时间: 2003-7-25 22:11
把原來的界面刪除﹐再導入修改后的界面就可以了。﹗

作者: heiheip 时间: 2003-7-26 01:17
谢谢大家的帮助，原来如此的简单。

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