THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 6

Bước 4: Sự kiện cmdThem_Click Private Sub cmdThem_Click() datHH.Recordset.AddNew DoiTThai False End Sub Trong đó: Private Sub DoiTThai(ByVal TThai As Boolean) cmdThem.Enabled = TThai cmdSua.Enabled = TThai cmdXoa.Enabled = TThai cmdHuy.Enabled = Not TThai cmdLuu.Enabled = Not TThai End Sub Bước 4: Sự kiện cmdSua_Click & sự kiện cmdXoa_Click: Private Sub cmdSua_Click() datHH.Recordset.Edit DoiTThai False End Sub Private Sub cmdXoa_Click() On Error GoTo Xuly datHH.Recordset.Delete Exit Sub Xuly: MsgBox Err.Description, vbCritical + vbSystemModal, "Loi" End Sub Bước 5: Sự kiện cmdLuu_Click & cmdHuy_Click Private Sub cmdHuy_Click() 'dathh.Database = datHH.Recordset.CancelUpdate DoiTThai True End Sub Private Sub cmdLuu_Click() datHH.Recordset.Update DoiTThai True End...