求大神指点，如何按时间段交叉查询

mkmk71

菜鸟求助，如何实现附件中的统计要求？感谢

Henry D. Sy

自动算出次数
什么意思??

mkmk71

Henry D. Sy 发表于 2017-8-17 09:54
自动算出次数
什么意思??

比如选择病情等级为一级，则计算出在某时间段内病情等级为一级的共有多少例

Henry D. Sy

mkmk71 发表于 2017-8-17 10:02
比如选择病情等级为一级，则计算出在某时间段内病情等级为一级的共有多少例

1. Private Sub 病情等级_AfterUpdate()
   
2.     Dim strCriteria As String
   
3.     If Not IsNull(Me.日期) And Not IsNull(Me.Text27) Then
   
4.         If Not IsNull(Me.病情等级) Then
   
5.             strCriteria = "日期>=#" & Me.日期 & "# And 日期<=#" & Me.Text27 & "# And 病情等级='" & Me.病情等级 & "'"
   
6.             Me.Text29 = DCount("*", "急诊登记表", strCriteria)
   
7.         End If
   
8.     End If
   
9. End Sub
   

复制代码

其他的类似,请自己动手

mkmk71

Henry D. Sy 发表于 2017-8-17 12:33
其他的类似,请自己动手

又上了一课，我的基础太差，感谢老师不厌其烦的指点