Từ listbox sang textbox

Thủ thuật chỉnh hay nên đọc: Tạo nút không lưu và không cho nhập vào combo box: Private sub KHONG_click() Me.Undo If NewRecord = True Then DoCmd.GoToRecord , , acLast End If End Sub - Cách 2: Private Sub Khong_Click() DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True DoCmd.Close End Sub

16p lehungquoc214 20-11-2010 344 63   Download