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

[vuyenngoc]

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

[Hai Lúa Miền Tây]

Dùng Query truy vấn, bạn cho 1 ít dữ liệu làm thử nhé.

[vuyenngoc]

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

[Hai Lúa Miền Tây]

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.

[vuyenngoc]

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

[Hai Lúa Miền Tây]

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.

[vuyenngoc]

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

[Hai Lúa Miền Tây]

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:

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

[baby_iloveyou355]

Gửi file gì đọc hổng được trời cái file của vuyenngoc ấy

[hongle516]

Gửi file gì đọc hổng được trời cái file của vuyenngoc ấy

File .docx đọc với Office 2007.
Nếu bạn dùng 2003 thì google search update .docx cho 2003 có vài MB