VBA基础

有网友问及复选框的用法问题。在多个复选框中, 如何设置三选一,并且把选择的内容写入数据库。 如下图所示,把选择的综合判定写入表中 在access中多选一可以使用选项组控件,这是一个容器控件。在选项组控件中再添加多个复选框控件 注...
在access中,我们可以在表中预选设置格式,以该种形式显示数字格式 但是有时候需要对不同的用户以不同的格式显示数字。而且格式不是可选的  那么我们可以通过自定义格式来显示数字。如文本框输入“12345678”,要保留两位...
在access应用程序中,我们对选择不同的条件显示不同的值,如选择某个值时为正数,某些值时即为负数 如下图,当选择A的时候为正数,其他选择为负数。 详细源码:在获取文本框的值的同时加入绝对值,使设置数值每次都被重新赋值为正数 Priv...
617   2018-03-17

access字符串转换为日期

在excel导入的数据中,或者其他录入的数据,看似是日期格式的字符,但是确实文本数据类型。 如何才能把文本转换成日期格式呢?当然可以使用CDate强行转换了。 由于显示的数据是类似日期格式的,所以我们用DateValue函数。 如下...
在access中,设置字体或者背景颜色都是非常方便的。可直接在功能菜单上设置 也可以用VBA代码动态设置字体颜色和背景颜色。如设置文本框的字体颜色和背景颜色:如下图所示 详细代码: Private Sub Text0_Got...
在前面的学习中,我们讲过如何使用VBA代码动态创建access对象的内容 比如创建窗体《Access动态创建窗体及动态创建控件》,创建查询《Access vba动态创建查询》 用代码动态创建的窗体会马上显示,但是创建的表和查询对象没有马上显...
701   2018-03-08

access显示数字百分比

在access数据查询中,我们能通过算术表达式来求出一些值。有的值我们需要转换成百分比。 当然我们可以非常简单的把这些值乘以100然后用连接符“&”来连接百分号。但是如果有多位小数呢还得用Round函数四舍五入 现在来介绍一个F...
在access录入数据中,有的记录是需要唯一的编号。我们保存数据前都需要先对比之前是否存在这条新添加数据,如果存在则提示存在,不添加。 如何才能在保存之前先判断记录是否存在呢? 如图,在表中已经存在部分数据了 如果录入重复的编号,...
在access应用程序中,我们可能会在每天某个时间点进行一些自动的操作。 比如每天的早上8:30 ,程序自动打开窗体进行导出操作等。那么如何获取这个时间点呢? 可以使用DateAdd函数。该函数包含一个日期的 Variant (Date...
560   2018-01-26

Access随机批量生成时间

在数据库中,我们往往需要不同的数据来测试程序是否存在bug。 如录入多个随机时间,那么如何随机生成多个时间呢? 如下代码:用Rnd函数生成随机值 Public Function 随机时间(iTime As Integer) Di...
Access中有很多有用的内置功能,这些自带的功能可以轻松处理一些常用的操作。 但是在设计好的应用程序中,这些内置功能一般是不会让用户看到的。但是我们又希望调用这些功能。该怎么做呢? VBA中,可以使用RunCommand 方法来运行内...
461   2018-01-13

Access声明变量的错误

在很多示例文件中,都会发现这样声明变量的。 Dim a, b As String 这样看起来的效果是和下面的一样的 Dim a As String Dim b As String 其实并不然。当我们用typename函数来获取变量...
在Access中,我们经常动态创建一些对象,比如临时表,窗体等等。但是创建完成后你会发现新创建的对象不在列表中 只有返回Access界面。按F5刷新一下Access列表才会出现刚创建的对象 如下图,我们创建了一个查询后,再创建一次会提示...
473   2018-01-09

Access判断查询是否存在

有时候,我们需要动态删除某个查询。但是删除之前需要先判断查询是否存在 在前面的学习中,我们知道如何判断一个已知的表对象是否存在,参见《Access判断数据表是否存在》 判断查询是否存在的自定义函数: Function ExistQue...
在Access表设计中,我们都会对每个字段做一些属性修改。比如修改文本大小节省内容,修改标题方法显示字段信息等等。 前面我们讲过《Access获取表中字段的标题属性》。那么其他属性也可以通过此方法去获取。 下面的函数可以获取表字段的字...
1/4