2007年6月9日
Access开发辅助工具，您只需要简单的几步操作，即可让您程序拥有专业的控制面板、灵活的权限管理、用户管理、用户登陆及通用查询分析等功能，强烈提升程序的专业层次，缩短开发周期，把宝贵的时间运用到业务逻辑上…
' Convert a currency value into an (American) English string
Function English (ByVal N As Currency) As String
Const Thousand = 1000@
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * Billion
Function English (ByVal N As Currency) As String
Const Thousand = 1000@
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * Billion
2007年3月7日
自定义函数fIsAppRunning来判断指定的程序是否运行。函数的第一个参数为程序名称，第二个参为可选参数，如果你想判断的存在同时激活程序窗口则设成TRUE，反之FALSE。例如：我想想判断WORD程序是否运行，如运行我们激活WORD窗口，可以在调试窗体中输入：?fIsAppRunning('Word',True)回车，如果只是想知道WORD是否运行，则输入?fIsAppRunning('word')后回车
Private Declare Function apiFindWindow Lib 'user32' Alias _
'FindWindowA' (ByVal strClass As String, _
ByVal lpWindow As String) As Long
Private Declare Function apiFindWindow Lib 'user32' Alias _
'FindWindowA' (ByVal strClass As String, _
ByVal lpWindow As String) As Long
2007年3月7日
使用下面的函数可以实现，注意：表达式中的文件名一定为完整文件名，包括扩展名。
Public Const pcsSYNC = 0 ' wait until sound is finished playing
Public Const pcsASYNC = 1 ' don't wait for finish
Public Const pcsNODEFAULT = 2 ' play no default sound if sound doesn't exist
Public Const pcsLOOP = 8 ' play sound in an infinite loop (until next apiPlaySound)
Public Const pcsNOSTOP = 16 ' don't interrupt a playing sound
Public Const pcsSYNC = 0 ' wait until sound is finished playing
Public Const pcsASYNC = 1 ' don't wait for finish
Public Const pcsNODEFAULT = 2 ' play no default sound if sound doesn't exist
Public Const pcsLOOP = 8 ' play sound in an infinite loop (until next apiPlaySound)
Public Const pcsNOSTOP = 16 ' don't interrupt a playing sound
2007年2月11日
想知道如何不通过设置工程密码锁定VBA代码吗？想知道如何不显示VBA密码的输入窗口而出现下图对话框吗，这里有您要的答案...
2006年7月11日
今天财务一早来找我发难，问你写的软件怎么回事，怎么同样的计算结果一边是16.82,一边是16.83，我也奇怪。细细一研究，原来被ROUND函数给暗算了，这个结果是四舍五入后的结果，本身是16.825，ROUND函数有BUG我早就知道，但是一直没有“上过当”，没想今了栽了。Round函数在遇到5时四舍五入“极其随便”，有时候进位，有时候舍去，不知道是什么原则，不去浪费时间研究了。解决问题为第一原则，好在网上有Dave Mc Donald 发布的代替函数，可替换ROUND使用...
2006年6月5日
本书由浅入深，从简单的Access2000基本使用方法讲起，逐渐加深内容介绍了VBA语言的基本语法，最后着重讲述了如何在Access2000中开发数据库应用程序。全书共分三部分，第一部分主要介绍了Access2000中的基本对象，如表、查询、窗体、报表、数据访问页等，为不熟悉Access的用户提供了一个入门的捷径；第二部分主要介绍了VBA的基本语法，包括数据类型、语句、函数、过程、调试等基础内容，方便用户掌握VBA语言；第三部分主要介绍了应用程序的高级开发...
2006年5月15日
采用了自动化WORD对象结合预定义好的模板格式来套打发票的程序。本例中有几个我感觉做得比较好的地方：
1，模板的设计，特别是明细项中的设计，使用名称加数值，减少了代码编写量
2，代码判断共有几页的方法（有点象ASP的做法）
3，代码中对明细页的记录集的读取。
4，整体格式的设计
1，模板的设计，特别是明细项中的设计，使用名称加数值，减少了代码编写量
2，代码判断共有几页的方法（有点象ASP的做法）
3，代码中对明细页的记录集的读取。
4，整体格式的设计
2006年5月15日
本例代码很精简,使用了窗体级的数组变量,把要加载的动画每一帧先读到数组,加载到内存中,达到每帧切换的速度快,这样在播放动画时"画质"好,具体就是不会跳跃和斗动.
动画做成子窗体形式,可以像控件那样方便使用,如在主窗体中运行一个大过程,可以在运行大过程前播放动画,运行结束后停止动画。做成子窗体的好处还有可在多个窗体中重复使用,方便高效.
动画做成子窗体形式,可以像控件那样方便使用,如在主窗体中运行一个大过程,可以在运行大过程前播放动画,运行结束后停止动画。做成子窗体的好处还有可在多个窗体中重复使用,方便高效.
