Office中国论坛/Access中国论坛

标题: 加个查询功能的窗体 [打印本页]

作者: FLASH行者 时间: 2011-12-16 20:57
标题: 加个查询功能的窗体
例如我可以输入一段日期（2011-01-01到2011-01-15）点查询后可以显示数据表里时间段里的数据

数据表大概就是附件里的最好还能有一个到期提示

求高手帮忙

作者: Henry D. Sy 时间: 2011-12-16 23:13
打不开你的库，版本太高了。

作者: FLASH行者 时间: 2011-12-17 10:57
这个版本是2003的可以么？

作者: Henry D. Sy 时间: 2011-12-17 12:00
描述不清，你指的时间段是投保时间或到期时间
至于到期提醒，你想如何提醒！
你的库一打开着吗？
是启动时提醒？

作者: bbpst 时间: 2011-12-17 12:06
本帖最后由 bbpst 于 2011-12-17 12:18 编辑

查询功能帮你做好了,至于提示,我想难道让它自动提示?有点搞不大清楚.

其实应该做一个日期就够了"到期日期"

作者: Henry D. Sy 时间: 2011-12-17 12:18

Private Sub Command8_Click()
Dim dtaSDate As Date
Dim dtaEDate As Date
Dim Criteria As String
If IsNull(Me.Text0) Or IsNull(Me.Text2) Then
MsgBox "请输入查询日期"
Exit Sub
End If
dtaSDate = Me.Text0
dtaEDate = Me.Text2
Criteria = "到期时间 between #" & dtaSDate & "# And #" & dtaEDate & "#"
Me.表1_子窗体.Form.Filter = Criteria
Me.表1_子窗体.Form.FilterOn = True
End Sub
Private Sub Command9_Click()
Me.Text0 = Null
Me.Text2 = Null
Me.表1_子窗体.Form.FilterOn = False
End Sub
Private Sub Form_Load()
Dim strName As String
Dim rs As DAO.Recordset
Set rs = Me.表1_子窗体.Form.RecordsetClone
Do While Not rs.EOF
If rs.Fields("到期时间") = Date Then
strName = strName & rs.Fields("用户名") & "；"
End If
rs.MoveNext
Loop
If strName <> "" Then
MsgBox strName & " 今天到期"
End If
Set rs = Nothing
End Sub

复制代码

作者: FLASH行者 时间: 2011-12-17 12:34
{:soso_e102:} 好崇拜你们，谢谢先。时间段就是到期时间，提醒如果能一启动数据库或窗体就能提示最好了

作者: FLASH行者 时间: 2011-12-17 12:37

bbpst 发表于 2011-12-17 12:06
查询功能帮你做好了,至于提示,我想难道让它自动提示?有点搞不大清楚.

我想在窗体里实现查询功能，你上传的只有数据表了

作者: bbpst 时间: 2011-12-17 12:50
本帖最后由 bbpst 于 2011-12-17 13:04 编辑

对的呀,"查询"窗体里输入开始日期和截止日期,点查询,就可以把查出的数据列出在子表上

直接用一个日期就行了,查询生成器中在"到期时间"的条件中把改一下.

至于提示,把版主的窗体加载的语句加进去.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)