交叉查询表结果为什么不自动更新？

jp777

但是year字段的属性是文本啊，如果我想用关键字搜寻，而不是仅仅限于年份是否可行？即搜寻字段中含有指定字符的记录就可被过滤出，而不仅仅限于年份（例如A-2004-01，这样虽然不是以年份开头，但只要记录中有2004即可搜索出）。我不是很懂，能否答复一下。万分谢谢。

Henry D. Sy

Private Sub Year_AfterUpdate()
    Dim Qdf As DAO.QueryDef
    Dim strSQL As String
    Set Qdf = CurrentDb.QueryDefs("Q")
    strSQL = "SELECT Total.* FROM Total Where  instr(Year,'" & Me.Year & "')>0"
    Qdf.SQL = strSQL
    Me.reference.SourceObject = "查询.Q"
    Me.Subform.SourceObject = "查询.Total_Year"
    Qdf.Close
    Set Qdf = Nothing
End Sub