Office中国论坛/Access中国论坛

标题: 两个框架无法同时正常工作？为什么？ [打印本页]

作者: bonbonkiss 时间: 2005-12-27 03:29
标题: 两个框架无法同时正常工作？为什么？
又是我，不好意思啊。我的窗体有两个框架分别是“框架13”和“框架23”，一个是用作显示表里内容用的，一个是查询用的。但是两个框架无法同时正常工作。

左边框架正常显示，右边的查询就只能显示第一个人的记录

1、[attach]14960[/attach]

请教各位高手。

在这里特别感谢一点通，给了我极大的帮助。一点通老师，如果有空的话请分别看一下这两个文件，问题很奇怪

作者: 一点通 时间: 2005-12-27 04:17
晕.................

作者: 宿命的风 时间: 2005-12-27 04:28
[attach]14964[/attach]

将窗体所绑定的数据源中的条件删除，然后在右边按钮打开窗体的时候筛选。

代码如下：

Private Sub 命令25_Click()
On Error GoTo Err_命令25_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(DLookup("[memberno]", "member", "[memberno]=" & "'" & 文本22 & "'")) Then '试查找有没有这个编号
      If IsNull(DLookup("[memberno]", "member", "[membername]=" & "'" & 文本22 & "'")) Then '再查找有没有这个姓名
         MsgBox "编号及姓名都不存在", , "提示"
      Else '如果有,更改姓名为编号
         Me.文本22 = DLookup("[memberno]", "member", "[membername]=" & "'" & 文本22 & "'")
         stLinkCriteria = "[memberno]=" & "'" & Me![文本22] & "'"

         DoCmd.OpenForm "member" & Me.框架23, , , "memberno =" & "'" & 文本22 & "'" '这里是改动的地方，在打开窗体的时候筛选
      End If
Else
      DoCmd.OpenForm "member" & Me.框架23, , , "memberno =" & "'" & 文本22 & "'" '这里是改动的地方，在打开窗体的时候筛选
End If

Exit_命令25_Click:
Exit Sub

Err_命令25_Click:
MsgBox Err.Description
Resume Exit_命令25_Click
End Sub

作者: 一点通 时间: 2005-12-27 04:47

以下是引用bonbonkiss在2005-12-26 19:29:00的发言：

又是我，不好意思啊。我的窗体有两个框架分别是“框架13”和“框架23”，一个是用作显示表里内容用的，一个是查询用的。但是两个框架无法同时正常工作。

左边框架正常显示，右边的查询就只能显示第一个人的记录

1、[attach]14960[/attach]

请教各位高手。

在这里特别感谢一点通，给了我极大的帮助。一点通老师，如果有空的话请分别看一下这两个文件，问题很奇怪

同一问题不要再开新贴

作者: bonbonkiss 时间: 2005-12-27 16:35
哦,我知道了。是不是因为赋了值之后,这个字符串的值未清空啊???如果用两个不同的字符串赋值，是不是应该也可以呢？多谢指点。

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