Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

【access开发平台】浮动窗体按时间查询、按时段查找数据、按日期查找记录的教程

时 间:2012-04-16 13:41:19
作 者:Accessoft--缪炜   ID:24010  城市:江阴
摘 要:【Access开发平台】浮动窗体按时间查询、按时段查找数据的教程
正 文:

之前我们已经学过如何制作浮动窗体筛选数据,这次我们学习一个按时间、按时段的浮动窗体快速查找方法

先看实现后的功能效果演示:

 
制作过程(以培训教程变速箱管理系统作业三”销售订单”数据表的”订货日期”为例):
1、
 新建一个空白窗体,选择工具栏,新一个组合框,三个文本框,两个按钮,调整完后如图1所示(其中记录日期和开始日期是放到同一位置):
图1



2、 进入窗体的加载事件,在光标处写入代码为:
Private Sub Form_Load()
    Me.jlrq.Visible = False
    Me.ksrq.Visible = False
    Me.jsrq.Visible = False
    Me.ksrq = IIf(Month(Date) = 1 And Day(Date) < 25, Year(Date) - 1, Year(Date)) & "-" & IIf(Day(Date) < 26, IIf(Month(Date) = 1, "12", Month(Date) - 1), Month(Date)) & "-" & 26
    Me.jsrq = IIf(Month(Date) = 12, IIf(Year(Date) > 25, Year(Date) + 1, Year(Date)), Year(Date)) & "-" & IIf(Day(Date) > 25, IIf(Month(Date) = 12, "01", Month(Date) + 1), Month(Date)) & "-" & 25
End Sub
3、 修改组合框的属性;
(1)、此例我们将组合框名称命名为cobSort,将“数据”栏的“行来源”改为“值列表”;“行来源”我们手功输入为“全部;按时间;按时段”;“默认值”改为“全部”,设置好后如图2:
 
图2

 
(2)、“事件”栏,选择更新后[事件过程],在光标处写入代码为:
Private Sub cobSort_AfterUpdate()
    Select Case Me.cobSort
    Case "全部"
        Me.jlrq.Visible = False
        Me.ksrq.Visible = False
        Me.jsrq.Visible = False
    Case "按时间"
        Me.jlrq.Visible = True
        Me.ksrq.Visible = False
        Me.jsrq.Visible = False
    Case "按时段"
        Me.jlrq.Visible = False
        Me.ksrq.Visible = True
        Me.jsrq.Visible = True
    End Select
End Sub
4、 修改一下按钮“格式”项的“标题”为“确定”,“其它”项的“名称”改为“cmd_OK”,然后进入按钮的单击事件,写入下面的代码:
Private Sub cmdOK_Click()
    Select Case Me.cobSort
    Case "全部"
        Forms!usysfrmMain!frmChild.Form.RecordSource = "qryXsddzj"
    Case "按时间"
        Forms!usysfrmMain!frmChild.Form.RecordSource = "Select * From qryXsddzj Where 订货日期=#" & Me.jlrq & "# "
    Case "按时段"
        Forms!usysfrmMain!frmChild.Form.RecordSource = "Select * From qryXsddzj Where 订货日期 between #" & Me.ksrq & "# And #" & Me.jsrq & "#"
    End Select

End Sub
注:红色部分为qryXsddzj的查询里面相应的字段中文名称,我们这个事例是按订货日期来实现查询。
5、 保存窗体并命名名称,此例为:frmSelectSort
6、 此例是以 销售订单为例的,所以回到销售订单的子窗体frmXsddzj_Child设计界面
到“窗体”的属性界面,
(1)、选择“事件”栏,选择加载[事件过程],在光标出写入代码为:
DoCmd.OpenForm "frmSelectSort"
'下面代码是让浮动窗体靠屏幕最左面显示
With Forms("浮动窗体名称")
.Move Me.WindowLeft - .WindowWidth, Me.WindowTop
End With
(2)、选择“事件”栏,选择关闭[事件过程],在光标出写入代码为:
‘如果"frmSelectSort"窗体处于打开状态,则关闭它
If IsLoaded("frmSelectSort") Then
DoCmd.Close acForm, "frmSelectSort"
End If
这样就完成了该功能的实现。

 

相关文章:  按组合框选择条件查找  按输入模糊数据进行查找



Access快速开发平台QQ群 (群号:321554481)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助