Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

VBA编写基础的一些说明,新手速拿

时 间:2016-07-29 08:16:15
作 者:缪炜   ID:24010  城市:江阴
摘 要:刚接触VBA时,大家都有一些困惑,在编写不知道注意些什么,那请看下面。
正 文:

1.使用 Option Explicit 关键字

变量必须先声明(定义)再使用,解决后期调试代码的烦恼。

自动加上 Option Explicit 关键字的方法:

VBA->工具->选项

或者:

2.变量、常量、子过程的名称

简单的规范,只要自己或其他人能看明白就可以。

 比如: ✔ 用中文定义变量:

 Dim 查询语句 As String

 ✔ 用英文单词定义变量,第二个以后的单词首字母大写: 

Dim strSQL As String

同上,变量名加上变量类型前缀:

一个前缀字母的方案:

 i(Integer)、l(Long)、s(String)、d(Double)、c(Currency)、b(Boolean)、d(Date)、v(Variant)、o(Object)、y(Byte)、t(Type) Dim oTargetRange As Excel.Range

三个前缀字母的方案:

int(Integer)、lng(Long)、str(String)、dbl(Double)、cur(Currency)、bln(Boolean)、dat(Date)、var(Variant)、obj(Object)、byt(Byte)、typ(Type)

Dim strWhere As String 

✔ 用中文定义子过程:

Sub 查询库存量()

……

End Sub


✔ 用英文单词定义子过程,每个单词首个字母大写:

Sub QueryCurrentStock()

……
End Sub


3.代码注释

子过程头、逻辑步骤、关键算法可加上注释

'通过子过程来自动计算订单总金额
Sub 计算订单金额()
    Dim rst As Object
    Dim curSum As Currency
    If Me.Dirty Then Me.Dirty = False               '如果当前处理未保存状态,先进行保存
    Set rst = Me.RecordsetClone                     '打开订单明细窗体的记录集副本,这样不对当前记录的显示等造成影响
    If rst.RecordCount <> 0 Then rst.movefirst      '如果订单明细记录不为空,先移到第一条记录
    Do Until rst.EOF                                '循环所有记录至到最后一行记录
        curSum = curSum + rst!售价 * rst!销售数量   '对每一行记录中的金额(售价x销售数量)进行累加
        rst.MoveNext
    Loop
    Me.Parent!订单金额 = curSum                     '将父窗体(即订单窗体)中的“订单金额”的值设为最后累加的值
    Set rst = Nothing
End Sub



4.代码缩进

缩进方式,按键盘的 Tab 键:

Sub Test()

If 逻辑满足 then

    For i=0 to 100

       ‘….

    Next i

End If

End Sub


Tab缩进大小设置,默认4个空格:





Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助