请教！没输入查询内容，子窗体不显示记录

列夫　发表于：2012-09-02 15:07:21 　

复制

点击下载此附件

Top

cspa 发表于：2012-09-03 14:54:12

给你一个偷梁换柱的

点击下载此附件

Top

叶海峰发表于：2012-09-03 16:22:16

Private Sub Form_Load()
Me.子窗体.Form.Filter = "id = " & Nz(Me.Text1, 0)
Me.子窗体.Form.FilterOn = True
End Sub

Top

列夫发表于：2012-09-04 15:52:26

叶海峰老师。。。按所回答的，在没输入查询内容，子窗体不显示记录。但在输入查询内容后，子窗体也不显示记录。

但我想。。。当输入查询内容时，子窗体可以显示心录。那又怎编写。。。。谢谢

Top

沈军发表于：2012-09-04 16:55:58

搞定

点击下载此附件

Top

沈军发表于：2012-09-04 16:59:37

'窗体1：代码

Option Compare Database
Private Sub Command4_Click()
    Me.[Text1] = Null
    Text1_AfterUpdate
End Sub
Private Sub Form_Open(Cancel As Integer)
    Text1_AfterUpdate
End Sub

Private Sub Text1_AfterUpdate()
Me.子窗体.SourceObject = "子窗体"
End Sub

'子窗体：代码

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
    If IsNull(Forms!窗体1!Text1) Or Forms!窗体1!Text1 = "" Then
        Me.RecordSource = "SELECT 用户.*, [账号] & [姓名] & [电话] & [邮编] AS 表达式1 FROM 用户 WHERE ((([账号] & [姓名] & [电话] & [邮编])='你查询不到的资料，你想都想不到，哈哈！'));"
    Else
        Me.RecordSource = "SELECT 用户.*, [账号] & [姓名] & [电话] & [邮编] AS 表达式1 FROM 用户 WHERE ((([账号] & [姓名] & [电话] & [邮编]) Like '*' & [Forms]![窗体1]![Text1] & '*'));"
    End If
End Sub

点击下载此附件

Top

列夫发表于：2012-09-21 18:16:15

谢谢

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

请教！没输入查询内容，子窗体不显示记录