Причина «Код ошибки во время выполнения« 3061 »слишком мало параметров Ожидаемое значение 1."

Question

Следующий код вызывает ошибку «Код ошибки выполнения« 3061 »слишком мало параметров. Ожидаемый 1.« но я не знаю, почему:

Private Sub cmdAdd_Click() 
    'to add data to table 
    CurrentDb.Execute "INSERT INTO student(Name, Age, Sex, Email, Mobile, Course, Name_Of_Kin, Relationship, Email_Of_Kin, Mobile_Of_Kin, School_Fees, Qualification) " & _ 
    "VALUES (" & Me.txtName & " ,'" & Me.DTPAge & "','" & Me.cmbSex & "','" & Me.txtEmail & "','" & Me.txtMobile & "','" & Me.cmbCourse & "','" & Me.txtNOK & "','" & Me.cmbROK & "','" & Me.txtEOK & "','" & Me.txtMOK & "','" & Me.cmbFees & "','" & Me.cmbQual & "')" 
    frmStudentSub.Form.Requery 

End Sub 

Answer 1

Во-первых, посмотрите здесь:

Insert record using a recordset

Тогда, как кажется, вы вставляете запись в таблице, используемой в открытой форме, вы можно использовать RecordsetClone этой формы:

Private Sub cmdAdd_Click() 

    Dim rs As DAO.Recordset 

    Set rs = frmStudentSub.Form.RecordsetClone 
    rs.AddNew 
     rs!Name.Value = Me!txtName.Value 
     rs!Age.Value = Me!DTPAge.Value 
     rs!Sex.Value = Me!cmbSex.Value 
     rs!Email.Value = Me!txtEmail.Value 
     rs!Mobile.Value = Me!txtMobile.Value 
     rs!Course.Value = Me!cmbCourse.Value 
     rs!Name_Of_Kin.Value = Me!txtNOK.Value 
     rs!Relationship.Value = Me!cmbROK.Value 
     rs!Email_Of_Kin.Value = Me!txtEOK.Value 
     rs!Mobile_Of_Kin.Value = Me!txtMOK.Value 
     rs!School_Fees.Value = Me!cmbFees.Value 
     rs!Qualification.Value = Me!cmbQual.Value 
    rs.Update 
    ' Not needed.  
    ' frmStudentSub.Form.Requery 

    Set rs = Nothing 

End Sub