nam8384 > 24-06-16, 05:16 PM
cpucloi > 25-06-16, 02:39 PM
nam8384 > 25-06-16, 10:34 PM
(25-06-16, 02:39 PM)cpucloi Đã viết: Code của bạn
If Msgbox("Bạn có muốn đóng chương trình không?",vbYesNo,"Nhắc nhở") = vbYes Then
Docmd.Close
' Docmd.Quit (nếu muốn thoát)
else
exit sub
End If
Thêm mắm, muối nếu bạn bạn cần nhé
zinzin8x > 26-06-16, 12:42 AM
maidinhdan > 26-06-16, 01:08 AM
(25-06-16, 10:34 PM)nam8384 Đã viết:(25-06-16, 02:39 PM)cpucloi Đã viết: Code của bạn
If Msgbox("Bạn có muốn đóng chương trình không?",vbYesNo,"Nhắc nhở") = vbYes Then
Docmd.Close
' Docmd.Quit (nếu muốn thoát)
else
exit sub
End If
Thêm mắm, muối nếu bạn bạn cần nhé
Cám ơn bác. Khi e đưa đoạn code này vào sự kiện On exit trong form chính của em thì khi hiện ra bảng thông báo thì dù ấn Yes hay No thì nó đều thoát chương trình. Mong bác giúp em
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Đóng form hả ông nội?", vbYesNo) = vbYes Then
Exit Sub
Else
Cancel = True
End If
End Sub
nam8384 > 26-06-16, 08:06 AM
(26-06-16, 01:08 AM)maidinhdan Đã viết:(25-06-16, 10:34 PM)nam8384 Đã viết:(25-06-16, 02:39 PM)cpucloi Đã viết: Code của bạn
If Msgbox("Bạn có muốn đóng chương trình không?",vbYesNo,"Nhắc nhở") = vbYes Then
Docmd.Close
' Docmd.Quit (nếu muốn thoát)
else
exit sub
End If
Thêm mắm, muối nếu bạn bạn cần nhé
Cám ơn bác. Khi e đưa đoạn code này vào sự kiện On exit trong form chính của em thì khi hiện ra bảng thông báo thì dù ấn Yes hay No thì nó đều thoát chương trình. Mong bác giúp em
Bạn chèn không đúng chỗ rồi.
Code cụ thể như sau: Chèn vào sự kiện Unload nhé
Mã PHP:Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Đóng form hả ông nội?", vbYesNo) = vbYes Then
Exit Sub
Else
Cancel = True
End If
End Sub
Thân mến!
nam8384 > 26-06-16, 08:10 AM
(26-06-16, 12:42 AM)zinzin8x Đã viết: Ặc khóa nút X của forms đi ông nội. khỏi lo cái vụ đó nữa. tạo cho nó một button thoát đi.