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

27/1/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.com/forum

7 nhận xét:

  1. Nặc danh10:23 11/2/10

    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?

    Trả lờiXóa
  2. Nặc danh10:25 11/2/10

    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

    Trả lờiXóa
  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ả!

    Trả lờiXóa
  4. Nặc danh13:11 6/8/10

    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.

    Trả lờiXóa
  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!

    Trả lờiXóa
  6. Nặc danh09:49 13/1/11

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

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

    Trả lờiXóa

» 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