I am doing a project with VB6 and Access
usin DSN Method.
But I cant run the edit command
When clicking on Update Button then
Run time Error is Comming
i.e.
Run-time error- '2147217900 (80040e14)':
[Microsoft][ODBC Microsoft access Driver] Extra) in queryexpression"a')
The code i used in project is given below
Private Sub CMDAddNew_Click()
If CMDAddNew.Caption = "&Save" Then
CNN.Execute "INSERT INTO TB_Details Values ('" & TXTRegNo & "','" & TXTName & "'," & _
"'" & TXTAddress & "','" & CMBDistrict & "','" & TXTDesignation & "'," & _
"'" & TXTSubject & "', '" & TXTQualification & "','" & TXTExperience & "','" & TXTRemarks & "')"
MsgBox "Data saved Successfully", vbInformation, "Save"
Clearall
Frame1.Enabled = False
CMDAddNew.Caption = "Add &New"
Else
If CMDAddNew.Caption = "&Update" Then
CNN.Execute "UPDATE TB_Details SET RegNo = '" & TXTRegNo & "', Name = '" & TXTName & "'," & _
"Address = '" & TXTAddress & "', District = '" & CMBDistrict & "',Designation = '" & TXTDesignation & "'," & _
"Subject = '" & TXTSubject & "', Qualifications = '" & TXTQualification & "', Experience = '" & TXTExperience & "', Remarks = '" & TXTRemarks & "')" & _
"WHERE RegNo = '" & TXTRegNo & "'"
MsgBox "Data Updated Successfully", vbInformation, "Save"
CMDAddNew.Caption = "Add &New"
End If
'Else
'Frame1.Enabled = True
' CMDAddNew.Caption = "&Save"
' TXTRegNo.SetFocus
End If
End Sub
Pls Help for correcting the project
With regards
Manoj thanal