![](https://img-blog.csdnimg.cn/20201014180756926.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
ACCESS学习
ACCESS学习
gonery
这个作者很懒,什么都没留下…
展开
-
[EXCEL][VBA][ACCESS]业务档案录入系统
资源下载:https://download.csdn.net/download/gonery/20605736主界面:代码:sheet1Option ExplicitPrivate Sub delete_dh() Dim cSQL As String Call cnn_MDB cSQL = "Insert Into yw_aj_bak Select * From yw_aj Where dh='" & Me.txt_search.原创 2021-07-28 19:31:19 · 1059 阅读 · 0 评论 -
[ACCESS][小工具]根据数据库信息分件(临时分件用)
Option Compare Database' 引用 Microsoft Scripting RuntimeOption ExplicitPrivate Function getDH(strPath) getDH = Right(strPath, 12)End FunctionPrivate Sub Form_Load() '居中显示' DoCmd.Echo False' Dim x, y As Integer' DoCmd.Maximize' .原创 2020-08-02 19:17:57 · 316 阅读 · 0 评论 -
[ACCESS]档案数字化加工录入系统使用说明(干部职工退休档案)
干部职工退休人员档案数字化加工软件使用说明一、界面界面分为四部分:1、案卷信息 录入、显示案卷信息;2、卷内目录 录入、显示单条卷内目录信息;3、卷内预览 显示案卷羊肉目录信息;4、功能区 搜索、打印、修改案卷,新增案卷、退出。(软件界面)二、操作说明1、案卷信息录入打开软件后,默认为案卷信息录入状态。(案卷录入界面)案卷信息录入完成,点击 按钮,录入信息格式及位数无误,提示保存成功信息。新案卷录入时先点击 ,窗口刷新后再进行案卷...原创 2020-06-26 15:13:51 · 1989 阅读 · 1 评论 -
[示例]通过代码实现快速录入
表(tab1)窗体(Main)代码Option Compare DatabasePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)'设置窗体快捷按键 NUM-,按下后输入文本框获得焦点,并对其显示内容进行全选'需要设置窗体键预览属性为是 Select Case KeyCode Case...原创 2020-01-16 21:49:56 · 459 阅读 · 0 评论