|
Private Sub cmdUpdate_Click()
' Save contents of bound controls ' to underlying recordset datCtl.Recordset.Update End Sub Private Sub cmdUpdate_Click() If datCtl.Recordset.EditMode = dbEditNone Then datCtl.Recordset.Edit End If datCtl.Recordset.Update End Sub |