Viết code cho các nút Msgbox ?

[TrungChinhs]

Chào các bạn ! Tôi đang gặp khó khăn khi viết code cho các nút Msgbox.
Tôi muốn khi chọn nút Yes thì thực hiện lệnh thêm dữ liệu, No thì sửa dữ liệu và Cancel thì Thoát
Tôi viết:

           msg1 = "Chon Yes de Them. Chon No de Sua. Chon Cancel de Thoat"
           If MsgBox(msg1, 3) = 2 Then Exit Sub
           If MsgBox(msg1, 3) = 7 Then 
           ..... câu lệnh sửa
           end if
           ..... câu lệnh thêm

Do đó Khi chọn Yes hoặc No thì phải chọn 2 lần Msgbox mới mất (do gọi Msgbox 2 lần).
Nhờ các bạn chỉ dẫn viết giúp code cho nút No để khi chọn Yes hoặc No thì nó thực hiện lệnh và ẩn ngay. Xin cảm ơn !

 

[ndu96081631]

Chào các bạn ! Tôi đang gặp khó khăn khi viết code cho các nút Msgbox.
Tôi muốn khi chọn nút Yes thì thực hiện lệnh thêm dữ liệu, No thì sửa dữ liệu và Cancel thì Thoát
Tôi viết:

           msg1 = "Chon Yes de Them. Chon No de Sua. Chon Cancel de Thoat"
           If MsgBox(msg1, 3) = 2 Then Exit Sub
           If MsgBox(msg1, 3) = 7 Then 
           ..... câu lệnh sửa
           end if
           ..... câu lệnh thêm

Do đó Khi chọn Yes hoặc No thì phải chọn 2 lần Msgbox mới mất (do gọi Msgbox 2 lần).
Nhờ các bạn chỉ dẫn viết giúp code cho nút No để khi chọn Yes hoặc No thì nó thực hiện lệnh và ẩn ngay. Xin cảm ơn !

Phải vầy chứ anh:

Sub test()
  Dim msg1 As String, Res As Long
   msg1 = "Chon Yes de Them. Chon No de Sua. Chon Cancel de Thoat"
   Res = MsgBox(msg1, vbYesNoCancel, "THÔNG BÁO")
   Select Case Res
     Case 2: Exit Sub
     Case 6: MsgBox "Lenh 1"
     Case 7: MsgBox "Lenh 2"
   End Select
End Sub

 

[ptm0412]

Anh gọi nó 2 lần thì nó ra 2 lần chứ sao.
Sửa lại:

Sub abc()
 msg1 = "Chon Yes de Them. Chon No de Sua. Chon Cancel de Thoat"
    Select Case MsgBox(msg1, 3)
        Case vbCancel
           Exit Sub
        Case vbNo
           [a1] = 100
        Case vbYes
           [b1] = 100
    End Select

End Sub