求解： 编译错误：缺少=

cocopig

编写了如下函数：
Public Sub Alter(whereToAlter As Form, trueOrFalse As Boolean)
    Dim ctl As Control

    If trueOrFalse = True Then

        For Each ctl In whereToAlter.Controls
            ctl.Locked = True
        Next

    Else
        If trueOrFalse = False Then

            For Each ctl In whereToAlter.Controls
                ctl.Locked = False
            Next

        End If
    End If
End Sub


然后我在其他地方执行：
Private Sub cmdAlter_Click()

    Alter (Forms.frmDeviceInfo,True)

End Sub                                 

结果提示：“编译错误，缺少=”..............求解，我是否漏了什么？？

wanglinghuan

首先：函数名Alter为access中的已用关键字，建议改名；
其次：改成如下语句再试试
Dim ctl As Control
        For Each ctl In whereToAlter.Controls
            ctl.Locked = trueOrFalse
        Next
End Sub

cocopig

wanglinghuan 发表于 2014-1-24 17:00
首先：函数名Alter为access中的已用关键字，建议改名；
其次：改成如下语句再试试
Dim ctl As Control

一言惊醒梦中人，果然更简介。。。。

cocopig

受教了。

smilingkiss

学习了

admin

调用函数有两种方法
1. 函数名 实参1，实参2，…
2.call  函数名（实参1 ，实参2，…）

zhuyiwen

1. Private Sub cmdAlter_Click()
   
2.     Alter Forms.frmDeviceInfo,True
   
3. End Sub

复制代码

去掉括号，即可。