Tạo nút lệnh trong form access

Liên hệ QC

vuyenngoc

Thành viên mới
Tham gia
12/1/10
Bài viết
16
Được thích
0
Cho mình hỏi , mình muốn tạo nút lệnh xóa có điều kiện trong form , là không rỗng và duy nhất thì phải làm sao trong access 2007__--__
 
Dùng Query truy vấn, bạn cho 1 ít dữ liệu làm thử nhé.
 
tạo form với các nút lệnh có cảnh báo

Cho mình hỏi , mình muốn tạo nút lệnh xóa có điều kiện trong form , là không rỗng và duy nhất thì phải làm sao trong access 2007__--__
Mình gởi link đính kèm nha
Đề bài yêu cầu Mabd là duy nhất và không rỗng
Masach dang combox,tensach tự động hiển thị
nút delete có cảnh báo tiếng việt trước khi xoá.
thanks
 

File đính kèm

  • QLTV.docx
    200.4 KB · Đọc: 813
Cho mình hỏi , mình muốn tạo nút lệnh xóa có điều kiện trong form , là không rỗng và duy nhất thì phải làm sao trong access 2007__--__
Mình gởi link đính kèm nha
Đề bài yêu cầu Mabd là duy nhất và không rỗng
Masach dang combox,tensach tự động hiển thị
nút delete có cảnh báo tiếng việt trước khi xoá.
thanks

Trước tiên bạn tạo CSDL rồi thiết kế form theo bài tập hướng dẫn, cố mà làm bài tập, cái nào chưa được bạn đưa lên đây, vậy mới tiến bộ được. Sẽ không có ai có đủ thời gian để làm bài tập từ A đến Z đâu bạn.
 
Bài tập mình làm rồi mình chỉ cần hỏi là cái phần macro của tạo nút lệnh có điều kiện và tập tin đó là duy nhất và không rỗng
 
Bài tập mình làm rồi mình chỉ cần hỏi là cái phần macro của tạo nút lệnh có điều kiện và tập tin đó là duy nhất và không rỗng
Thì như mình trả lời với bạn, có 1 ít dữ liệu, file Access 2003 càng tốt, cái nào vướng đưa lên đây, mình sẽ giúp nếu mình biết.
 
Trong phần tạo nút lệnh xoá có điều kiện mình làm trong access 2003 như sau :
Conditon action
setwarning
msgbox("bạn muốn xoá mẫu runcommand
tin này?"36","chú ý")=6
còn trong access 2007 mình không thấy setwaring thì thay bằng lệnh nào hoặc có cách làm khác không
 
Trong phần tạo nút lệnh xoá có điều kiện mình làm trong access 2003 như sau :
Conditon action
setwarning
msgbox("bạn muốn xoá mẫu runcommand
tin này?"36","chú ý")=6
còn trong access 2007 mình không thấy setwaring thì thay bằng lệnh nào hoặc có cách làm khác không

Bạn thử sửa lại như sau:

Mã:
Private Sub cmdXoa_Click()
Dim TR As Boolean
TR = MsgBox("ba.n muo^'n xoá ma^~u tin này?", vbYesNo, "chú ý") = 6
If TR = True Then
    DoCmd.SetWarnings (False)
         DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
         DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings (True)
End If


End Sub
 
Lần chỉnh sửa cuối:
Gửi file gì đọc hổng được trời cái file của vuyenngoc ấy
 
Web KT
Back
Top Bottom