- 博客(8)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 access.application.syscmd方法的应用（备忘）
今天在做access模块时，想对access系统的statusbar进行修改，参看帮助文件后找到了application的syscmd方法。通过次方法实现了自定义状态栏文字以及自定义状态栏进度条。语法可以自行查看access vba帮助文件。我用到的几句如下：appl
2011-09-30 15:01:55
5090
原创 解决access中round函数不能正确四舍五入的问题 （备忘）
Function round(x As Double, Y As Integer) As Double'四舍五入函数'将数字转化为字符串，判断是否大于4，截掉多余部分Dim douShuZhi As DoubleDim strShuZhi As StringDim b
2011-09-01 09:11:03
10884
2
原创 判断字段类型的函数 （备忘）
Public Function sFldType(iType As Integer) Select Case iType Case 20 sFldType = "BigInt" Case 128
2011-09-01 09:05:51
2808
原创 一段多个access表汇总的简单样例 （备忘 根据情况修改相应代码可实现excel多表入access汇总）
Sub AccessTableTotal() Dim Conn As New ADODB.Connection Dim Rec As New ADODB.Recordset Dim rsTemp As New ADODB.Recordset D
2011-09-01 09:01:39
3479
原创 一个通过VBA建立某文件快捷方式的例子 （备注）
Sub CreatShortCut() '设定引用项目 Windows Script Host Object Model Dim myWsh As IWshRuntimeLibrary.WshShell Dim myShtCut As IW
2011-09-01 08:56:50
3252
原创 查找单元格字符串中数字部分，并标注红色 （原创）
Sub ChangeColor()'======================================='查找单元格字符串中数字部分，并标注颜色'型号中一般缸径、行程均为数字表示，有助于观看。'作者：xiaohe'=======================
2011-09-01 08:50:48
3649
1
原创 去掉字母A-Z以及数字0-9以外的其他字符函数 （原创）
Function SubstituteEx(Strtemp As String) As String'************************************************************'一个字符串中剥离品番部分，去掉A-Z,0-9，-'
2011-09-01 08:46:57
4111
原创 两个字符串比较，取出重复字符个数。 （原创）
Function TwoStrComp(strOne As String, strTwo As String) As Integer'================================'取出两个字符串中的重复字符个数'短字符串中无重复字符的情况下'=====
2011-09-01 08:42:45
6181
6
超酷VBA工程加锁解锁器 By ldhyob
2011-03-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人