Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

Mua sách "VBA trong Excel - Cải thiện và tăng tốc" tái bản

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

Thảo luận trong 'Ứng dụng Quản trị cơ sở dữ liệu' bắt đầu bởi vuyenngoc, 10 Tháng năm 2011.

  1. vuyenngoc

    vuyenngoc Thành viên mới

    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__--__
     
  2. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Chuyên gia GPE Staff Member Super Moderator

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

    vuyenngoc Thành viên mới

    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
     

    Các file đính kèm:

    • QLTV.docx
      Kích thước:
      200.4 KB
      Đọc:
      788
  4. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Chuyên gia GPE Staff Member Super Moderator

    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.
     
  5. vuyenngoc

    vuyenngoc Thành viên mới

    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
     
  6. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Chuyên gia GPE Staff Member Super Moderator

    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.
     
  7. vuyenngoc

    vuyenngoc Thành viên mới

    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
     
  8. Hai Lúa Miền Tây

    Hai Lúa Miền Tây Chuyên gia GPE Staff Member Super Moderator

    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: 12 Tháng năm 2011
  9. baby_iloveyou355

    baby_iloveyou355 Thành viên mới

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

    hongle516 Thành viên mới

    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
     

Chia sẻ trang này