关于换行

半夜罗　发表于：2018-01-25 09:24:33 　

请教老师，在VBA代码中有这类似的代码，因为条件太多，一行的话矿长，怎样换行？
    '-------------记录重复时，不能保存
    If DCount("*", "查阅字段", _
    "一级字段 = '" & Me.一级字段 & "' and 二级字段 = '" & Me.二级字段 & "' and 三级字段 = '" & Me.三级字段 & "'") > 0 Then
        MsgBox "该记录已经存在，不能保存？", vbCritical, "提示"
        Exit Sub
    End If
谢谢！！！

Top

xiaowuo 发表于：2018-01-25 09:51:54

在定义变量时候可以使用 _换行
例如
Dim a As String, _
b As String
对于非sql 语句可以使用空格+ _
例如
if MsgBox("您确认要清空文本框值吗?", vbOKCancel + vbInformation, "提示") = vbOK Then

If MsgBox("您确认要清空文本框值吗?", vbOKCancel + _
vbInformation, "提示") = vbOK Then
对于 sql 语句可以在句末+双引号+空格+下划线，下一句前面+&+空格+双引号
例如
strsql = "Select 采购订单表.状态, 采购订单表.采购订单号, 采购订单表.采购日期, 采购订单表.供应商ID, 采购订单表.经办人" _
& " FROM 采购订单表;"
也可以
a = "Select 采购订单表.状态, 采购订单表.采购订单号, 采购订单表.采购日期, 采购订单表.供应商ID, 采购订单表.经办人"
a = a & " FROM 采购订单表;"

Top

chinasa 发表于：2018-01-25 11:52:24

楼上解释的很详细了

Top

半夜罗发表于：2018-01-25 15:50:17

一楼老师的解释，在一般情况下我都没有问题，问题就在用这类代码时，类似的还有 Dlookup 函数、DSum 函数，这个后面的条件，各种双引号、单引号太多，稍有不注意就出问题。有时也很无赖，只能长就长了，但总是不方便。经过好多次实践，终于修改成功：

    '-------------记录重复时，不能保存
    If DCount("*", "查阅字段", _
              "nz(一级字段,0) = '" & Nz(Me.一级字段, 0) & _
              "' and nz(二级字段,0) = '" & Nz(Me.二级字段, 0) & _
              "' and nz(三级字段,0) = '" & Nz(Me.三级字段, 0) & "'") > 0 Then
        MsgBox "该记录已经存在，不能保存！", vbCritical, "提示"
        Exit Sub
    End If

同时找到其中的规律，就是换行时要从双引号前开始，同时连接的下划线要间隔一个空。换行不是目的，这样可以做到逻辑清楚，层次分明。

谢谢各位老师

Top

xiaowuo 发表于：2018-01-25 16:22:06

一般都是_前的那个空格引起的问题，我刚学时也碰到这种情况，现在都懒得用换行了

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

关于换行