加个查询功能的窗体

FLASH行者

例如 我可以输入一段日期（2011-01-01到2011-01-15） 点查询后可以显示数据表里时间段里的数据

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

求高手帮忙

Henry D. Sy

打不开你的库，版本太高了。

FLASH行者

这个版本是2003的 可以么？

Henry D. Sy

描述不清，你指的时间段是投保时间或到期时间
至于到期提醒，你想如何提醒！
你的库一打开着吗？
是启动时提醒？

bbpst

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


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

Henry D. Sy

1. Private Sub Command8_Click()
   
2.     Dim dtaSDate As Date
   
3.     Dim dtaEDate As Date
   
4.     Dim Criteria As String
   
5.     If IsNull(Me.Text0) Or IsNull(Me.Text2) Then
   
6.         MsgBox "请输入查询日期"
   
7.         Exit Sub
   
8.     End If
   
9.     dtaSDate = Me.Text0
   
10.     dtaEDate = Me.Text2
    
11.     Criteria = "到期时间 between #" & dtaSDate & "# And #" & dtaEDate & "#"
    
12.     Me.表1_子窗体.Form.Filter = Criteria
    
13.     Me.表1_子窗体.Form.FilterOn = True
    
14. End Sub
    
15. 
    
16. Private Sub Command9_Click()
    
17.     Me.Text0 = Null
    
18.     Me.Text2 = Null
    
19.     Me.表1_子窗体.Form.FilterOn = False
    
20. End Sub
    
21. 
    
22. Private Sub Form_Load()
    
23.     Dim strName As String
    
24.     Dim rs As DAO.Recordset
    
25.     Set rs = Me.表1_子窗体.Form.RecordsetClone
    
26.     Do While Not rs.EOF
    
27.         If rs.Fields("到期时间") = Date Then
    
28.             strName = strName & rs.Fields("用户名") & "；"
    
29.         End If
    
30.         rs.MoveNext
    
31.     Loop
    
32.     If strName <> "" Then
    
33.         MsgBox strName & " 今天到期"
    
34.     End If
    
35.     Set rs = Nothing
    
36. End Sub

复制代码

FLASH行者

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

FLASH行者

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

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

bbpst

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

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

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