随笔分类 -  ACCESS

上一页 1 2 3 下一页
ACCESS 关于使用VBA选择路径时提示"方法'FileDislog作用于对象'_Application’时失败"的解决方案
摘要：以下是源码: Private Sub Command0_Click() ' 打开文件选择对话框 With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Clear .Filters 阅读全文
posted @ 2024-03-21 08:39 一曲轻扬 阅读(320) 评论(0) 推荐(0)
ACCESS 快速构建修改数据的窗体
摘要：有个客户表: 现在需要创建一个可以修改客户数据的窗体,我们一般的做法是: 1.选中数据表: 客户列表 2.在菜单中选择 "创建" --> "窗体". 3.调整一下格式,和添加一下按钮,就变成了这样,初始状态下,它会自动绑定字段值.此时如果用户对某个值做了修改,会直接修改数据表中的值,这不是我们想要的 阅读全文
posted @ 2024-01-13 09:22 一曲轻扬 阅读(247) 评论(0) 推荐(0)
ACCESS 用EXCEL打印报表
摘要：ACCESS报表真是一言难尽啊.看预览还挺正经的. 结果,放大之后 ,它裂开了,我也裂开了....打印出来,谁看谁尴尬... 调整了很久,还是解决不了,于是愤而改EXCEL.效果如下: Private Sub Command647_Click() '打印.点击后禁用此按钮,待操作完成后再恢复,如果你 阅读全文
posted @ 2023-11-30 15:43 一曲轻扬 阅读(174) 评论(0) 推荐(0)
ACCESS 巧妙限制日期框只能在选择器中选择日期
摘要：文本框一个,在属性面板中设置 "格式"为合适的日期格式 然后设置它的键按下事件 Private Sub d交货日期_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub 这样做的目的是防止用户输入不合法或者错误的日期,比如 阅读全文
posted @ 2023-11-11 13:55 一曲轻扬 阅读(155) 评论(0) 推荐(0)
ACCESS 使用API函数检测shift的状态
摘要：如果是放在 窗体模块 中: Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 如果是放在 模块 中: Public Declare Function GetKeyState Li 阅读全文
posted @ 2023-11-10 15:24 一曲轻扬 阅读(50) 评论(0) 推荐(0)
access 进度条
摘要：请在[布局视图]下设置,效果如下 Option Compare Database Dim s As Integer Private Sub Form_Load() '初始化变量 Me.TimerInterval = 10 Command4.Width = 0End Sub Private Sub F 阅读全文
posted @ 2023-10-31 10:08 一曲轻扬 阅读(106) 评论(0) 推荐(0)
ACCESS 碎片知识
摘要：一.ColumnHidden 隐藏字段 For Each TEMP In Me.FM刀具项夹表.Form.Controls If Not TypeOf TEMP Is Label Then If TEMP.Name <> "RecordID" And TEMP.Name <> "项目" And TE 阅读全文
posted @ 2023-10-27 15:52 一曲轻扬 阅读(36) 评论(0) 推荐(0)
ACCESS 混淆加密解密
摘要：2024-08-25更新 ' 引用 Microsoft XML, v6.0 库 ' 在 VBA 编辑器中，选择 工具 -> 引用 -> 勾选 Microsoft XML, v6.0 ' 加密函数：将密码明文编码为 Base64 格式 Function EncodeBase64(plainText A 阅读全文
posted @ 2023-10-15 21:36 一曲轻扬 阅读(195) 评论(0) 推荐(0)
access MD5加密
摘要：Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Priva 阅读全文
posted @ 2023-10-15 20:22 一曲轻扬 阅读(75) 评论(0) 推荐(0)
ACCESS 中的导航按钮,在VBA下的实现
摘要：'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录 阅读全文
posted @ 2023-10-15 19:41 一曲轻扬 阅读(340) 评论(0) 推荐(0)
access 隐藏导航窗格(左边侧栏)
摘要：Function 隐藏与显示导航空格(ByVal f As Boolean) 'true 显示,false隐藏 If f Then DoCmd.SelectObject acForm, , True Else DoCmd.SelectObject acForm, , True DoCmd.RunCo 阅读全文
posted @ 2023-10-15 17:59 一曲轻扬 阅读(302) 评论(0) 推荐(0)
ACCESS 汉字转成拼音首字母
摘要：Public Function Getpyszm(ByVal Chs As String, Optional bList As Boolean = True) As String Dim ardata(-20319 To -10247) As String ardata(-20319) = " a" 阅读全文
posted @ 2023-10-12 16:39 一曲轻扬 阅读(194) 评论(0) 推荐(0)
ACCESS 报表分页-指定显示固定行数
摘要：在报表中插入三个无关联的文本框控件,取名分别为Text,Text2,Text3,他们的宽/高,上/左边距按需求自定义,可见均设置为否,如果你需要显示序号的话,text3可设置为可见 text 控件来源: =1 text 2:控件来源: =IIf([Text]<[Text3]+1,[Text],IIf 阅读全文
posted @ 2023-10-06 14:30 一曲轻扬 阅读(349) 评论(0) 推荐(0)
access 使用Update更新记录时,提示"操作必须使用一个可更新的查询"
摘要：原SQL: UPDATE 刀具申购明细 SET 刀具申购明细.关闭 = -1 where 刀具申购明细.申购数量<=(SELECT Sum(Round(Nz([入库数量],0)*1,2)) AS 入库合计 FROM 采购入库temp LEFT JOIN 刀具入库明细 ON 采购入库temp.申购ID 阅读全文
posted @ 2023-10-04 16:30 一曲轻扬 阅读(414) 评论(0) 推荐(0)
access 进入指定字段时,自动全选当前值
摘要：如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次. 我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常. 但有个小BUG,就是每次点击都会 阅读全文
posted @ 2023-10-01 14:38 一曲轻扬 阅读(93) 评论(0) 推荐(0)
Delphi 数据类型
摘要：在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型： 1. 整数类型： - `Byte`：无符号8位整数。 - `Shortint`：带符号8位整数。 - `Word`：无符号16位整数。 - `Smallint`：带符号16位整数 阅读全文
posted @ 2023-09-17 00:45 一曲轻扬 阅读(2039) 评论(0) 推荐(0)
ACCESS ACCESS安全性?有,但是真不多
摘要：首当其中的是shift键,能轻松的绕过用户设置的启动程序,直接把后台数据暴露出来.解决方案是:ACCESS 禁止用户使用SHIFT启动数据库 - 一曲轻扬 - 博客园 (cnblogs.com) 其次是万能的导入大法.下面分几中情形来进行总结: 先创建一个空白的数据库A. 假设目标数据库为B. 当B 阅读全文
posted @ 2023-09-08 10:23 一曲轻扬 阅读(139) 评论(0) 推荐(0)
Access Office/windows超简单激活教程
摘要：按WIN+R打开运行,输入 "powershell" 回车,打开powershell界面 然后输入 "irm massgrave.dev/get | iex" 回车, 稍等片刻,打开注册界面 以激活office为例.选择第三项(输入数字3) 再选择2 出现这个界面说明注册成功: 以上方法,WIN7 阅读全文
posted @ 2023-09-06 21:11 一曲轻扬 阅读(4222) 评论(0) 推荐(0)
ACCESS 查询物料进出明细时,计算并显示当时库存
摘要：效果如下图,[数量]字段上的负数为退货或者出库: 以下是入库单与出库单数据表里的数据: 这里要用到一个临时查询,我随便取了个 "物料进出查询" SELECT 入库单.产品ID, 入库单.入库数量 AS 数量,入库日期 as 日期 FROM 入库单 UNION ALL SELECT 出库单.产品ID, 阅读全文
posted @ 2023-08-24 16:04 一曲轻扬 阅读(682) 评论(0) 推荐(0)
ACCESS 说说组合框的应用
摘要：在说应用之前,我觉得很有必要先讲讲组合框的一些常用属性: 1.Dropdown : 显示下拉菜单.这个属性可以在VBA下主动显示出来,但如果要隐藏它,只能通过转移焦点来达成. ComboObj.Dropdown 2.AutoExpand : 这是个布尔值,默认为True.一般会在Load事件中设置好 阅读全文
posted @ 2023-08-15 08:44 一曲轻扬 阅读(1157) 评论(0) 推荐(0)

上一页 1 2 3 下一页