V
主页
列表框查询 Access数据库系统功能讲解 VBA代码编程实例
发布人
Dim cj_filter As String ---------------------------------------------------------------------------- Private Sub Command查询_Click() On Error GoTo 结束查询 If Me.查询字段 = "考试日期" Then If 起始日期 <> "" And IsNull(起始日期) = False And 截止日期 <> "" And IsNull(截止日期) = False And 查询字段 <> "" And IsNull(查询字段) = False Then cj_filter = "Select * from 学生成绩表 Where " & Me.查询字段 & " between #" & Me.起始日期 & "# and #" & Me.截止日期 & "#" Me.列表框1.RowSource = cj_filter Else cj_filter = "Select * From 学生成绩表" Me.列表框1.RowSource = cj_filter End If Exit Sub End If If Me.查询字段 = "分数" Then If 最小 <> "" And IsNull(最小) = False And 最大 <> "" And IsNull(最大) = False And 查询字段 <> "" And IsNull(查询字段) = False Then cj_filter = "Select * from 学生成绩表 Where " & Me.查询字段 & " >= " & Me.最小 & " And " & Me.查询字段 & " <= " & Me.最大 Me.列表框1.RowSource = cj_filter Else cj_filter = "Select * From 学生成绩表" Me.列表框1.RowSource = cj_filter End If Exit Sub End If If 查询内容 <> "" And IsNull(查询内容) = False And 查询字段 <> "" And IsNull(查询字段) = False Then cj_filter = "Select * From 学生成绩表 Where " & Me.查询字段 & " like '*" & Me.查询内容 & "*'" Me.列表框1.RowSource = cj_filter Else cj_filter = "Select * From 学生成绩表" Me.列表框1.RowSource = cj_filter End If Exit Sub 结束查询: MsgBox Err.Description End Sub ---------------------------------------------------------------------------- Private Sub Command全部_Click() cj_filter = "Select * From 学生成绩表" Me.列表框1.RowSource = cj_filter End Sub ---------------------------------------------------------------------------- Private Sub Form_Load() Me.起始日期.Visible = False Me.截止日期.Visible = False Me.最小.Visible = False Me.最大.Visible = False Me.查询内容.Visible = True End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
Access如何创建菜单--高级篇
【工厂生产综合管理系统】-Access数据库系统设计制作实例 单机 二次开发示例
【工厂生产综合管理系统】-Access数据库系统制作实例 局域网版本 含二次开发说明
注册登录功能 Access数据库系统功能模块讲解 VBA代码实例
【进销存出入库管理系统】(局域网版本 支持多用户使用)-Access数据库系统设计制作实例
一个窗体中实现增删改查功能(绑定记录窗体) Access数据库系统功能讲解VBA代码编程实例
【文学名著信息系统】-Access数据库系统设计制作实例
使用宏实现注册功能(操作查询添加记录)Access数据库功能模块讲解 宏教程
【人事管理信息系统】-Access数据库系统设计制作实例
生成表查询示例 数据导出 Access数据库功能模块讲解 宏教程
【小区物业收费管理系统】(VBA版)-Access数据库系统设计制作实例 代码讲解
【仓储管理系统】Excel表格前端+Access数据库后端 管理系统 开源VBA编程 代码讲解 功能介绍
操作查询更新数据 Access数据库功能模块讲解 宏教程
Access数据库系统单机版转换成局域网版思路和方法
如何删除记录 Access数据库系统功能讲解 VBA代码编程实例
【班级班费管理系统】-Access数据库系统设计制作实例
【项目任务进度管理系统】(支持局域网多用户使用)-Access数据库系统设计制作实例
Access数据库文件VBA工程密码破解,accdb文件中代码密码解密
链接外部数据库查看数据 Access数据库系统功能讲解 VBA代码编程实例
【院校专业信息管理系统】-Access数据库系统设计制作实例
【超市进销存管理系统】-应用版:数据库设计制作全过程讲解 (Access数据库系统实例)
【车辆管理系统】(局域网版本)-Access数据库系统应用实例 支出多用户使用 包含权限分配功能
【Access数据库VBA实例】—窗体之间传递参数(登录窗体和更新记录窗体)
Access数据库模拟登录、注册和修改密码功能制作演示,源代码,VBA代码
【汽车4S店管理系统】-Access数据库系统设计制作实例
批量更新数据 Access数据库系统功能讲解 VBA代码编程实例
【合同管理系统】(支持局域网)项目合同收款发票-Access数据库系统设计制作实例
【班级寝室管理系统】-Access数据库系统设计制作实例
【酒店住宿管理系统】-Access数据库系统设计制作实例
文件档案管理系统-升级功能:存取文件档案至数据库中 Access数据库系统
外部链接添加附件 Access数据库系统功能讲解 VBA代码编程实例
显示或隐藏导航窗格 Access数据库系统功能模块讲解 VBA代码实例
【货品库存管理系统】局域网版本-Access数据库系统设计制作实例 二次开发示例
【二手车信息管理系统】-Access数据库系统设计制作实例
生成分组数据表 筛选并提取数据 Access数据库系统功能模块讲解 VBA代码
Access数据库-宏教程02:打开窗体宏 OpenForm宏命令
出入库表格程序制作 Access数据库系统功能模块制作实例 VBA编程
【人事管理信息系统-升级版】-Access数据库系统设计制作实例
【家庭收支理财管理系统】-Access数据库系统设计制作实例 数据库文件 设计报告 VBA代码
常用宏按钮 Access数据库系统制作技巧