两个框架无法同时正常工作？为什么？

bonbonkiss

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

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

1、

请教各位高手。

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

一点通

晕.................

宿命的风

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

代码如下：

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

一点通

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


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

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

1、

请教各位高手。

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

同一问题不要再开新贴

bonbonkiss

哦,我知道了。是不是因为赋了值之后,这个字符串的值未清空啊???如果用两个不同的字符串赋值，是不是应该也可以呢？多谢指点。