Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

1/27/10

Gọi 1 đoạn code từ menu tự tạo

Hỏi: Tôi có 1 đoạn code trước đây tôi gọi từ form. Nhưng giờ chuyển sang menu thì làm sao gọi được.
Đáp: Để gọi 1 đoạn code từ menu, yêu cầu đoạn code của bạn phải là 1 function.
Ví dụ:
Function QuanlyUser()
If GetUserLevel > 1 Then
DoCmd.Close
DoCmd.OpenForm "frmQuanlyUser", , , "[UserLevel] <" & GetUserLevel
Else
msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 9") & vbCrLf & DLookup("[NDUNG2]", "tblTHONGBAO", "[SOTB] = 9"), vbCritical, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 9")
End If

End Function

Sau đó, tạo 1 macro và gọi function này bằng hàm runcode . Rồi lưu lại đầy đủ trường name, action...
(trong ví dụ mình lưu Macro tên Dulieuhethong)



Giờ bạn có thể tạo 1 memu gọi macro này bằng cách click chuột phải lên thanh menu, chọn custonmise, Sau đó chọn như hình, lôi Item muốn run lên vị trí tùy ý trên thanh bar tự tạo.


Chương trình demo xin phép modifield lại của bạn HaQuocQuan. :
ID: Admin
Pass: Admin
Pass enable/disable phím shift và VBA : ladieskiller
Demo

Các bạn có thể tham khảo thêm bài:
Thiết kế chương trình phân quyền  để biết thêm về cơ chế phân quyền trong demo này.
Cũng tham khảo thêm bài: Hướng dẫn tạo menu để biết cách tự tạo 1 menu

____________________________________________________________________________________
Thảo luận thêm: http://thuthuataccess.co.cc/forum

7 comments:

  1. Toi tao menu bar o tren
    Toi muon moi nguoi fai dang nhap vao thi moi mo dc
    Ban co the chi dan cho minh dc ko?

    ReplyDelete
  2. Function Tindung()
    If GetUserLevel < 1 Then
    DoCmd.Close
    DoCmd.OpenForm "THONG_TIN_KHACH_HANG", , , "[UserLevel] >" & GetUserLevel
    Else
    msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 5") & vbCrLf & DLookup("[NDUNG2]", "tblTHONGBAO", "[SOTB] = 5"), vbCritical, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 5")
    End If
    End Function


    Toi co doan code nay. Nhung khong hieu sao ke ca khi dang nhap roi van khong mo dc form. No lai doi dang nhap tiep

    ReplyDelete
  3. Tùy vào cấu trúc chương trình của bạn. Chứ chỉ đoạn Code thì không nói lên được gì cả!

    ReplyDelete
  4. tôi đã tạo menubar, nhưng tôi muốn chỉ có admin mới mới được hết các menu trên menubar. Giúp tôi với.

    ReplyDelete
  5. Bạn dùng gì để tạo? Macro? hay Code?
    Với code để tạo menu, bạn cho vào điều kiện if...else... để tạo menu.
    Với macro, bạn vẫn dùng macro, nhưng bật thêm condition!

    ReplyDelete
  6. Đăng nhập mà lại nhìn luôn được pass hả bạn?

    ReplyDelete
  7. Ọc, chuyện đó thì có gì là khó, set input mask là password là nó ẩn ngay mà!

    ReplyDelete

» Hãy để lại tên, email của bạn khi bạn post comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
» Có thể sử dụng các thẻ < b>,< i>,< a>. Và các icon thông dụng trên YM