Private Sub CmdAdd_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("table1", dbOpenDynaset)
If IsNull(ComboName) Then
'MsgBox "Please Select comboname", vbOKOnly + 64, "Save
DoCmd.CancelEvent
ComboName.SetFocus
ElseIf MsgBox("Do you like to save?", vbQuestion + vbYesNo, " Save") = vbYes Then
rst.AddNew
rst!Name = ComboName
rst!Amount = txtAmount
rst!Note = txtnote
rst.Update
rst.Requery
Me.Refresh
Me.ComboName = Null
Me.txtAmount = Null
Me.txtnote = Null
rst.Close
ComboName.SetFocus
Else
DoCmd.CancelEvent
Me.ComboName = Null
Me.txtAmount = Null
Me.txtnote = Null
End If
End Sub