Microsoft Access Form: update button in access form VBA With Code

Full Code:

Option Compare Database

Private Sub Combo0_Click()

Me.id_txt = Me.Combo0.Column(0)

Me.name_txt = Me.Combo0.Column(1)

Me.grade1 = Me.Combo0.Column(2)

Me.marks_txt = Me.Combo0.Column(3)

Me.status1 = Me.Combo0.Column(4)

End Sub

Private Sub Command14_Click()

Dim gradesql As String

If Me.grade1.ListIndex = -1 Then

gradesql = ""

Else

gradesql = "id_grade = " & Me.grade1.Column(0) & ", "

End If

CurrentDb.Execute "Update marks_students2 Set " & _

"student_name = '" & Me.name_txt & "', " & _

gradesql & _

"marks = " & Me.marks_txt & ", " & _

"status1 = '" & Me.status1.Value & "' " & _

" Where id = " & Me.id_txt

MsgBox "Data Updated Successfull"

End Sub