“事件过程”执行后子窗体没有Requery，不知问题在何处？初学Access，请指点，不胜感激！

林间松韵　发表于：2015-08-08 17:24:08 　

下面“事件过程”执行后子窗体没有Requery，不知问题在何处？初学Access，请指点，不胜感激！详见附件。

Private Sub Cmd查找不良反应_Click()

'根据文本框中输入的内容进行筛选

Dim sch As String
If IsNull(txt_BuLiangFanYing) Then
MsgBox "请输入筛选条件"
txt_BuLiangFanYing.SetFocus
Else

'设置用于筛选记录的SQL语句
sch = "select * from 不良反应查询1 where" & _
"[BuLiangFanYing] like '*" & txt_BuLiangFanYing & "*'"

'使用SQL语句设置当前窗体的RecordSource
Me.RecordSource = sch
Me.不良反应_查询1.Requery

End If

End Sub

点击下载此附件

Top

易勋发表于：2015-08-08 18:53:35

Private Sub Cmd查找不良反应_Click()

'根据文本框中输入的内容进行筛选

    Dim sch As String
    If IsNull(txt_BuLiangFanYing) Then
        MsgBox "请输入筛选条件"
        txt_BuLiangFanYing.SetFocus
    Else

        '设置用于筛选记录的SQL语句
        sch = "select * from 不良反应查询 where" & _
        "[BuLiangFanYing] like '*" & txt_BuLiangFanYing & "*'"
        '使用SQL语句设置当前窗体的RecordSource
        Me.不良反应_查询1.Form.RecordSource = sch
        Me.不良反应_查询1.Requery

    End If

End Sub

1、查询中的表名\查询名：不良反应查询写成了：不良反应查询1

2、Me.RecordSource = sch 这是给主窗体记录源赋值，应当是：Me.不良反应_查询1.Form.RecordSource = sch 给子窗体记录源赋值

Top

林间松韵发表于：2015-08-08 19:43:26

衷心感谢！

将您改写后的代码粘贴后，执行出现如下画面，不知何故？请再赐教，谢谢！