Question

失踪的操作员在哪里？

代码：

If Nz(DLookup("Email", "Employees", "Email=" & Me![Email]), "") <> "" Then
    correo = DLookup("Email", "Employees", "Email=" & Me![Email])

Answer 1

电子邮件将成为一个字符串，因此您的语法应为：

If Nz(DLookup("Email", "Employees", "Email= '" & Me.Email & "'"), "") <> "" Then
    correo = DLookup("Email", "Employees", "Email= '" & Me.Email & "'")

请注意，您要查找的电子邮件地址周围添加了单引号。

Answer 2

两件事。首先，它在VBA中是Else If，而不是End If（没有空格）。其次，您在If块的末尾有一个额外的Private Sub ResetButton_Click() Dim correo As String If Nz(Me.Email, "") = "" Then MsgBox "Email Empty. Please Enter a Valid Email Address.", vbInformation, "Email Empty" Me.Email.SetFocus ElseIf Nz(DLookup("Email", "Employees", "Email= '" & Me.Email & "'", "") <> "" Then correo = DLookup("Email", "Employees", "Email= '" & Me.Email & "'") End If If correo <> Me.Email Then MsgBox "Wrong Email Address. Please Use a Correct Email Address.", vbCritical, "Wrong Email Address" Me.Email.SetFocus Else DoCmd.Close DoCmd.OpenForm "UserVerificationPasswordReset" End If End Sub。见下文：

<div class="row" ng-repeat="image in images">
    <div class="col col-25">
        <img ng-src="{{image.src}}" width="100%" />
    </div>
</div>

运行时错误3075 - - VBA访问缺失操作员

2 个答案: