Bị tắt form khi chọn "No" trong chọn Yes/No

[chaoban888]

Khi em Click vào nút để chạy file sẽ chạy ra form như hình, em bấm vào dấu X thì ra bảng Yes/No
Chọn "Yes" thì sẽ dừng tác vụ
Chọn "No" sẽ chạy tiếp

Nhưng mà em chọn "No" là nó tắt mất form, không hiển thị nữa
Bác nào sửa code giúp em với ạ.
Em cảm ơn.

 

[XuanThanh]

Code của bạn có đoạn này

Private Sub cbCancelButton_Click()
    If MsgBox("Are you sure you want to Cancel?" & vbNewLine & _
        "Ban co chac chan muon dung lai ?", vbYesNo, "Cancel?") = vbYes Then
        Call CommandButton2_Click
 
    End If
End Sub

Cái lệnh CommandButton2_Click ở đâu không thấy?

 

[chaoban888]

Dạ lệnh CommandButton2_Click nằm ở Module1

Sub CommandButton2_Click()
End
End Sub

 

[batman1]

sub UserForm_QueryClose có parameter Cancel để cho bạn có cơ hội "nghĩ lại". Khi vào sub UserForm_QueryClose thì Cancel = 0.

- Nếu Cancel không được thay đổi thành <> 0 thì có nghĩa là "Hủy" (Cancel) = "Hãy hủy quyết định đóng Form của tôi. Tôi nhầm mà. Bây giờ tôi nghĩ lại và không muốn đóng Form nữa".

- Nếu Cancel = 0 thì có nghĩa là "Hủy" (Cancel) = "Đóng Form nhé. Đây muốn đóng Form mà. Đây nghĩ kỹ mà. Quyết định đóng Form không phải là quyết định bồng bột đâu nhé.".

Như thế Cancel cho bạn cơ hội "nghĩ lại", rút lại yêu cầu đóng Form.

Trong trường hợp code của bạn thì có thể sửa thành

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Call cbCancelButton_Click
        Cancel = 1
    End If
End Sub

 

[chaoban888]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Call cbCancelButton_Click
Cancel = 1
End If
End Sub

Cảm ơn anh nhé !