nam8384 > 13-05-16, 08:34 AM
ongke0711 > 13-05-16, 11:58 AM
hungle2006 > 13-05-16, 12:11 PM
(13-05-16, 11:58 AM)ongke0711 Đã viết: Bạn xem link sau.
http://thuthuataccess.com/forum/thread-8680.html
Bạn nên tham khảo học hỏi trực tiếp từ các ứng dụng đã share code trên diễn đàn. Họ đã dùng các kiểu bẫy lỗi, thông báo tiếng Việt trong đó. Vd: Thông báo khi nhập trùng mã hàng, nhập sai ngày tháng, nhập sai kiểu dữ liệu v.v.. . Có rất nhiều loại thông báo mà cứ mỗi loại là bạn hỏi sẽ không ai có thời gian trả lời hết đâu.
Vd: Khi xóa 1 record
----------------------------------
Private cmdXoa_Click
If MsgBoxUni ("Bạn có chắc muốn xóa record này không?",vbYesNo + vbQuestion, "Thông báo") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgboxUni "Đã xóa xong"
Else
Exit Sub
End If
---------------------------------
ongke0711 > 13-05-16, 01:22 PM
(13-05-16, 12:11 PM)hungle2006 Đã viết: ...
Tốt nhất là tạo một form thông báo, sử dụng tiếng việt là đơn giản nhất
thiennamlong > 13-05-16, 05:05 PM
(13-05-16, 08:34 AM)nam8384 Đã viết: Em chào các bác Mong các bác giúp đỡ. E muốn khi người dùng xóa một record hoặc thực hiện bất kỳ lệnh nào trong form thì sẽ hiện lên bảng thông báo bằng tiếng việt đại loại như: Bạn có muốn thực hiện lệnh trên không và có hai tùy chọn “Yes” hoặc “No”. Cảm ơn các bác nhiềuGửi bạn file tham khảo nhé:
Private Sub CMDSAU_Click()
On Error GoTo Err_CMDSAU_Click
If CurrentRecord = Recordset.RecordCount Then
MsgBox "Đang ở mẫu tin cuối không di chuyển nữa nhé !", 64, "Thông báo"
Else
DoCmd.GoToRecord , , acNext
Exit_CMDSAU_Click:
Exit Sub
Err_CMDSAU_Click:
MsgBox "Đang là mẫu tin mới không di chuyển nữa nhé !", 64, "Thông báo"
Resume Exit_CMDSAU_Click
End If
End Sub
nam8384 > 13-05-16, 05:59 PM
(13-05-16, 12:11 PM)hungle2006 Đã viết:Cảm ơn bác. ĐÚng là dùng form là đơn giản nhất và cũng dễ nhất, đỡ phải code(13-05-16, 11:58 AM)ongke0711 Đã viết: Bạn xem link sau.
http://thuthuataccess.com/forum/thread-8680.html
Bạn nên tham khảo học hỏi trực tiếp từ các ứng dụng đã share code trên diễn đàn. Họ đã dùng các kiểu bẫy lỗi, thông báo tiếng Việt trong đó. Vd: Thông báo khi nhập trùng mã hàng, nhập sai ngày tháng, nhập sai kiểu dữ liệu v.v.. . Có rất nhiều loại thông báo mà cứ mỗi loại là bạn hỏi sẽ không ai có thời gian trả lời hết đâu.
Vd: Khi xóa 1 record
----------------------------------
Private cmdXoa_Click
If MsgBoxUni ("Bạn có chắc muốn xóa record này không?",vbYesNo + vbQuestion, "Thông báo") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
MsgboxUni "Đã xóa xong"
Else
Exit Sub
End If
---------------------------------
Tốt nhất là tạo một form thông báo, sử dụng tiếng việt là đơn giản nhất
nam8384 > 13-05-16, 06:00 PM
(13-05-16, 01:22 PM)ongke0711 Đã viết:E cảm ơn bác nhiều, các thông báo của bác đẹp thật(13-05-16, 12:11 PM)hungle2006 Đã viết: ...
Tốt nhất là tạo một form thông báo, sử dụng tiếng việt là đơn giản nhất
Tạo thông báo (Message box) bằng Form cũng rất hay nhưng cũng tùy trường hợp mà sử dụng vì đánh đổi lại là mất công thiết kế, tốn dung lượng...
- Những trường hợp đơn giản chỉ cần thông báo hoặc lấy ý kiến Yes/No thì dùng Message box cho nhanh.
- Trường hợp bạn muốn người dùng tương tác nhiều hơn nữa, muốn customize về màu sắc, thêm các tùy chọn như checkbox, các nút lệnh khác nữa ... thì dùng Form.
Một số thông báo bằng Form: