Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
下面的vba代码中是否缺少运算符?_Vba_Ms Access - Fatal编程技术网

下面的vba代码中是否缺少运算符?

下面的vba代码中是否缺少运算符?,vba,ms-access,Vba,Ms Access,我试图运行下面的代码,但第3行出现语法错误(缺少运算符)。我想不出少了什么 Dim mains As Recordset Set mains = CurrentDb.OpenRecordset("MAIN CAMPUS MINOR POSITION APPLICANTS", dbOpenSnapshot, dbReadOnly) mains.FindFirst "1st SECONDER='" & Nz(Me.txtmain, "&qu

我试图运行下面的代码,但第3行出现语法错误(缺少运算符)。我想不出少了什么

Dim mains As Recordset

Set mains = CurrentDb.OpenRecordset("MAIN CAMPUS MINOR POSITION APPLICANTS", dbOpenSnapshot, dbReadOnly)
mains.FindFirst "1st SECONDER='" & Nz(Me.txtmain, "") & "'"

If mains.NoMatch = True Then
Me.txtmain.BackColor = vbGreen
txtnakuru.SetFocus
Else
MsgBox "Duplicate First Seconder. Please Revise your Seconders.", vbExclamation, ""
Me.txtmain.Value = ""

我可能会建议什么。

在包含空格的字段中添加括号,
[主校区次要职位申请者]
[第一个借调者]
。更好的是,不要在命名约定中使用空格、标点符号/特殊字符或全大写:
maincampusminorpositionapplicators
lstSeconder