• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

tạo ô MSG thông báo OK và cancel để xóa field

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] tạo ô MSG thông báo OK và cancel để xóa field
• tạo ô MSG thông báo OK và cancel để xóa field

• tạo ô MSG thông báo OK và cancel để xóa field

  ttppbd-hpbbkph > 14-04-21, 03:13 PM

  chào cả nhà em có bài tập về form khi click vào nút xóa thì hiển thị lên hộp thoại hỏi bẳng tiếng việt (không dấu ) với lựa chọn OK và cancel nếu cancel là hủy, nếu OK là xóa trường đang hiển thị . em đã viết mã code builder cho button như thế này nhưng không chạy rất mong cả nhà bắt lỗi giúp em. Em cảm ơn !
  
  
  code :
  Private Sub cmd_xoa_Click()
  Dim Msg, Style, Title, Response, MyString
  Msg = "Ban co muon xoa mau tin khong ?"
  Style = vbOKCancel + vbCritical + vbQuestion
  Title = "Chu y"
  Ctxt = 10000
  Response = MsgBox(Msg, Style, Title)
  If Response = vbOKOnly Then
      MyString = "OK"
      DoCmd.RunCommand acCmdDeleteRecord
  Else
      MyString = "Cancel"
      DoCmd.RunCommand acCmdSaveRecord
  End If
  
  
  End Sub

• RE: tạo ô MSG thông báo OK và cancel để xóa field

  ongke0711 > 14-04-21, 06:49 PM

  (14-04-21, 03:13 PM)ttppbd-hpbbkph Đã viết: ...

  
  If Response = vbOK Then
  ...
  
  
  - Trong code bạn đã khai báo Style = vbOKCancel + ....  --> chỉ có 2 tham số trả về là vbOK hoặc vbCancel.
  - Nếu là vbCancel thì Exit sub luôn khỏi cần acCmdSaveRecord làm gì.

• RE: tạo ô MSG thông báo OK và cancel để xóa field

  tranthanhan1962 > 14-04-21, 07:37 PM

  Trong biến Style bạn đã sử dụng 2 tham số icon cùng nhóm là vbCritical + vbQuestion. Không thể có chuyện 1 msgbox có 2 icon nên nó sẽ luôn hiển thị icon vbCritical vì icon vbCritical có giá trị là 16 và vbQuestion có giá trị 32 nên nó sẽ là vbOKCancel + vbCritical = 16+32 =48 => vbExclamation =48 nên icon hiển thị sẽ là vbExclamation chứ không  phải 2 icon kia.
  Code chính thức để hỏi xóa record là như thế này:
  
  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
  Dim n_Reply As Integer
  Response = acDataErrContinue
  n_Reply = msgBox("Ban co muon xoa mau tin khong ?"), vbQuestion + vbYesNo, "Chu y"))
  If n_Reply = vbNo Then
  Cancel = True
  End If
  End Sub
  
  
  Private Sub cmd_xoa_Click_Click()
  On Error GoTo Biloi
  DoCmd.RunCommand acCmdDeleteRecord
  Biloi:
  End Sub
  
  
  Đoạn Sub Form_BeforeDelConfirm có nhiệm vụ xử lý trước khi xóa. Nếu Yes nó sẽ tiếp tục xóa, nếu No nó sẽ bỏ qua.
  msgBox("Ban co muon xoa mau tin khong ?"), vbQuestion + vbYesNo, "Chu y"))
  có thể đổi thành:
  msgBox("Ban co muon xoa mau tin khong ?"), 36, "Chu y"))
  Vì 36=32+4
  32=vbQuestion
  4=vbYesNo

• RE: tạo ô MSG thông báo OK và cancel để xóa field

  tranthanhan1962 > 14-04-21, 07:39 PM

  Trong biến Style bạn đã sử dụng 2 tham số icon cùng nhóm là vbCritical + vbQuestion. Không thể có chuyện 1 msgbox có 2 icon nên nó sẽ hiển thị icon vbExclamation vì icon vbCritical có giá trị là 16 và vbQuestion có giá trị 32 nên nó sẽ là vbOKCancel + vbCritical = 16+32 =48 => vbExclamation =48 nên icon hiển thị sẽ là vbExclamation chứ không  phải 2 icon kia.
  Code chính thức để hỏi xóa record là như thế này:
  
  Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
  Dim n_Reply As Integer
  Response = acDataErrContinue
  n_Reply = msgBox("Ban co muon xoa mau tin khong ?"), vbQuestion + vbYesNo, "Chu y"))
  If n_Reply = vbNo Then
  Cancel = True
  End If
  End Sub
  
  
  Private Sub cmd_xoa_Click_Click()
  On Error GoTo Biloi
  DoCmd.RunCommand acCmdDeleteRecord
  Biloi:
  End Sub
  
  
  Đoạn Sub Form_BeforeDelConfirm có nhiệm vụ xử lý trước khi xóa. Nếu Yes nó sẽ tiếp tục xóa, nếu No nó sẽ bỏ qua.
  msgBox("Ban co muon xoa mau tin khong ?"), vbQuestion + vbYesNo, "Chu y"))
  có thể đổi thành:
  msgBox("Ban co muon xoa mau tin khong ?"), 36, "Chu y"))
  Vì 36=32+4
  32=vbQuestion
  4=vbYesNo

• RE: tạo ô MSG thông báo OK và cancel để xóa field

  ttppbd-hpbbkph > 17-04-21, 11:24 AM

  (14-04-21, 06:49 PM)ongke0711 Đã viết:

  (14-04-21, 03:13 PM)ttppbd-hpbbkph Đã viết: ...

  
  If Response = vbOK Then
  ...
  
  
  - Trong code bạn đã khai báo Style = vbOKCancel + ....  --> chỉ có 2 tham số trả về là vbOK hoặc vbCancel.
  - Nếu là vbCancel thì Exit sub luôn khỏi cần acCmdSaveRecord làm gì.

  dạ em cảm ơn 2 bác nhiều !
• Bài trước Bài tiếp