在access中，我们可以在表中预选设置格式，以该种形式显示数字格式 但是有时候需要对不同的用户以不同的格式显示数字。而且格式不是可选的  那么我们可以通过自定义格式来显示数字。如文本框输入“12345678”，要保留两位...

在access应用程序中，我们对选择不同的条件显示不同的值，如选择某个值时为正数，某些值时即为负数 如下图，当选择A的时候为正数，其他选择为负数。 详细源码：在获取文本框的值的同时加入绝对值，使设置数值每次都被重新赋值为正数 Priv...

在excel导入的数据中，或者其他录入的数据，看似是日期格式的字符，但是确实文本数据类型。 如何才能把文本转换成日期格式呢？当然可以使用CDate强行转换了。 由于显示的数据是类似日期格式的，所以我们用DateValue函数。 如下...

在access中，设置字体或者背景颜色都是非常方便的。可直接在功能菜单上设置 也可以用VBA代码动态设置字体颜色和背景颜色。如设置文本框的字体颜色和背景颜色：如下图所示 详细代码： Private Sub Text0_Got...

在前面的学习中，我们讲过如何使用VBA代码动态创建access对象的内容 比如创建窗体《Access动态创建窗体及动态创建控件》，创建查询《Access vba动态创建查询》 用代码动态创建的窗体会马上显示，但是创建的表和查询对象没有马上显...

在access数据查询中，我们能通过算术表达式来求出一些值。有的值我们需要转换成百分比。 当然我们可以非常简单的把这些值乘以100然后用连接符“&”来连接百分号。但是如果有多位小数呢还得用Round函数四舍五入 现在来介绍一个F...

在access录入数据中，有的记录是需要唯一的编号。我们保存数据前都需要先对比之前是否存在这条新添加数据，如果存在则提示存在，不添加。 如何才能在保存之前先判断记录是否存在呢？ 如图，在表中已经存在部分数据了 如果录入重复的编号，...

在access应用程序中，我们可能会在每天某个时间点进行一些自动的操作。 比如每天的早上8：30 ，程序自动打开窗体进行导出操作等。那么如何获取这个时间点呢？ 可以使用DateAdd函数。该函数包含一个日期的 Variant (Date...

在数据库中，我们往往需要不同的数据来测试程序是否存在bug。 如录入多个随机时间，那么如何随机生成多个时间呢？ 如下代码：用Rnd函数生成随机值 Public Function 随机时间(iTime As Integer) Di...

Access中有很多有用的内置功能，这些自带的功能可以轻松处理一些常用的操作。 但是在设计好的应用程序中，这些内置功能一般是不会让用户看到的。但是我们又希望调用这些功能。该怎么做呢？ VBA中，可以使用RunCommand 方法来运行内...

在很多示例文件中，都会发现这样声明变量的。 Dim a, b As String 这样看起来的效果是和下面的一样的 Dim a As String Dim b As String 其实并不然。当我们用typename函数来获取变量...

在Access中，我们经常动态创建一些对象，比如临时表，窗体等等。但是创建完成后你会发现新创建的对象不在列表中 只有返回Access界面。按F5刷新一下Access列表才会出现刚创建的对象 如下图，我们创建了一个查询后，再创建一次会提示...

有时候，我们需要动态删除某个查询。但是删除之前需要先判断查询是否存在 在前面的学习中，我们知道如何判断一个已知的表对象是否存在，参见《Access判断数据表是否存在》 判断查询是否存在的自定义函数： Function ExistQue...

在Access表设计中，我们都会对每个字段做一些属性修改。比如修改文本大小节省内容，修改标题方法显示字段信息等等。 前面我们讲过《Access获取表中字段的标题属性》。那么其他属性也可以通过此方法去获取。 下面的函数可以获取表字段的字...

在Access中，我们在窗体代码或者在模块中都可以Public和Private的身影 但是在一些sub过程中，会发现直接用Sub的，也有Private Sub的。那这两者之前有什么区别呢？ 1、若Sub前面没有东西，实际是省略了Publ...