假设我在Access中有两个未联接的表：
人物
栏：ID，名字，生日
1，Janet，2/27/2000
2，David，3/5/2012
Cat
栏：ID，Catname，生日
1，爪子，6/
20/ 2009 2，Sparkles，10/1/2013
我该如何设置一个宏，该宏（1）从用户输入日期，（2）在每个表（或两个查询，每个表一个查询）中，仅在两个单独的查询中过滤人和猫，它们的出生日期在那个日期？
在下面试试一个子。
Private Sub cmdFilter_Click()
Dim bDate As Date
Dim strSql1 As String
Dim strSql2 As String
Dim qdfPerson As QueryDef
Dim qdfCAT As QueryDef
bDate = InputBox("Enter Birth Date.", "Birth Date", Date)
strSql1 = "SELECT * FROM Person WHERE BirthDate>=#" & bDate & "#"
strSql2 = "SELECT * FROM Cat WHERE BirthDate>=#" & bDate & "#"
On Error Resume Next
'Delete the query if it already exists
DoCmd.DeleteObject acQuery, "qryPerson"
DoCmd.DeleteObject acQuery, "qryCat"
Set qdfPerson = CurrentDb.CreateQueryDef("qryPerson", strSql1)
Set qdfCAT = CurrentDb.CreateQueryDef("qryCat", strSql2)
DoCmd.OpenQuery qdfPerson.Name
DoCmd.OpenQuery qdfCAT.Name
qdfPerson.Close
qdfCAT.Close
Set qdfPerson = Nothing
Set qdfCAT = Nothing
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句