插入声明VBA

Question

嗨，大家好，我在VBA中使用Access 2013进行编码我用两种不同的方式编写我的代码，并不断收到语法错误。这是我的代码。

Private Sub cmdAdd_Click() 
     CurrentDb.Execute "INSERT INTO GroupVolunteers(Group, Leader, Name, 
phone, email, EmergencyContact, EmergencyContact) " & _ 
" VALUES(" & Me.txtGroup & "','" & Me.cboLeader & "','" & Me.txtName & "','" 
& Me.txtEmail & "','" & Me.txtPhone & "','" & Me.txtEmergencyContact & "','" 
& Me.EmergencyNumber & "','" & Me.txtRegNumber & "')" 

'clear form 
cmdClear_Click 
'refresh data in list on form 
frmStudentSub.Form.Requery 
End Sub 

OR

'when we click on button Add there are two options 
'1. for insert 
'2. for update 
If Me.txtRegNumber & "" = "" Then 
    'this is for insert new 
    'add data to table 
    CurrentDb.Execute "INSERT INTO GroupVolunteers(Group, Leader, Name, 
    phone, email, EmergencyContact, EmergencyContact) " & _ 
      " VALUES(" & Me.txtGroup & "','" & Me.cboLeader & "','" &  
    Me.txtName & "','" & _ 
      Me.txtEmail & "','" & Me.txtPhone & "','" & 
    Me.txtEmergencyContact & "','" & Me.EmergencyNumber & "','" &_ 
    Me.txtRegNumber & "')" 
Else 
'otherwise (Tag of txtID store the id of student to be modified) 
CurrentDb.Execute "UPDATE GroupVolunteers " & _ 
     " SET Group=" & Me.txtGroup & _ 
      ", leader='" & Me.cboLeader & "'" & _ 
    ", name='" & Me.txtName & "'" & _ 
      ", email='" & Me.txtEmail & "'" & _ 
    ", phone='" & Me.txtPhone & "'" & _ 
    ", EmergencyContact='" & Me.txtEmergencyContact & "'" & _ 
      ", EmergencyNumber='" & Me.txtEmergencyNumber & "'" & _ 
      ", NumberVolunteers ='" & Me.txtNumberVolunteers & "'" & _ 
      " WHERE RegNumber = " & Me.txtRegNumber.Tag 

Answer 1

" VALUES(" & Me.txtGroup & "', ... 

认为这是怎么回事在你的语句结束的：

VALUES(<Me.txtGroup>', ... 

换句话说，你要么缺少开引号一个字符类型的列，或者对于一个数字类型的列有太多的字符。它应该是一个：

" VALUES('" & Me.txtGroup & "', ... // for character-type column 
" VALUES(" & Me.txtGroup & ", ... // for numeric-type column 

这应该固定在这两个代码块你insert，你可能还需要检查第二个代码块update为好。它在group列中没有引号，如果它是数字类型则可以，但如果是字符类型则可能不会。