随笔分类 - ACCESS
摘要：先看下面这个图: 左边的已签回字段是我后来改造过的.右边的是最原始的数据.原始数据下,布尔类型是无法设置边框线的,打印出来的效果也是非常的差 改造的方法是直接舍弃原来的字段,自己插入一个计算字段(文本框),然后用IIF计算,下面提供两种应用样式,可供大家参考 最后啰嗦一句:ACCESS里面的布尔类型
阅读全文
摘要：这是官方链接,不要去各种百度了: 在数据库中强制实施或禁用启动选项 - Office | Microsoft Learn '1.启动访问。 '2.创建新模块，然后添加以下两个函数： Function ap_DisableShift() 'This function disable the shift
阅读全文
摘要：对于行业符号,有些输入法有专门的特殊符号大全,比如 但是你得找啊,这么多类型,不熟悉的人都得晕菜,再说里面其实用到的,也就那么几个而已,不如我们把常用的挑出来吧.比如这样: 这有点丑..如果是用delphi做的话,我自信能做得非常漂亮 我这里就随便画了两个,大家可以做个面板,把常用的都入到里面去,点
阅读全文
摘要：原代码如下: Private Sub ComSave_Click() '保存按钮 If ComSave.Caption = "编辑(自动保存)" Then Me.Text160.Locked = False Me.Text138.Locked = False Me.FM入库单.Form.数量.Loc
阅读全文
摘要：看一下下面这个表 FM出库单 我要设置字段[数量]与[备注]的locked属性,其中 [数量]字段设置成功了,而在运行到 [备注] 的设置代码时,却报错了: 搞得我百思不得骑姐,花了一个多小时排查这个问题,结果才发现: 总结:当把最有可能的原因排除了之后,那真相就是那个最不可能的原因.
阅读全文
摘要：Round是用来处理浮点计算的,如果不处理,原本一个29.9,它能给你算成29.899500000012345. 如果字段属性是文本格式,你再怎么round都没用,所以在这之前,你得把文本类型的字段,转成数字类型的字段.方法也很简单,比如 [字段]*1.但是这里又会产生一个新的问题,比如字段下面有n
阅读全文
摘要：官方文档:DoCmd.OutputTo 方法 (Access) | Microsoft Learn 看上去挺复杂的,其实主要看第一和第三个参数.不想去研究的朋友,下面这几行代码,应该够用了 '将报表导出为PDF代码 DoCmd.OutputTo acOutputReport, "报表名称", acF
阅读全文
摘要：Dim a, b, c As String 不用讲,大家都这么玩过.实际上,它只将 c 声明为 String 类型，而 a 和 b 实际上是未声明的 Variant 类型。然后，当你尝试将未声明类型的变量 a 作为参数传递给 ByRef 参数的函数时，会导致类型不匹配的错误。 Sub MySub(B
阅读全文
摘要：先声明一下,我本人的SQL的水平也是非常粗浅的,本文就实际开发过程中遇到的问题做一个简单的笔记,不对的地方,请大家指正. 经验一: 合理利SQL语句,不是什么语句都得在视图下完成的.你可以尝试在SQL视图下手打. 一个简单常见的例子: 求库存 .以我这里的数据库为例,有三张表关系到了库存的数量,分别
阅读全文
摘要：下面是错误的语句: SELECT 查询1.产品ID, Sum(查询1.数量之合计) AS 数量之合计之合计, 查询1.仓库 FROM ( (SELECT 入库单.产品ID, Sum(入库单.数量) AS 数量之合计, 入库单.仓库 FROM 入库单 GROUP BY 入库单.产品ID, 入库单.仓库
阅读全文
摘要：如上图所示,下拉框明显宽度不够,右边的数据都没展现出来.窗口模式下是不能设置宽度值的. 解决的方案是在设计模式下,给"产品编码"这个字段设置一个合理的宽度值,便数据全部展现出来 然后回到数据视图下,发现数据已经能正常显示了.注意,此时,当字段的宽度小于下拉菜单的宽度时,下拉菜单的宽度不会改变,但是当
阅读全文
摘要：Private Sub Form_Load() For Each temp In Me.Controls If Not TypeOf temp Is Label Then temp.OnClick = "=GetVal()" Next If Me.产品编码.FormatConditions.Coun
阅读全文
摘要：'在A窗体中设置B窗体中组合框的值 Private Sub Command9_Click() OpenFormAneCloseMe ("订单管理") '注意这里是先打开窗体,等窗体打开后再设置值 Forms("订单管理").Controls("Combo53").Value = "全部" Forms
阅读全文
摘要：Private Sub Form_Load() Me.Move -3000, -2500, Me.Width, 15000 For Each temp In Me.Controls If TypeOf temp Is TextBox Then temp.OnChange = "=FilterTabl
阅读全文
摘要：Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If Me.SelHeight > 1 Then '判断用户是否多选 Dim i
阅读全文
摘要：在Access VBA中，类是一种用于封装数据和方法的编程结构。类可以帮助我们更好地组织和管理应用程序中的代码，使代码更易于维护和扩展。 以下是一些关于类的基本概念和用法： 类的定义 在VBA中，可以使用Class关键字定义一个类。类的定义通常包括属性和方法，用于描述类的行为和状态。例如： Publ
阅读全文
摘要：在Access中将单价字段设置为文本类型的优缺点如下： 优点： 可以保存任意格式的数据，包括货币符号、千位分隔符、小数点等。 可以在文本类型字段中保存数字和非数字的数据，例如“未知”或“免费”。 可以避免由于浮点数精度问题导致的计算错误，例如0.1+0.2=0.30000000000000004。
阅读全文
摘要：Option Compare Database Option Explicit ' 声明一个带事件的下拉框变量 Private WithEvents mcboSearch As ComboBox Private mblnAfterUpdate As Boolean ' 记录是否在AfterUpdat
阅读全文
浙公网安备 33010602011771号