V
主页
生成自定义编号 Access数据库系统功能讲解 VBA代码编程实例
发布人
Private Sub Command添加_Click() On Error GoTo 添加失败错误 If 记录编号 = "" Or IsNull(记录编号) = True Then MsgBox "记录编号值为空!" Exit Sub End If If 类型 = "" Or IsNull(类型) = True Then MsgBox "类型值为空!" Exit Sub End If If 金额 = "" Or IsNull(金额) = True Then MsgBox "金额值为空!" Exit Sub End If If 客户 = "" Or IsNull(客户) = True Then MsgBox "客户值为空!" Exit Sub End If If 日期 = "" Or IsNull(日期) = True Then MsgBox "日期值为空!" Exit Sub End If Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("销售数据表", dbOpenTable) With add_rs .AddNew !记录编号.Value = 记录编号.Value !类型.Value = 类型.Value !金额.Value = 金额.Value !客户.Value = 客户.Value !日期.Value = 日期.Value !备注.Value = 备注.Value .Update .Close End With Set add_rs = Nothing Me.数据表子窗体.Requery Exit Sub 添加失败错误: MsgBox "添加失败!" MsgBox Err.Description End Sub --------------------------------------------------------------------- Function 生成自定义编号(ByVal numdate As Date, ByVal numtype As String) As String On Error GoTo 错误 Dim search_num As String If numtype = "销售" Then search_num = "XS-" & Format(numdate, "YYYYMMDD") Else search_num = "TH-" & Format(numdate, "YYYYMMDD") End If Dim num_count As Long num_count = Nz(DCount("记录编号", "销售数据表", "记录编号 like '*" & search_num & "*'"), 0) + 1 生成自定义编号 = search_num & "-" & Format(num_count, "000") Exit Function 错误: 生成自定义编号 = "" End Function --------------------------------------------------------------------- Private Sub 记录编号_DblClick(Cancel As Integer) If 类型 = "" Or IsNull(类型) = True Then MsgBox "类型值为空!" Exit Sub End If If 日期 = "" Or IsNull(日期) = True Then MsgBox "日期值为空!" Exit Sub End If Me.记录编号 = 生成自定义编号(Me.日期, Me.类型) End Sub
打开封面
下载高清视频
观看高清视频
视频下载器
【采购管理系统】(支持局域网多用户使用)-Access数据库系统设计制作实例
【小区物业收费管理系统】(VBA版)-Access数据库系统设计制作实例 代码讲解
如何更新记录 Access数据库系统功能讲解 VBA代码编程实例
【客户管理系统】单机版-Access数据库系统设计制作实例 功能介绍、使用方法和二次开发演示说明
【库存管理系统】新版 -Access数据库系统设计制作实例 设计报告资料 VBA代码 编程 管理系统 课程设计
【学生成绩管理系统】-Access数据库系统设计制作实例 设计报告+数据库文件+VBA原代码
【Access数据库VBA实例】—客户资料管理系统(升级版)
文件档案管理系统-升级功能:存取文件档案至数据库中 Access数据库系统
【工厂生产综合管理系统】-Access数据库系统设计制作实例 单机 二次开发示例
【办公用品管理系统】(支持局域网多用户使用)-Access数据库系统设计制作实例 开源文件 VBA代码编程
【数据库备份工具】-Access数据库程序设计制作实例
批量导入导出附件中的文件 Access数据库系统功能讲解 VBA代码编程实例
如何删除记录 Access数据库系统功能讲解 VBA代码编程实例
【家庭收支理财管理系统】-Access数据库系统设计制作实例 数据库文件 设计报告 VBA代码
Access数据库-宏教程05:打开报表、关闭报表和打印报表输出为指定格式
Access数据库-宏教程应用实例2:系统登录、退出登录、注销账号
收入支出记账程序 Access数据库系统功能讲解 VBA代码编程实例
【Access应用实例】自定义显示或隐藏数据表字段列
【人事管理信息系统-升级版】-Access数据库系统设计制作实例
【仓储管理系统】(支持局域网多用户使用)-Access数据库系统设计制作实例 可视化库位管理 出入库 库存提醒 有效期提醒
多条件筛选 Access数据库功能模块讲解 VBA代码编程实例
组合框应用技巧
【客户管理系统】局域网版本-Access数据库系统设计制作实例 功能介绍 使用方法 二次开发演示
【学校收费管理系统】-前端Visual Basic 后端Access/SQL Server 数据库管理系统 设计报告 VB 编程 源文件 代码分享
【每日任务计划管理系统】-前端Visual Basic 后端Access/SQL Server 数据库管理系统 设计报告 VB 编程 源文件 代码分享
根据模板生成Excel表格 Access数据库系统功能模块讲解 VBA代码实例
别人用5天做的【客户管理系统】而我只用1小时就可以做好 Excel+Access数据库
批量生成自定义工作簿和工作表-【Excel 表格 VBA 实例】
【货品库存管理系统】局域网版本-Access数据库系统设计制作实例 二次开发示例
按键精灵录制脚本正确的使用方法
【股票管理系统】(股票模拟选股,收益率统计,自选股管理,股票监控预警)-Access数据库系统设计制作实例
【仓储管理系统】Excel表格前端+Access数据库后端 管理系统 开源VBA编程 代码讲解 功能介绍
Access数据库-宏教程02:打开窗体宏 OpenForm宏命令
【工厂生产综合管理系统】-Access数据库系统制作实例 局域网版本 含二次开发说明
【学校信息管理系统】VB 数据库管理系统 Visual Basic 编程 代码 原文件 设计报告资料
【进销存收支利润管理系统】-Access数据库系统设计制作实例 功能介绍 操作演示 原文件 开源VBA代码 办公软件
【人事档案管理系统】Excel前端+Access数据库 开发教程 零代码无编程开发 支持局域网多用户使用
【学校运动会信息系统】-Access数据库系统设计制作实例
复选框多选导出数据 Access数据库系统功能讲解 VBA代码编程实例
【考勤管理系统】-Access数据库系统设计制作实例 考勤 加班 工资 源文件 VBA代码 编程 二次开放 数据库管理系统